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— kann eine Anzahl von Fragen und Antworten verwalten! 

— hat ständig ca. Fragen Antworten im Speicher! 

— bietet die Möglichkeit Fragen einzugeben, und zwar mit einem 
Editor! 

— besitzt eine mit Window-Technik! 


— ist vollkommen 
— zeigt bis jetzt noch nie dagewesene Tricks mit dem 
— stellt zu jeder Frage 5 mögliche Antworten vor! 


— kann man mit der spielen, da jeder eine Mindest-Chance von 
1-5 hat! 

—- muß ma mit spielen, da der Beste in jedem Wissensgebiet am Ende 
noch Zusatzpunkte bekommt! 

— wurde mit äußerst schnellen ausgestattet, die verhindern, daß 
eine schon richtig beantwortete Frage nochmals erscheint! 

— ist spielbar mit Einzelspielern oder in Gruppen mit einem Vielfachen 
davon! 

—- erkennt welche Fragenblöcke auf der Diskette noch unbeant- 
wortet sind! 

— zeichnet sich nicht nur durch die 0.g. Punkte als höchst aus! 
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Liebe Leser, 


die Reaktion auf unser letztes Sonderheft war 
gigantisch. An dieser Stelle sei all denen ge- 
dankt, die uns ihre Anregungen mitgeteilt und 
mit Lob, aber auch Kritik nicht hinterm Berg 
gehalten haben. 

Aufgrund der großartigen Resonanz war die 
Konzeption dieses Sonderheftes eigentlich mü- 
helos, lediglich die Auswahl der einzelnen Bei- 
träge mußten wir mit einem lachenden und ei- 
nem weinenden Auge vornehmen. 

Zu viele, wirklich hervorragende Beiträge 
mußten aufgrund Platzmangels auf Eis gelegt 
werden, doch keine Angst: Nach und nach 
werden wir in der PC Schneider Int. diese Pro- 
Jjekte aufgreifen. 

Bei der Lektüre dieses Sonderheftes werden Sie 
feststellen, daß es uns wieder einmal gelungen 
ist, eine abwechslungsreiche Mischung diver- 
ser Themengebiete zusammenzustellen und Ih- 
nen originelle Spiel- als auch leistungsfähige 
Anwenderprogramme anbieten können. 

Daß das ein oder andere Programm den übli- 
chen Listingumfang sprengt, sollte Sie erst 


recht zum Abtippen verleiten — es lohnt sich! 


Natürlich sind auch diesmal alle Programme 
wieder auf Datenträger erhältlich — unser 
Databox-Service bietet zwei beidseitig (!) be- 
spielte Kassetten bzw. Disketten an. 

Insgesamt erhalten Sie genügend Stoff für die 
bevorstehende Jahreswende, in Kilobyte ausge- 
drückt beinhaltet unser 5. Sonderheft ca. 500 
KB!! 

Zwei Themen, die bislang in unserer Monats- 
zeitschrift nur kurz behandelt werden konnten 
und vielfach als Wunsch geäußert wurden, ha- 
ben wir ausführlich für Sie ausgearbeitet. 
Unsere Übersicht der Diskettenwerkzeuge 
macht Sie mit den Grundlagen dieser 


Herzlichst Ihr 


Shufau (f 


Stefan Ritter, Chefredakteur 
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hilfreichen Tools bekannt und zeigt Ihnen 

gleichzeitig alle auf dem Markt befindlichen 

Programme. 

Zu welchen musikalischen Leistungen ihr CPC 

in der Lage ist, erfahren Sie nach Studium des 

Kapitels »Sound relativ«. Abgerundet wird die- 

ses Thema durch einige sehr interessante An- 

wendungen, die Ihnen das komfortable Erstel- 

len und Einbinden von Soundroutinen in eige- 

ne Programme ermöglichen. 

Die Freunde des Genres Computerspiel erhal- 

ten eine wahre Fundgrube an Informationen 

über neue Spiele und Abenteuer, viele hilfrei- 

che Tips und Lösungshilfen zu bekannten Pro- 

grammen sowie ganze Lagepläne einiger kom- 

plexer Spiele. 

Alles in allem dürfte, so hoffen wir, für jeden 

das Richtige dabei sein. 

Abschließend noch ein paar Geheimtips unse- 

rer Redakteure: 

Für Spielefreunde: 

Guazuela und Crazy Stamps 

— zwei originelle Spiele, bei denen garantiert 
keine Langeweile aufkommt. 

Für Grafikprogrammierer: 

GBasic 

— das Programm für verblüffende Effekte. 

Für Vortex-Anwender: 

Disktool und DOS-Erweiterung 

— zwei Super-Hilfen für Speichererweiterung 
und Floppy. 

Für PASCAL-Programmierer: 

Deluxe Data System 

— komfortable und universelle Dateiverwal- 
tung unter Turbo-Pascal. 

und, und, und.... 

CPC pur — wir wünschen viel Spaß bei der 

Lektüre des Sonderheftes. 


Inhalt 


GBasic — das neue Grafik-Basic. So tolle Grafiken sind nun einfach und 
schnell zu programmieren. i 
5.6 


Grundlagen der Soundprogrammierung. U.a. ermöglicht Ihnen 
ENVPRO die komfortable Generierung von Hüllkurven. 


Die Axt im Haus erspart den Zimmermann. 
Diskettenwerkzeuge im Überblick 
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Grundlagen: 


Soundprogrammierung für Jedermann 22 
— Sie erfahren alles über die effektive Soundprogrammierung 
der CPCs. Besonders interessant sind die zahlreichen Pro- 
grammbeispiele, die es u.a. ermöglichen, die erstellten Rou- 
tinen in eigene Programme einzubauen. 


PSG- der Sound-Programmer 22 

ENVPRO- Hüllkurvengenerator 29 

Sounddemo-tolle Beispiele 32 
Anwendungen: 

GBasic 6 


— das neue,unschlagbare Grafik-BASIC!. Mit dieser Erweite- 
rung zaubern Sie spielend die schönsten Grafiken auf den 
Bildschirm. 

Terminalprogramm 17 

— komfortables Programm für die Steuerung unserer RS-232 
Schnittstelle. 

Colfunktion 34 

— Fraktale auf dem CPC! Die Grafiken können mit Musik un- 
termalt werden. 


Morsetrainer 36 
— der CPC funkt SOS. 
Tilgungsplan 43 


— einfache Berechnung von Darlehenskosten und monatlichen 
Belastungen bei Kreditaufnahme. 


Defprint 46 
— Ausgabe von selbstdefinierten Zeichen auf Drucker. 
Timeout 50 


— und der Bildschirm wird dunkel. Dieses tolle Programm 
schaltet bei Bedarf den Bildschirm ab. 
Bundesliga 54 
Unilab 83 
— Erstellen und Drucken von Etiketten in 4 verschiedenen For- 
maten. 
Wertpapierbilanz 102 
— archiviert und verwaltet Ihre Wertpapiere. Damit Sie stän- 
dig den Überblick behalten... 


Turbo-Pascal: 
Deluxe Data System 116 
— leistungsfähige und universelle Dateiverwaltung 
Windows 122 


— komfortable Fenstertechnik in Turbo-Pascal. 


Spiele: 


4 gewinnt 124 
— das beliebte Strategiespiel in einer einmaligen Version! 
Poker 130 


— blufft er oder nicht? Der CPC läßt sich in die Karten 
schauen... 

Secret Cavern 136 

— als Hubschrauberpilot sind Sie unterwegs in den undurch- 
dringlichen Höhlensystemen. 

Tennis Mangager 146 

— schlüpfen Sie in die Rolle von Ion Tiriac und managen un- 
seren BUM-BUM-Boris. 

Guazuela 153 
dieses Strategiespiel um Macht wird jeden fesseln. Als Herr- 
scher von Guazuela können Sie auf Ihr Land Einfluß neh- 
men,Kriege führen,ihr Nummernkonto in der Schweiz aus- 
bauen u.v.m. 


Sonderheft 5’87 


na Jh 


Spiele: 
Mensch ärgere den CPC nicht 166 
- das älteste Gesellschaftsspiel jetzt in einer Neuauflage. 
Schlumpis Horror-Trip 170 
Runner 174 
Memory 178 


eine Super-Version in Maschinensprache! Trainieren Sie Ihr 
Gedächtnis auf spielerische Weise. 
Crazy Stamps 188 
— das verrückteste Computerspiel seit es Briefmarken gibt. Als 
Postbeamter haben Sie die Aufgabe, eingehende Briefe ord- 
nungsgemäß zu frankieren und abzustempeln. Aber es war- 
ten einige, nur schwer überwindbare Probleme auf Sie... 


Tips & Tricks: 
ee s Tonkopf justieren-unser Programm machts möglich. Nie wieder 
CPC Listing-Service 92 Read Errors auf Kassette... 
Convert 94 5.115 


- setzt Bilder des Profi-Painter so um, daß diese mit anderen 
Programmen weiter verarbeitet werden können. 


Vortex-Disktool 97 
— komfortable Verwaltung und Steuerung der Vortex-Floppy. 

Sieb des Erasthones 100 
— Ready to Use-Tips in Assembler 

MC-Software Clock 101 
Slime 101 
DOS-Erweiterung FI-X 106 
— leistungsstarke Befehlserweiterung für Vortex-Anwender. 
Drucken mit 8.bit 108 
Edit-List 1 


— neue Editiermöglichkeiten verbessern die Fehlersuche in 
Programmen. 

Trace 112 

— diese kurze Routine verlangsamt den Programmablauf um 
einen Faktor x. 


Tonkopfjustage 115 
— nie wieder Read-Errors ! Dieses tolle Programm bietet Kas- u 
settenbenutzern die Möglichkeit, den Tonkopf ihres Rekor- Tips und Lösungshilfen sowie Lagepläne bietet unsere Spiele-Rubrik 
ders neu zu justieren. in Hülle und Fülle. Informieren Sie sich... 
5.124 
Hardware: 


Ready-Signal 
Zeitsignal 


Zwei 51/4*Laufwerke am CPC 
— wie das zu realisieren ist, zeigt unsere kurze Bauanleitung. 


728 CRAZY 
7 STAMPS 
>-Anleıtung 


Diskettenutilities 3-Tabelle 
— die unabläßlichen Werkzeuge für den Anwender. Jetzt in ei- 


ner großen Marktübersicht alle Tools auf einen Blick. a 


Spieletips/Abenteuer: 


Rubriken: 
Editorial 
Impressum 194 Crazy Stamps — als Postbeamter haben Sie einiges zu tun, denn 
Inserentenverzeichnis 194 die Briefmarken spielen verrückt. 
Umfrage 195 5. 188 
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pe] -Gri 'ik 


< Bitte eine Taste druecken > 


srafik 


er -Gr 


Bei der Programmierung dieser Befehlserweiterung wurde auf 
einen universellen Einsatz Wert gelegt. Knackpunkt bei dieser 
Erweiterung ist das einfache Verändern von Grafiken (z.B. spie- 
geln usw.). Vor allem sollten wirklich neue Befehle geschaffen 
werden. 


Zunächst ihre Fähigkeiten: 

— Einlesen von Linien 

— Ausgabe von Linien 

— Variable Strichbreite 

— Verwaltung eines zweiten Bildschirmspeichers im RAM 
— Raster-Fill 


Hier nun die Erklärung der Befehle. Zu erwähnen bleibt nur, 
daß eventuelle Fehler als abfangbarer ( — ON ERROR GOTO) 
SYNTAX-ERROR gemeldet werden. In der Anleitung steht ein 
! für den geraden Strich vor einem RSX-Befehl und ein # für 
einen Klammeraffen. Buchstaben wie x/y hinter den Befehlen 
stehen als Platzhalter für Ausdrücke. 


ITDRAW,x,y 

Zieht in Gedanken einen Strich von der aktuellen Grafikposi- 
tion zur angegebenen Position x/y ( —DRAW). Nun holt sich 
der Computer die Farbinformationen der Punkte, die auf die- 
ser gedachten Linie liegen, codiert sie und legt sie zur weite- 
ren Verarbeitung in einen Buffer (Speicherplatz, —BUFFER), 
der 640 Bytes umfaßt, ab. 

1. GBASIC legt die Farbinformation (entspricht den Farbnum- 
mern) ab der Stelle O im Buffer ab. 


Fuer alle CPC’s 


Fuer alıe spe’ 


Fusr alle Cfc’z 
Fuer alle CPC’s 
Fuer alie CPC’s 
Fuer alle CPC’s 
2'999 sIIls eud 
Enns SIIS Chbc,® 
ver alle CPRC “Ss 
Fuer alla CRC’s 

Fuer all 


Fuer alle CPC’s 


fuer alle crei® 
Fuer älle SPC’, 
ger alle CR ’s 
», 


Ga, 


"tr, = 
Cr 
$ 
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Fuer alle GRr’s 
»1 $ 
Pit SA 


5 
PC®s 
Fuer alle CPC’3s 
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GBASIC 


- 30 neue 
Grafikbefehle 


Diese Programme ermöglichen die Generierung und Ver- 
waltung von 30 neuen, als RSX eingebundenen Grafikbe- 
fehlen. 


2. GBASIC zieht den Strich nicht immer von der aktuellen Gra- 
fikposition zur angegebenen, sondern genaugenommen immer 
von links nach rechts. So kann es vorkommen, daß die Daten 
im Buffer genau spiegelverkehrt sind. (Abhilfe: — DREHE) 


ITDRAWR;,x.y 
Dasselbe wie bei TDRAW, nur daß die Koordinaten relativ zur 
aktuellen Position berechnet werden (— DRAWR) 


IWDRAW,x y‚Bufferpos. 

Dieser Befehl gibt die Farbinformation die im Buffer ist wie- 
der als Linie auf dem Bildschirm aus. Hierbei zieht er eine Linie 
von der aktuellen Grafikposition zur angegebenen, legt aber jetzt 
nicht nur Punkte gleicher Farbe ab, sondern die Farben die im 
Buffer festgehalten sind. Der 3. Wert (< Bufferpos. >) gibt an, 
von welcher Stelle im Buffer an die Farben ausgelesen werden 
sollen. Dieser darf einen Wert von 0-640 annehmen. Auch hier 
zieht er immer von links nach rechts. 


IWDRAWR;,3,x y‚Bufferpos. 
Macht dasselbe die WDRAW, nur relativ. 


ITWDRAW,x1. y1,x2.y2,x3,y3,x4,y4,Bup 

Dieser Befehl kombiniert TDRAW und WDRAW. 

1. GBASIC liest eine Linie von xl/yl nach x2/y2 in den Buffer 
ein. 

2. Die Farbinformation wird von x3/y3 nach x4/y4 ab Buffer- 
position Bup wieder abgelegt. 


IBUFFER, < Bufferadresse > 

Legt den Buffer für T/WDRAW an die Adresse < Bufferadres- 
se>. Bei T/WDRAW’s wird nun der Buffer an dieser Stelle be- 
nutzt. Die Bufferadresse muß > &4000 ( >16384) sein. Doch 
einige Worte zu den Buffern bei GBASIC: 

GBASIC reserviert 1280 (&500) Bytes als Buffer. Zum einen 
braucht er alle 1280 Bytes beim RASTER-FILL. T/WDRAW 
— Aktionen greifen auch auf diesen Buffer zurück. Das sind 
standardmäßig die unteren 640 Bytes, die oberen 640 können 
aber auch als 2. Aushilfsbuffer benutzt werden. Dieser kann mit 
diesem Befehl anselektiert werden. (Bufferadressen siehe GTU- 
NER, Merkzettel). 


IBEEK, < Bufferpos. > , # Integervariable 

Liest den Inhalt der angegebenen Bufferstelle (Buffpos. ‚0-640) 
in die Variable ein. Hierbei wird die Farbinformation an die- 
ser Stelle als INK-Farbstift (wie alle Farben sonst auch) ange- 
geben. 
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Die Variable muß vom Typ INTEGER sein (—DEFINT oder 
ä und schon einen Wert haben. (z.B.l). 
Bsp.: v%=0:1BEEK ‚1, #v%:?7 v% 


IBOKE, < Bufferpos. > , # Integervariable 
Legt die Farbnummer an der angegebenen Stelle im Buffer ab. 
Bsp.: IBOKE,‚1,1 


ILEN, # <INT-Variable > 

Dieser Befehl übergibt eine Zahl (0-640) in die Integervariable. 

Für den Wert gibt es zwei Bedeutungen: 

— Nach TDRAW: Gibt die Bufferstelle 

— lan, an der die letzte Farbinformation abgelegt wurde. 

— Nach WDRAW: Gibt die Bufferstelle -1 der zuletzt ausge- 
gebenen Farbinfomation aus. 

Beachte: Richtige Übergabe der Variablen. 

Bsp.: 1% =0:ILEN, #1%:? 1% 


IENG, < Eng-Zahl > ,< Ink-Nummer > 

Dieser Befehl läßt die Farbinformation im Buffer zusammen- 
rücken. Wie stark dies geschehen soll, hängt vom 1. Parame- 
ter ab. Je kleiner er ist, desto stärker wird der Buffer zusammen- 
geschoben. Bei 1 als <ENG-Zahl> wird z.B. jede 2. Farbin- 
formation verschluckt. Allgemein ergibt sich folgender Zusam- 
menhang: Jede <Eng-Zahl>+1 te Farbinformation wird 
verschluckt. 

Hierbei wird hinten Bufferplatz frei, der mitder <INK-Num- 
mer> aufgefüllt wird. 

Bsp.: IENG,2,0 


IBREIT 

Hier geschieht das Gegenteil wie bei ENG. Der Bufferinhalt 
wird — vorgeschriebenermaßen — auf das doppelte aufgebla- 
sen. Jeder Farbpunkt wird also verdoppelt. 

IWANDEL, <1.Farbe>,<2.Farbe>,A,L 

Dieser Befehl bearbeitet einen Teil des Buffers. Dieser Teil wird 
durch A und L beschrieben — dem »A«nfang und der »L«änge 
des Teilstücks. Diese Art der Teildefinition taucht auch bei an- 
deren Befehlen wieder auf. 

Der o.g. Bereich wird nach der 1. Farbe (INK-Farbnummer) 
durchsucht. Findet er die 1. Farbe, wird diese durch die 2. aus- 
getauscht und GBASIC sucht weiter. 

Beachte: A und L dürfen zusammen nicht > 640 (&280) sein. 
Bsp.: IWANDEL ‚1,2,0,640 

— Alle Farben 1 werden im gesamten Buffer zu Farbe 2. 


IDREHE,A,L 

Dreht den Teilbereich des Buffers (Anfang, Länge) um. 
Bsp.: IDREHE,0,640 

Dreht den gesamten Bufferinhalt. 


IRECHTS, <Wieviel Punkte >,A,L 

Der Teilbereich wird um < Wieviel Punkte > nach rechts ko- 

piert/verschoben. 

— Einen Befehl »LINKS« braucht man wegen des 3. Parame- 
ters bei WDRAW nicht. 

— Alle der Parameter müssen zusammen < 640 (&280) sein. 

Bsp.: IRECHTS,10,0,630 

— Verschiebt den gesamten Bufferinhalt um 10 Punkte nach 

rechts. 


IFILL,<Farbe>,A,L 

Dies ist nicht der RASTER-FILL! Hier wird nur der Teilbereich 
(A,L) mit der <Farbe> aufgefüllt. Löschen des Buffers: 
IFILL ,‚0,0,640 


IVORNE, Anfang,Farbe, Flagge, # INT-Var 

Dieser Befehl durchsucht den Bufferinhalt von VORNE nach 
hinten, am ANFANG angefangen nach der FARBE. Die Stel- 
le wird in der INTeger VARiablen übergeben. Wurde nichts ge- 
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funden, steht dort —1. Die FLAGGE gibt an, wie gesucht wird. 
Wenn: 

FLAGGE=!1: Die Farbe gefunden wurde 

FLAGGE=0: Eine andere Farbe gefunden wurde. 

Bsp.: v%=0:1VORNE.0,1,0,#v%:? v% 

Der Buffer wird von VORNE ab Stelle O nach einer FARBE 
< >1 (FLAGGE=0) gesucht: 

Gefunden: v%=Stelle 

Nicht gefunden: v%=-1 


IHINTEN, Anfang,Farbe,Flagge, # IN-Var 

Durchsucht den Buffer ab ANFANG von HINTEN aus. Die an- 
deren Parameter sind gleich wie bei VORNE. 

Bsp.: v%=0:1HINTEN,400,1,1,#v%:? v% 

Der Buffer wird ab Stelle 400 von HINTEN nach vorne nach 
der Farbe 1 (FLAGGE=]) durchsucht. 


ISCRDEF, < Adresse > 

GBASIC erlaubt es, einen 2.Bildschirmspeicher im RAM zu 

verwalten. Dieser Befehl legt die Adresse für diesen fest. 

— Die Adresse muß > &4000 sein. 

— Der 2.Bildspeicher sollte durch MEMORY (— Handbuch) 
geschützt sein. 


ISCR1 ISCR2 

Diese beiden Befehle erlauben es, zwischen dem normalen Bild- 
schirmspeicher (1,Anfang &C000,immer auf Monitor) und ei- 
nem 2. Bildschirmspeicher (—SCRDEF, nie von alleine sicht- 
bar) hin und her zu schalten. 

ISCRI: Normalbildschirmspeicher 

ISCR2: 2. Bildschirmspeicher 

Was heißt hier aber »schalten«? 

Folgende Befehle beziehen sich nun nicht mehr auf den norma- 
len Bildschirmspeicher, sondern auf den mit ISCR<X> se- 
lektierten: 

ITDRAW(R); IWDRAW (R); ITWDRAW; 

IPRASTER und auch: 

DRAW (R);PLOT(R);Textausgabe im TAG- 

Modus (—Handbuch, TAG, TAGOFF) 

Bsp.: MODE | 

MEMORY & 4FFF:ISCRDEF,&5000 

ISCR2:MOVE 0,0:DRAWR 640,400 

ISCRI 

So wurde nun ein Strich im 2. Bildspeicher (ab &5000=20480) 
gemacht. Auf dem Monitor hat sich nichts geregt. Mit IREIN 
(—) kann nun der 2. Speicher hereingeholt und die Linie be- 
wundert werden. 
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1. Es darf keine Grafikausgabe mit IWIDTH auf dem 2. Bild- 
speicher geben! 

2. Ein Hardware-Scroll (verschieben des gesamten Bildschir- 
mes nach oben oder unten) sollte vermieden werden. Es kön- 
nen Fehler auftreten. 


IREIN (‚L,R,O,U,X,Y) 

Mit diesem Befehl kann man ein Bild (oder nur ein Teil davon) 
aus dem 2. Bildschirmspeicher in den normalen Speicher her- 
REINkopieren. Hier gibt es zwei verschiedene Formen des Be- 
fehls: 

a) REIN ohne Parameter: der ganze Bildschirmspeicher wird 
kopiert. 

b) REIN mit 6 Parametern: Hier wird nur ein Teil-Rechteck ko- 
piert. Aus einem beliebig gelegten Rechteck im 2. Bildschirm- 
speicher werden die Daten in ein gleich großes, aber auch be- 
liebig platziertes Rechteck im 1. Speicher kopiert. GBASIC 
braucht also Größe und die beiden Positionen der Rechtecke 
oder Fenster (WINDOWs). Das Fenster wird wie bei der WIN- 
DOW Angabe im Mode 2 definiert: 
»L«inks,»R«echts,»O«ben,»U«nten 

Dies definiert Größe und Platz des Windows im 1. (normalen) 
Bildspeicher. Für das Fenster, aus dem die Daten kommen (das 
für den 2. Bildschirmspeicher), brauchen wir nur noch die 
Koordinaten der linken oberen Ecke: 

"Y:Koor. (1-25) 

’X-Koor. (1-80) 

Beachte: Bei Hardware-Scroll gibt es Fehler und Verschieb- 
ungen. 

Bsp.: IREIN,1,40,1,25,40,1 

Holt die rechte Hälfte des Bildschirms aus dem 2. Speicher und 
kopiert ihn an die linke Hälfte im normalen Speicher. 


IRAUS (L,R,O,U,X,Y) 
Dieser Befehl macht genau das gleiche wie REIN, nur wird hier 
vom normalen in den 2. Speicher RAUS- kopiert. 


ICHANGE (L,R,O,U,X,Y) 

Dieser Befehl ist wieder ähnlich den Befehlen REIN/RAUS; so 
ist auch die Parameterauswertung gleich. Hier werden aber die 
Bildschirminhalte gegenseitig ausgetauscht. So wechselt z.B. 
CHANGE in Reinform die beiden Bildschirmspeicher aus. Das 
was im 1. Speicher sichtbar war, ist nun im 2. und umgekehrt 
ist der 2. Speicher nun sichtbar. Bei CHANGE gehen also keine 
Daten verloren, es wird nichts überschrieben. 


IWIDTH,xy 
Legt die Größe eines Grafikpunktes bei PLOT(R), DRAW (R), 


W/TDRAW (R), PRASTER und bei Textausgabe mit TAG fest. 
Die Größe des Grafikpunktes kann in X-(Breite) und Y-(Höhe) 
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Koordinaten festgelegt werden. Hiermit kann also die Strich- 
stärke bei DRAW festgelegt werden (!). Wird als X-Koordina- 
te 0 angegeben, so wird die WIDTH-Routine ausgeschaltet (Gra- 
fik mit IWIDTH,1,1 ist langsamer als abgeschaltete mit 
IWIDTH,0,0). 

Beachte: 


1. Die WIDTH-Ausgabe darf nicht auf dem 2. Bildschirm er- 
folgen. 

2. Wenn der Grafikpunkt rechts oder unten über den Bildschirm 
hinausgeht, wird er links oder oben weitergeführt. 

3. Die Koordinaten sind physikalisch und modeabhängig: 

— Nullpunkt ist immer links unten 

— Y-Koordinaten von 0 bis 199 

— X-Koordinaten modeabhängig: 


MODEO 00-159 
MODE _0-319 1 
MODE _0-639 


2. 
4. X- und Y-Koordinaten dürfen bei WIDTH 255 nicht über- 
schreiten. 


Bsp.:!WIDTH,,160,199:PLOT 0,399,0 
löscht im MODE 1 die linke Hälfte des Bildschirms. 


IWIDTH,3,3:MOVE 0,0:DRAW 640,400 
Zieht einen diag., dicken Strich 


IENCODE, < Farbnummer >, # <INTeger-Var > 

Kodiert die Farbnummer in eine Bitmaske und übergibt diese 
in die Variable. Die Bitmaske wird bei den Befehlen PRASTER 
und RFILL besonders wichtig bei der RASTER-Definition. 
Auch bei W/TDRAW’s werden die Farben in dieser, übrigens 
in jedem Mode anderen Bitmaske, in den Buffer eingetragen. 


IGMODUS, <0-4> 


Die Schneider haben verschiedene Grafikmodi bei 
PLOT/DRAM ...: 


0: FORCE Mode Normalmodus 
1: XOR Mode Invertiert 

2: AND Mode 

3:OR Mode 

und bei GBASIC einen neuen: 
4:»NORCE« Mode 


Die Grafikmodi müssen unter GBASIC mit diesem Befehl an- 

gewählt werden! Veränderungen mit Steuerzeichenfolgen set- 

zen GBASIC außer Gefecht. Der 4. Modus setzt Punkte wie bei 

FORCE (also normal), außer es wird mit der Farbe 0 geplotet, 

dann wird nämlich nichts getan. (—»SHOW«) 

Bsp.: IGMODUS,2 AND-Mode einstellen 

Nun ein umfangreicher Befehl: 

IPFEIL ‚fl ‚fr, fo,fu,ascii-links,-rechts,-oben,-unten ‚wait, 
x-step,y-step, @X,@Y,@F 

Der Befehl läßt einen Pfeil in einem definierten Fenster durch 

Tastendruck bewegen. Die Routine braucht 3 INTVariablen. Die 

Variablen X und Y geben die aktuelle Position an. Sie sind mit 

physikalischen Koordinaten anzugeben (— WIDTH). Wird die 

Routine durch Drücken einer falschen Taste, die nicht zur Pfeil- 

steuerung dient, beendet, so enthalten X und Y die akt. Koor- 

dinaten und F den ASCI- Code der zuletzt gedrückten Taste. 

Welche Tasten den Pfeil steuern, wird auch angegeben: 

ASCI-Links: ASCII-Code für Pfeil nach links bewegen 

ASCII-Rechts ... 

Das Fenster, in dem sich der Cursor bewegen darf, wird durch 

4 Parameter angegeben. Sie beinhalten physikalische Koordi- 

naten: 

fl: Fensterbegrenzung links 

fr: rechts ; fo: oben ; fu: unten 

<Wait>, ein Wert von 0—255 erzeugt 

bei höheren Werten eine Verzögerung des Pfeils. 
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<X-step> & <Y-step> sagen, in wie großen Schritten der 

Pfeil in X- bzw. Y-Richtung bewegt wird. 

Bsp.: MODE 1:DEFINT x ,y,2:x=160:y=100:speed key 20,1: 
IPFEIL ‚0,319,199,0,242,,243,240,241,0,2,2,#x,#y, #f 

läßt den Pfeil mit den Cursortasten ab der Bildschirmmitte auf 

dem ganzen Bildschirm bewegen. Eine andere Taste als die Cur- 

sorsteuerung bringt den Abbruch des Befehls. 


IZEIGE,x,y 

Bildet den Pfeil an der physikalischen Koordinate (— WIDTH) 
ab. Der Pfeil wirkt invertierend, d.h. einmal an einer Stelle dar- 
gestellt, kann er ohne den Hintergrund zu verändern, durch 
nochmaliges Setzen wieder gelöscht werden. 

Bsp.: IZEIGE ‚160,100:WHILE INKEY$=““ 

malt einen Pfeil und löscht ihn auf Tastendruck wieder. 


IRFILL, #raster$ 

Dieser leistungsfähige Befehl, abgeleitet aus der FILL-Routi- 
ne im Schneider International (4/86), füllt eine beliebig begrenz- 
te Fläche ab der akt. Grafikposition (mit »MOVE« gesetzt) mit 
einem bestimmten mehrfarbigen (!) Muster aus. Das Muster, 
auch Raster genannt, ist im String (in diesem Fall) raster$ ent- 
halten. Das Raster baut normalerweise auf einer 12x12 großen 
Matrix auf. Die Matrixgröße kann in weiten Grenzen mit dem 
Programm »GTUNER« verändert werden. Einzige Grenze bil- 
det die Stringlänge von 255 Zeichen, in denen die Farbinfor- 
mationen des Rasters ja abgelegt werden müssen. Und so wer- 
den die Daten in den String abgelegt: 

Zuerst 12 Mal (oder X-Breite bei anderer Größe) CHR$(I), 
dann Farbdaten, hier 144 Stellen (oder XY Stellen bei anderer 
Größe) dann wieder 12 Mal CHR$() (— entspr.: 
STRING$(12 1) 

Wie sind aber die Farbdaten (die 144 Stellen in der Mitte) ge- 
nauer definiert? Wir gehen einmal davon aus, daß Sie ihr Ra- 
ster kennen und evtl. schon auf einem karierten Stück Papier 
notiert haben. Die Farbdaten werden nun aus dem Raster von 
oben links nach unten rechts zeilenweise geLESEN (so, wie man 
liest!). Als Farbdaten meine ich die Farbnummer (oder INK- 
Stift) eines Punktes. Nun habe ich die Farbnummer meines 
Punktes, muß diese mit IENCODE in eine Bitmaske umwan- 
deln und den erhaltenen Wert mit CHR$ an den String an- 
hängen: 

a%=\(Farbnr. =1):IENCODE,a% , #3%:1$=r:$+chr$(a%) 
(— RESIGNER) 

Beachte: 

l. Stringübergabe mit Klammeraffen 

2. Ein in einem Mode generiertes Raster ist in anderen Modi 
nicht gleich. 

3. Bei Speicherknappheit oder sehr komplizierten Figuren läßt 
RFILL Lücken, die durch nochmaliges Füllen geschlossen wer- 
den können. 

4. Die Platzierung des Rasters ist nicht von der Startkoordina- 
te beim Füllen abhängig! 

5. RFILL bleibt beim Füllen im Grafikfenster (— ORIGIN; 
CLG) 


IPRASTER;,x y, #raster$ 

Dieser Befehl platziert das Raster an die physikalischen Koor- 
dinaten x/y. Raster$ gibt das Raster an. (— RFILL). 

Nun aber zu den Listings (Li.): 

Li.1:(GDATA) Dieses Programm liest GBASIC aus den Data’s 
in den Speicher und paßt es automatisch an den Schneider, den 
Sie haben, an. GBASIC wird dann als Binärdatei »PROBE« ab- 
gespeichert. Auf diese Datei greifen nun Listing 2 und 3 zurück. 
Li.2:(Gtuner):Mit diesen Listing kann GBASIC noch verän- 
dert werden. Hier die einzelnen Menüpunkte: 

1 — GBASIC verschieben: Nach Eingabe der End- oder An- 
fangsadresse wird GBASIC dorthin verschoben. Die akt. End- 
und Anfangsadresse wird auch oben im Hilfsfenster angezeigt. 
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2 — Merkzettel: Hier werden, entweder auf Drucker oder Bild- 
schirm, die wichtigsten Daten der aktuellen GBASIC-Version 
ausgegeben. So auch das Stringformat bei RFILL/PRASTER. 
3 — Rastergröße: Hier kann die Rastergröße verändert werden. 
(-RFILL). 

4 — GBASIC abspeichern: Nach Eingabe des Dateinamens wird 
GBASIC auf Disk oder Kassette abgespeichert. Wenn man nun 
GBASIC in einem Programm benutzen will, ist folgendes ins 
Programm zu schreiben 

MEMORY <akt. Anfangsadresse > -I 

LOAD“ < Dateiname >“, <akt. Anfangsadr > 

CALL < Akt. Anfangsadresse > 

So kann sich jeder sein persönlich gebrauchtes GBASIC zusam- 
menstellen. 

Li.3:(SHOW) dieses Programm demonstriert die Fähigkeiten 
von GBASIC recht eindrücklich. Es muß nicht unbedingt ab- 
getippt werden, dient nur zur Analyse von Programmtechniken 
mit GBASIC 

Li.4:(RESIGNER). Zeigt nochmals den Aufbau eines Rasters 
als Programm. 

GBASIC — INTERN 

Hier möchte ich die grobe Funktionsweise des Programmes et- 
was erläutern. Das Programm entstand schrittweise. Zuerst 
T/W-DRAW, dann die Verwaltung des 2. Bildschirmspeichers 
und am Ende der Raster- Fill. Anfangs dachte ich nicht, daß 
GBASIC so groß werden würde, aber mir fiel schrittweise im- 
mer etwas neues ein. 

GBASIC arbeitet bei fast allen Funktionen mit der SCR-Write 
In- direction. Wenn der CPC einen Grafikpunkt (oder mehre- 
re) ausgeben will, so springt er an eine Adresse im RAM, die 
normalerweise auf den aktuellen Grafikmodus zeigt. Wird nun 
diese Adresse verbogen, was GBASIC des öfteren tut, so läuft 
jeder Punkt, der bei: DRAW / PLOT / Textausgabe mit TAG 
ausgegeben wird, über die eigene Routine. 

1. TDRAW. Der Punkt wird nicht gedruckt, sondern im Buf- 
fer festgehalten. Dies, während er eine Linie zieht. 

2. WDRAW. Der Punkt wird gesetzt, nur die Farbe wird aus 
dem Buffer geholt. 

3. Das Betriebssystem gibt den Punkt u.a. mit der Bildschirm- 
speicheradresse an. Beim Arbeiten mit dem 2. Bildspeicher 
wird also nur von dieser Adresse ein Wert abgezogen. Schon lan- 
det er im 2. Speicher. 

4. WIDTH. Anstelle eines kleinen Punktes, wird ein entspre- 
chend großer gemacht. 

Durch geschicktes Verbiegen der Adressen können diese Funk- 
tionen auch gemischt werden (z.B. WIDTH & WDRAW,; 
TDRAW & 2. RAM usw.). Dann kann ich Ihnen nur noch gu- 
tes Programmieren und viel Spaß wünschen! = 
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Te nn 
10 REM Raster-Designer [825] 2,12,91,C9,FE,02,C2,DD, 2045 
20 REM (272) 270 DATA 93,DD,6E,02,DD,66,03,CD,59,95,C [2982] 
30 REM Uebergibt das Raster im Data-Feld i [4045] D,6E,95,7E,CD,2F,BC,C3, 2474 
n r$ 280 DATA 9D,93,FE,02,C2,DD,93,DD,6E,02,D [2625] 
40 REM Die Zahlen in den Datas geben die F [3227] D,66,03,CD,59,95,CD,6E, 2539 
arbnummer 290 DATA 95,DD, 7E,00,CD,2C,BC,77,C9,FE,O [2948] 
50 REM in Hexadezimalen Ziffern an. [2078] 1,C2,DD,93,2A,12,91,CD, 2480 
60 REM [272] 300 DATA 76,95,EB,DD,6E,00,DD,66,01,C3,8 [3493] 
70 REM [272] 0,95,FE,02,C2,DD,93,DD, 2668 
80 REM [272] 310 DATA 66,02,2E,00,22,27,91,2A,10,91,5 [3306] 
90 INPUT "Mode (0-2) ";a:IF a<O OR a>2 THE [1816] 4,5D,01,80,02,ED,AO,E2, 1502 
N 90 320 DATA 31,92,D5,ED,5B,27,91,1C,7A,BB,2 [2986] 
100 MODE a:DEFINT v:v=O:READ x,y:r$=STRING [3487] 0,1B,23,1E,00,0B,78,B1,1689 
$(x,1)’ obere i-er Reihe 330 DATA 20,13,D1,B7,ED,52,44,4D,62,6B,1 [2977) 
110 RESTORE 150 [749] 3,DD, 7E,00,CD,2C,BC, 77,2034 
120 REM Zuerst die Groesse des Rasters: [2437] 340 DATA ED,BO,C9,ED,53,27,91,D1,18,CF,2 [3637] 
130 DATA 12,12 [413) 1,80,02,CD,6E,95,EB, 21, 2453 
140 REM dann die Farbdaten [1300] 350 DATA 40,01,CD,6E,95,01,80,02,ED,A8,2 [30661 
150 DATA 123456789ABC [894] 3,ED,A8,EA,SA,92,C9, FE, 2430 
160 DATA 23456789ABCD [868] 360 DATA 04,C2,DD,93,DD, 7E,04,CD,2C,BC,5 [4139] 
170 DATA 3456789ABCDE 757] F,DD, 7E,06,CD,2C,BC,F5, 2484 
180 DATA 456789ABCDEF [1360] 370 DATA D5,CD,1A,94,D1,F1,04,BE,CC,89,9 [3081] 
190 DATA 56789ABCDEFO [695] 2,23,0D,20,F8,05,20,F5,2333 
200 DATA 6789ABCDEFO1 (801) 380 DATA C9,73,C9,FE,02,C2,DD,93,CD,1A,9 [2057] 
210 DATA 789ABCDEFO12 [1228] '4,E5,50,59,19,EB,E1,CB, 2800 
220 DATA 89ABCDEFO123 [228] 390 DATA 38,CB,19,1A,ED,AO,1B,1B,2B, 77,2 [2042] 
230 DATA SABCDEFO1234 (815) 3,EA,9D,92,C9,FE,03,C2, 2147 
240 DATA ABCDEFO12345 [326] 400 DATA DD,93,DD,5SE,00,DD,56,01,DD,6E,O [3707] 
250 DATA BCDEFO123456 [1001] 2,DD,66,03,19,E5,4B,42,2045 
260 DATA CDEFO1234567 [814] 410 DATA DD,5E,04,DD,56,05,19,CD,59,95,C [2968] | 
270 FOR n=1 TO y:READ as: IF LEN(a$)<>x THE [3303] D,6E,95,EB,E1,CD,6E,95, 2487 | 
N PRINT"DATA ERROR !":END 420 DATA 03,ED,B8,C9,FE,03,C2,DD,93,CD,1 [2437] | 
280 FOR m=i TO x:a=VAL("&"+MID$(as,m,1)):! [2706] A,94,54,5D,13,DD, 7E, 04, 2370 | 
ENCODE, a,@v 430 DATA CD,2C,BC,77,ED,BO,C9,CD,32,94,D [3031] | 
290 r®=r®+CHR$(v):NEXT m:NEXT n (2134) 5,E5,21,80,02,59,50,B7,2530 | 
300 r$=r$+STRING$(x,1) [972] 440 DATA ED,52,44,4D,E1,D1,CB,CA,CD,6A,9 [3345] 
310 !PRASTER, 160, 100, @r®#:END [1474] 4,C3,FA,91,CD, 32,94, CB, 2958 
450 DATA 8A,CD,6A,94,C3,FA,91,FE,01,C2,D [3351] 
D,93,DD,6E,00,DD,66,01,2659 
10 MEMORY &8FFF [207). 460 DATA CD,67,95,EB,21,00,C0,B7,ED,52,2 [2908] 
20 DATA 21,00,00,22,12,90,01,14,90,21,0 [3184] 2,0E,91,C9,21,00,00,22,1880 
8,91,CD,D1,BC,C3,D5,95, 1739 470 DATA 0C,91,C9,2A,O0OE,91,18,F7,21,3B,9 12934) 
30 DATA 00,00,70,90,C3,35,91,C3,3F,91,C L2783) 3,22,AF,94,C3,96,94,EB, 2154 | 
3,49,91,C3,57,91,C3,65, 2188 480 DATA ED,BO,C9,21,3C,93,18,F1,21,49,9 [3796) | 
40 DATA 91,C3,A9,91,C3,BE,91,C3,D6,91,C [2523] 3,18,EC,1A,ED,AO,2B, 77,2217 
3,EF,91,C3,04,92,C3,4A, 2931 490 DATA 23,EA,49,93,C9,FE,02,C2,DD,93,D [3199] 
50 DATA 92,C3,63,92,C3,8B,92,C3,A9,92,C [2830] D,7E,02,B7,28,24,3A,29, 2215 
3,D4,92,C3,E9,92,C3,02,2900 500 DATA 91,B7,20,11,2A,E8,95,22,FA,95,2 [3234) 
60 DATA 93,C3,0D,93,C3,26,93,C3,2D,93,C [2566] 1,EC,95,22,E8,95,3E, FF, 2383 
3,32,93,C3,3F,93,C3,44,2329 510 DATA 32,29,91,DD, 7E,00,32,2B,91,DD,7 [3439] 
70 DATA 93,C3,53,93,C3,92,93,C3,AA,93,C [2554] E,02,32,2A,91,C9,3A,29,1707 
3,13,9C,C3,D3,9D,C3,39, 2757 520 DATA 91,B7,C8,2A,FA,95,22,E8,95,AF,3 [2826) | 
80 DATA 9E,C3,88,9E,54,44,52,41,D7,54,4 [2584] 2,29,91,C9,FE,02,C2,DD, 2667 
4,52,41,57,D2,57,44,52,1994 530 DATA 93,DD, 7E,02,CD,2C,BC,5F,16,00,D [3052] | 
so DATA 41,D7,57,44,52,41,57,D2,54,57,4 [3229] D,6E,00,DD,66,01,CD, 80, 2038 
4,52,41,D7,42,55,46,46, 1771 540 DATA 95,C9,FE,01,C2,DD,93,DD, 7E,O0,E [3145] 
100 DATA 45,D2,42,45,45,CB,42,4F,4B,C5,4 [2791] 6,07,2A,14,91,28,16,FE, 2274 
C,45,CE,45,4E,C7,42,52,1948 550 DATA 02,2A,16,91,38,0F,2A,18,91,28,0 [2587] 
110 DATA 45,49,D4,57,41,4E,44,45,CC,44,5 [3556] A,FE,03,2A,1A,91,28,03, 1056 
2,45,48,C5,52,45,43,48, 1703 560 DATA 2A,1C,91,3A,29,91,B7,28,04,22,F [3336] 
120 DATA 54,D3,46,49,4C,CC,56,4F,52,4E,C [4230] A,95,C9,22,E8,95,C9, 1E, 1966 
5,48,49,4E,54,45,CE,53, 1905 570 DATA 02,DF,2C,91,CB,09,DO0,23,3A,C8,B [3148] 
130 DATA 43,52,44,45,C6,53,43,52,B1,53,4 [2658] 1,FE,01,3E,88,28,06, 3E, 1865 
93,52,B2,52,45,49,CE,52,1815 , 580 DATA AA,38,02,3E,80,4F,C9,78,B7,C8,7 (2746) 
140 DATA 41,55,D3,43,48,41,4E,47,C5,57,4 [3232] E,A8,B1,A9,A8, 77,C9,DD, 2550 
9,44,54,C8,45,4E,43,4F,1716 590 DATA 6E,00,DD,66,01,CD,4F,95,CD,A7,9 [3601] 
150 DATA 44,C5,47,4D,4F,44,55,D3,50,46,4 [3826] 5,DD,6E,02,DD,66,03,DD, 2268 
5,49,CC,5A,45,49,47,C5, 1852 600 DATA SE,04,DD,56,05,C9,DD,6E,02,DD,6 [4310] 
160 DATA 50,52,41,53,54,45,D2,52,46,49,4 [2621] 6,03,DD,5E,00,DD,56,01,1893 
C,CC,00,00,00,00,00,00,1178 610 DATA D5,E5,19,CD,59,95,E1,CD,6E,95,C [2526] 
170 DATA 00,00,C3,96,C3,96,6B,0C,72,0C,7 [2199] 1,C9,FE,04,C2,DD,93,DD, 3034 
7,0C,7D,0C,F7,93,C3,00, 1792 620 DATA 6E,06,DD,66,07,44,4D,CD,59,95,C [4391] 
180 DATA 00,00,00,00,00,00,00,00,00,00,0 [2194] D,6E,95,DD,5E,04,DD, 7E, 2164 
0,00,94,CA,80,FC,16,FE, 1006 630 DATA 02,16,00,B7,C8,CB,C2,C9,FE,02,C [2161] 
190 DATA 95,0B,FE,CD,52,94,CD,F6,BB,CD,C [2541] 2,DD,93,CD,8C,95,CD,48, 2594 
7,95,C9,CD,52,94,CD,F9, 3130 640 DATA 95,DD,6E,00,DD,66,01,DD,5E,O02,D [3626] 
200 DATA BB,CD,C7,95,C9,FE,03,C2,DD,93,C [3054] D,56,03,C9,7B,CD,2C,BC,2192 
D,01,94,CD,F6,BB,C3,C7,3146 650 DATA SF,7B,CB,42,28,03,BE,18,08,BE,2 [3320] 
210 DATA 95,FE,03,C2,DD,93,CD,01,94,CD,F [3848] 0,04,3D,C3,7F,94,AF,28,1724 t 
9,BB,C3,C7,95,FE,09,C2, 2963 660 DATA 11,CB,4A,28,03,23,18,01,28,0B,7 [23763 | 
220 DATA DD,93,DD,5E,10,DD,56,11,DD,6E,O (3152) 8,B1,20,E1,21,FF,FF,C9,1749 | 
E,DD,66,0F,CD,CO,BB,CD, 2495 670 DATA CD, 76,95,C9,FE,06,28,18,B7,C2,D [3112] | 
230 DATA 8C,95,CD,48,95,DL,6E,OA,DD,66,0 [2875] D,93,21,00,C0,ES,ED,5B, 2524 | 
B,DD,SE,0C,DD,56,0D,CD, 2242 680 DATA OE,91,B7,ED,52,EB,E1,01,FF,3F,C [4515] 
240 DATA F6,BB,CD,C7,95,DD,6E,06,DD,66,0 [3249] D,00,00,C9,21,C8,B1,7E,2382 
7,DD,SE,08,DD,56,09,CD, 2497 690 DATA 32,21,91,3E,02,77,DD, 7E,08,DD,9 [3267] 
250 DATA CO,BB,CD,01,94,CD,F6,BB,C3,C7,9 [1903) 6,0A,DA,39,95,DD,86,02,1928 
5S,FE,01,C2,DD,93,DD,6E, 3062 700 DATA FE,52,D2,39,95,DD, 7E,04,DD,96,0 [2565] 
260 DATA 00,DD,66,01,CD,67,95,22,10,91,2 (3203) 6,DA,39,95,DD,86,00,FE,2513 
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710 DATA 1B,D2,39,95,DD,6E,00,DD,66,02,2 [3324] 1,9C,CD,A8,9D,DA,DD, 93, 2699 
D,25,CD,1A,BC,ED,5B,OE, 1942 1160 DATA CD,E7,9D,ED,53,FF,9B,22,01,9C,C [1947] 
720 DATA 91,B7,ED,52,E5,DD,66,0A,DD,6E,O0 [2016] D,18,BB,E5,21,F0,9B,BE, 2777 
6,DD,56,08,DD,5E, 04,25, 2217 1170 DATA 28,2E,23,BE,28,38,23,BE,28,3F,2 [2381] 
730 DATA 2D,15,1D,DF,32,91,ED,53,23,91,D [3435] 3,BE,28,47,E1,F5,CD,E7, 1977 
1,E5,B7,ED,52,22,25,91,2169 1180 DATA 9D,F1,E5,2A,F7,9B,CD,2E,9D,Ei,E [3624] 
740 DATA E1,0E,00,3A,23,91,47,C5,41,3A,2 (3769) B,2A,F9,9B,CD,2E,9D,5F, 2888 
4,91,4F,E5,CD,AE,94,E1,2109 1190 DATA 16,00,2A,FB,9B,C3,2E,9D, 73,23,7 13759) 
750 DATA CD,26,BC,E5,ED,5B,25,91,B7,ED,5 [2921] 2,C9,3A,F5,9B,6F,26,00, 1940 
2,EB,E1,C1,10,E5,3A,21,2661 1200 DATA EB,B7,ED,52,EB,E1,18,23,3A,F5,9 (3701) 
760 DATA 91,32,C8,B1,C9,CD,32,95,C3,DD,9 [2713] B,6F,26,00,19,EB,E1, 18, 2372 
3,B7,21,00,00,C8,2A,O0E, 2212 1210 DATA 18,E1,D5,3A,F6,9B,5F,16,00,19,D (3130) 
770 DATA 91,C9,2A,10,91,22,12,91,C9,CD,5 [2816] 1,18,0C,E1,D5,3A,F6,9B, 2205 
9,95,CD,6E,95,22,12,91,2051 1220 DATA 5SF,16,00,B7,ED,52,D1,CD,A8,9D,3 (3155) 
| 780 DATA C9,7C,FE,02,D8,C2,DD,93,7D,FE,8 [4841] 8,15,D5,ED,5B,01,9C,CD, 2338 
1,D8,C3,DD,93, 7C,FE,40, 3088 1230 DATA 2A,9E,D1,20,14,E5,2A,FF,9B,CD,2 [3805) 
790 DATA DO0,C3,DD,93,D5,ED,5B,10,91,19,D (4052) A,9E,E1,20,0A,ED,5B,FF, 2397 
1,C9,D5,ED,5B, 10,91,B7,2793 1240 DATA 9B,2A,01,9C,C3,FA,9C,D5,E5,2A,0 [2777] 
800 DATA ED,52,D1,C9,2B, 7E,FE,01,C2,DD,9 [4013] 1,9C,ED,5B,FF,9B,CD,E7,2770 
3,23, 73,23, 72,C9,CD,C0, 2612 1250 DATA 9D,E1,D1,CD,E7,9D,3A,F4,9B,B7,2 (2936) 
810 DATA 95,3A,C8,B1,21,4E,96,FE,02,28,0 [3257] 8,07,47,AF,3D,20,FD,10,2479 
A,21,6B,96,FE,01,28,03, 1739 1260 DATA FA,C3,F3,9C,D5,E5,23,13,E5,2A,E [2983] 
820 DATA 21,94,96,22,E8,95,C9,CD,C0,95,3 [4281] C,9B,CD,2A,9E,30, 1A, 2A, 2523 
A,C8,B1,21,12,96,FE,02, 2385 1270 DATA EE,9B,CD,2A,9E,38,12,E1,3A,EA,9 (2568) 
830 DATA 28,EF,21,3E,96,FE,01,28,E8,21,4 [3640] B,BD,38,0C,3A,EB,9B,BD, 2438 
6,96,18,E3,2A,E8,95,22,2012 1280 DATA 30,06,37,3F,E1,D1,C9,E1,37,18,F (3831) 
840 DATA 1iF,91,C9,2A,1F,91,22,E8,95,C9,2 [2849) 9,FE,02,C2,DD,93,DD,6E, 2509 
1,DD,95,22,CD,B1,C9,2A, 2273 1290 DATA 00,DD,66,01,DD,5E,02,DD,56,03,C [3816] 
850 DATA CD,B1,22,E8,95,18,F1,E5,D5,ED,5 (4229) 3,E7,9D,D5,E5,CD, 1D,BC, 2398 
B,0C,91,B7,ED,52,D1,CD, 2905 1300 DATA 11,05,9C,ED,53,03,9C,11,0E,08,E [3232) 
860 DATA 00,00,E1,C9,D5,3A,2B,91,5F,3A,2 [4521] 5,2A,03,9C,46,23,22,03, 1268 
A,91,57,E5,C5,E5,C5,CD, 2369 1310 DATA 9C,E1,E5,C5,CB,00,30,03,7E,A9,7 (12920) 
870 DATA 00,00,CD,E2,93,15,20,F7,C1,E1,C [2991] 7,CD,E2,93,15,20,F3,C1,2542 
D,26,BC,3A,2A,91,57,1D, 2088 1320 DATA E1,CD,26,BC,16,08,1D,20,DD,Ei,D [2917) 
880 DATA 20,E9,C1,E1,D1,C9,D5,C5,3E,80,0 (4074) 1,C9,3A,FE,9B,BA,CO0, 3A, 2506 
6,08,ED,5B, 12,91,D5,FD, 2664 1330 DATA FD,9B,BB,C9,3E,C8,BD,C9,7C,BA,C [3587) 
890 DATA E1,ES,5F,CB,01,30,0B,C5,4B,FD,4 (3359) 0,7D,BB,C9,2B, 7E,FE,01,2887 
6,00,FD,23,CD, 1E,91,C1,2268 1340 DATA C2,DD,93,23,C9,CD,64,A0,DO,CD,7 (2487) 
900 DATA CB,0B,10,ED,FD,E5,E1,22,12,91,E (2508) E,AO,79,32,D1,9B,32,D2,2757 
1,C1,D1,C9,D5,C5,3E,88, 2807 1350 DATA 9B,06,0C,13,10,FD,01,0C,0C,ED,4 [3435] 
910 DATA 06,04,18,D2,D5,C5,3E,AA,06,02,1 [3619] 3,27,91,E5,3A,D1,9B,4F,1704 
8,CA,D5,E5,C5,56, 1E,80, 2003 1360 DATA 78,32,28,91,1A,47,13,DF,E1,9B,C [3424] 
820 DATA 06,08,CB,01,30,09,7A,A3,28,02,3 [2296] D,E2,93,79,32,D1,9B,3A, 2245 
E,FF,CD,BA,96,CB,0B,10, 1690 1370 DATA 28,91,47,10,E5,E1,3A,D2,9B,32,D [2310] 
830 DATA EF,C1,E1,D1,C9,D5,C5,E5,56,1E,8 [2894] 1,9B,4F,CD,26,BC,ED,4B, 2385 
8,06,04,CB,01,30,15,7A, 2363 1380 DATA Z7,91,06,0C,0D,€ED,23,27,91,20,C 13272) 
940 DATA A3,6F,O0F,B5,OF,B5,O0F,B5,6B,CB,0 (3677) C,C9,CD,80,9F,D8,CD,C6, 2251 
3,38, 03,07,18,F9,5D,CD, 1812 1390 DATA BB,CD,FO0,BB,CD,2C,BC,32,DD,9B,D [3330] 
9850 DATA BA,96,CB,0B,10,E3,E1,C1,D1,C9,D (3303) F,E7,9B,DF,E4,9B,D2,35,3160 
5,C5,E5,56,1E,AA, 06,02, 2554 1400 DATA 9F,ES,FD,E1,D5,DD,E1,CD,A4,9F,C [4027] 
9860 DATA CB,01,30,12,7A,A3,6F,OF,B5,6B,C [2453] D,B4,9F,CD, i1D,BC,3A,DD, 3298 
B,03,38,04,CB,07,18,F8, 1717 1410 DATA 9B,47,FD,23,CD,29,BC,CD,ES,9F,3 [4011] 
970 DATA 5D,CD,BA,96,CB,0B,10,E6,E1,C1,D [2450] A,34,B3,FD,95,38,05,78,2413 
1,C9,2A,12,91,77,23,22,2315 1420 DATA AE,A1,28,EC,FD,2B,CD,26,BC,CD,O [3260] 
9880 DATA 12,91,C9,00,00,00,00,00,00,00,0 [2857] 0,A0,51,59,CD,1C,A0,ES5, 2495 
0,00,00,00,00,00,00,00, 364 1430 DATA C5,CB,01,DC,23,BC,78,42,AE,A1,5 [3092] 
9890 DATA 00,00,00,00,00,DF,CB,9B,C9,DF,C (2493) 7,20,0F,BO0,28,0C,CD,5B, 2023 
E,9B,C9,8C,37,FE,50,37, 2151 1440 DATA A0,38,07,DD,2B,CD,45,9F,DD,23,C [3263] 
1000 DATA FE,00,00,00,00,C3,96,00,00,00,0 (3933) 1,E1,E5,C5,CB,09,DC, 20, 2484 
0,00,00,00,FC,16,FE,CC, 1331 1450 DATA BC,78,43,AE,A1,5F,20,0F,B0,28,0 (3508) 
1010 DATA Bi,FE,FF,16,FE,1A,16,FE,00,00,0 [2908] C,CD,3F,A0,38,07,DD,23, 1827 
0,00,00,00,00,00,00,00, 1264 1460 ‚DATA CD,45,9F,DD,2B,C1,E1,E5,2A,D7,9 [3059] 
1020 DATA 00,00,00,00,00,00,00,00,00,00,0 [1682] B,7E,E1,AE,A1,AE, 77,3A,2793 
0,00,00,00,00,00,00,C0,192 1470 DATA 36,B3,3C,FD,95,30,0D,FD,2B,CD,2 [2958] 
1030 DATA EO,FO,F8,FC,FE,FF,FF,FC,F8,CC,0 [3088] 6,BC,CD,00,A0,78,AE,A1,2303 
C,06,06,FE,OE,C2,DD,93, 3286 1480 DATA 28,A3,CD,2D,A0,2A,DB,9B,7D,B4,C [L3453) 
1040 DATA 21,A0,00,3A,C8,B1,B7,28,0C,FE,O [3705) 8,2B,22,DB,9B,CD, 71,9F, 2462 
2,28,05,21,40,01,18,03, 1289 1490 DATA C3,9B,9E,D5,2A,89,AE,01,03,00,0 [4277] 
1050 DATA 21,80,02,22,FD,9B,26,00,DD,6E,1 [2475] 9,38,07,EB,2A,8D,BO,CD, 1949 
6,CD,26,9E,DA,DD,93,7D, 2108 1500 DATA 2A,9E,38,17,EB,22,89,AE,DD,E5,D [3420) 
1060 DATA 32,EA,9B,DD,6E,14,CD,26,9E,DA,D [3727) 1,FD,E5,C1,2B, 72,2B, 73, 2508 
D,93, 7D,32,EB,9B,DD,6E, 2673 1510 DATA 2B,71,2A,DB,9B,23,22,DB,9B,Di,C 13642) 
1070 DATA 16,BD,D2,DD,93,CA,DD,93,DD,5E,i [2549) 9,2A,89,AE,2B,56,2B,5E, 2044 
A,DD,56,1B,CD, 1C,9E,DA, 2643 1520 DATA 2B,22,89,AE,6E,26,00,C9,FE,01,C [3825] 
1080 DATA DD,93,ED,53,EC,9B,DD,5E,18,DD,5 [3191] 2,DD,93,CD, 7E,AO,2E,0C,2103 
6,19,CD,1C,9E,DA,DD,93, 2727 1530 DATA 26,00,19,22,D3,9B,2A,D5,9B,01,8 [3123) 
1090 DATA ED,53,EE,9B,2A,EC,9B,CD,2A,9E,D [3558] 0,02,AF,77,23,3D, 77,23, 1548 
2,DD,93,DD,6E, 12,DD,66, 2801 1540 DATA 0B,78,B1,20,F5,37,3F,C9,E5,D5,6 [3083] 
1100 DATA 10,DD,5E,OE,DD,56,0C,22,F0,9B,E (3159) 2,6B,19,EB,2A,D5,9B,19,2246 r 
D,53,F2,9B,DD, 7E,0A,32, 2217 1550 DATA 22,D9,9B,D1,E1,C9,E5,D5,FD,ES,E [3024] 
1110 DATA F4,9B,DD,7E,08,32,F5,9B,DD,7E,O [4364] 1,EB,21,C8,00,B7,ED,52, 3160 
6,32,F6,9B,DD,6E,04,DD, 2564 1560 DATA 1E,0C,16,00,CD,C3,9B,2E,0C,26,0 (3213) 
1120 DATA 66,05,CD,30,9E,22,F7,9B,7E,23,6 [2391] 0,CD,C7,9B,E5,DD,ES,E1,2178 
6,6F,EB,CD,1C,9E,DA,DD, 2393 1570 DATA 1E,0C,16,00,CD,C3,9B,E1,19,ED,5 [2018] 
1130 DATA 93,ED,53,FF,9B,DD,6E,02,DD,66,0 [2492] B,D3,9B,19,22,D7,9B,18,2016 
3,CD,30,9E,22,F9,9B,6E, 2495 1580 DATA 34,E5,D5,2A,D7,9B,1E,0C,16,00,B [3403] 
1140 DATA 26,00,CD,26,9E,DA,DD,93,22,01,9 [L3974) 7,ED,52,7E,FE,01,20,05, 1890 


C,DD,6E,00,DD,66,01,CD, 2076 1590 DATA 1E,90,16,00,19,22,D7,9B,18,19,E [2868] 
1150 DATA 30,9E,22,FB,9B,ED,SB,FF,9B,2A,O [3394] 5,D5,2A,D7,9B,1E,0C,16,1592 
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Anwendungen 


1600 DATA 00,19, 7E,FE,01,20,07,1E,90,16,0 L[L2838) 2160 REM 1260 Nullen einfuegen [1214] 
0,B7,ED,52,22,D7,9B,D1,1756 2170 FOR q=1 TO 1260:POKE sp,O:sp=sp+1:NEX [3258] 
1610 DATA E1,C9,E5,D5,FD,E5,D1,2A,D9,9B,7 [3334] T 
B,BE,30,02,18,EF,77,18,2742 2180 zen=-1:G0TO 1700 (868) 
1620 DATA EC,ES5,DS,FD,E5,D1,2A,D9,9B,23,7 [4187) 
B,BE,38,02,18,DD,77,18,2577 
1630 DATA DA,E5,D5,2A,D9,9B,23,23,FD,E5,D [3495] 10 DEFINT a-z [5531 
1,7B,3D,BE,30,09,23,7B, 2424 20 INK O,1:PAPER O:PEN 1:CLS:BORDER 1:INK L3616) 
1640 DATA 3C,BE,38,03,37,18,C2,37,3F,18,B [3116] 2,0:INK 3,6 
E,E5,D5,2A,D9,9B,2B,2B, 1856 30 IF HIMEM<40000 THEN 60’ zweites Laden a [1417] 
1650 DATA 18,E2,FE,03,C2,DD,93,DD,6E,02,D [2918] bfangen 
D,66,03,DD,SE,04,DD,56, 2354 40 MEMORY &8FFF:LOAD"probe" [1455] 
1660 DATA 05,DF,DE,9B,DO0,CD,1D,BC,37,C9,E L[2798) 50 init=&9000:CALL init:MEMORY 20000: !SCRD [3760] 
5,DD,6E,00,DD,66,01,2B, 2418 EF, 20000 
1670 DATA 3E,02,BE,C2,DD,93,23,23,5E,23,5 [2352] 60 MODE 1:x=68:y=300:G0SUB 2960 "Schneider [3158] 
6,E1,C9,00,00 auf 1. Schirm 
1680 MODE 2 1513) 70 !RAUS,1,16,3,10,1,1’ in 2. Schirm ableg [2476] 
1690 RESTORE 20:sp=36864:bz=18:zz2z=20:spe=4 [2344] en 
1108 80 FOR n=240 TO 360 STEP 2:MOVE 8,n:!TDRAW [3947] 
1700 z2=0:ps=0:zen=980 [1239] R,120,0’ 2 kopieren 
1710 READ a$:a=VAL("&"+a$):POKE sp,a:ps=ps [2652] 90 MOVE 136,n:!WDRAWR, 120,0,0:NEXT [1731] 
taız=zti:sp=sp+i: IF z=bz THEN 1730 100 FOR n=360 TO 240 STEP-2:MOVE 8,n:!TDRA [3035] 
1720 IF sp=spe+i THEN 1760 ELSE 1710 [1166] WR,120,0' 3 kopieren 
1730 READ p:zz=zz+10:LOCATE 10,12:PRINT US [4740] 110 MOVE 264, n: !WDRAUWR, 120,0,0:NEXT [17481 
a a int al Zi Zu. | SE 120 FOR n=392 TO 512 STEP 2:MOVE n-384,360 [4459] 
H 2 ae ! :! TDRAWR,O,-120’° 4 kopieren 
1740 IF p<>ps THEN PRINT" Data-Error in";z [5045] 130 MOVE n_ 360: !WDRAUR,0,-120,0:NEXT 213733 
-10:END ELSE PRINT" -> Alles OK !" E = Sa Zen = 
L: 140 FOR n=640 TO 520 STEP -2:MOVE n-512,36 [2742] 
1750 IF zz-10=zen THEN 2160 ELSE 1700 [1316) 0: !TDRAWR,O,-120° 5 kopieren 
1760 sp=36864 [395] 150 MOVE n, 360: :WDRAWR, 0, -120,0:NEXT 11371] 
1770 a=PEEK(6) [1184] 160 LOCATE 14,2:PEN 1:PRINT"Super-Grafik" (2025) 
1780 IF a=128 THEN 1830 [1015] 170 REM Schriftzug [1176] 
1790 IF a=&7B THEN GOSUB 1840:G0T0 1810 [1012] 180 !GMODUS,O:f=1:y=220:FOR i=O TO 2 [1731] 
1800 GOSUB 1940 (855) 190 FOR n=382 TO 368 STEP-2 (699) 
1810 FOR n=1 TO 28:READ ad$,wes:ad=VAL("&" [4043] 200 'FILL,0,0,640:’' Puffer leeren 621.272 
+ad$):wh=VAL("&"+LEFT$(wes,2)) 210 MOVE 208,n:!TDRAWR, 192,0: !RECHTS,1 [3361] 
1820 wI=VAL("&"+RIGHT$(wes,2)):POKE ad,wl: [3638] 0,0,630:!FILL,0,0,10 
POKE ad+i1,wh:NEXT 220 IWIDTH, 1,2°i:FOR m=1 TO i1::!BREIT:: [3334] 
1830 GOTO 2040 [355] ENG, 5,0:NEXT 
1840 REM Zeiger auf Datas fuer 664 stelle [2397] 230 FOR 3=0 TO 610 STEP 30: :!WANDEL,1,f [3396] 
n ‚3,30 
1850 RESTORE 1870:POKE &9BCD,253:POKE &9BD (2350) 240 f=f+1:IF f=4 THEN f=i [855] 
0,253:RETURN 250 NEXT [350] 
1860 REM Datas fuer CPC 664 (1131) 260 MOVE O,y::WDRAWR,620,0,0:y=y-(2°i) [2147] 
1870 DATA 9114,0C70,9116,0C76,9118,0C7B,91 [2699] *2:NEXT 
1A, 0C81 270 y=y+2°i-32:NEXT i [1418] 
1880 DATA 912C,CB4C,912F,1690,9132,0B97,9C L[2314) 280 LOCATE 14,2:PEN 1:PRINT SPACE$(12) [1698] 
1C,B7C3 290 LOCATE 6,25:PEN 1:PRINT"< Bitte eine T [3997] 
1890 DATA 93E7,B7C3,94B3,B7C3,9536,B7C3,95 [2111] aste druecken >" 
90,B7C3 300 !}REIN,62,77,11,18,1,1 [1492] 
1900 DATA 95AB,B7C3,95D2,B7C8,95D6,B7C8,9B [2324] 310 WHILE INKEY$="" [1095] 
CB, DDB3 320 FOR n=1 TO 15:CALL &BD19:FOR m=O TO 3: [3356] 
1910 DATA 9BCE,DD77,9BDE, 1690, 9EBD,B69F,9F [1849] NEXT 
1E,B6A1 330 'IREIN,47+n,61+n,11,18,1,1’ jeweils a [4445] 
1920 DATA 9BE1,B7C7,9BE4,1693,9BE7,1620,9F [1390] us 2. Schirm holen 
47, AE6C 340 NEXT n [366] 
1930 DATA 9F51,BO71,9F5A,AE6C,9F72,AE6C,9F [1920] 350 WEND [390] 
7A, AE6C 360 REM [272) 
1940 REM Zeiger auf Datas fuer 6128 stelle [2719] 370 REM verschiedene Schriften [1043] 
n 380 REM (272) 
1950 RESTORE 1970:POKE &9BCD,253:POKE &9BD [2221] 390 MODE 1:INK 1,24:1NK 2,18: INK 3,6 [1945] 
0,253:RETURN 400 WINDOW#1,1,40,1,2:PEN#1,1:PAPER#1,3:CL [2655] 
1960 REM Datas fuer CPC 6128 [1270] S#i 
1970 DATA 9114,0C74,9116,0C7A,9118,0C7F,91 [2083] 4140 PRINT#1,TAB(14);"Schriftarten" [1664] 
1A,0C85 420 PRINT#1,"Schriftzug :";:LINE INPUT#1,s [2987] 
1980 DATA 912C,CB49,912F,1694,9132,0B9B,9C [2196] % 
1C,B7C3 430 s$=LEFT$(s$,15):CLS:PRINT s#6:!WIDTH,O, [2167] 
1990 DATA 93E7,B7C3,94B3,B7C3,9536,B7C3,95 [2111] o 
90,B7C3 440 REM spiegelnde Schrift [1571] 
2000 DATA 95AB,B7C3,95D2,B7C8,95D6,B7C8,9B [2144] 450 x=10:y=350:FOR n=384 TO 398 STEP 2 [1792] 
CB, DDAE 460 nn=n-384:MOVE O,n:!TDRAWR, 240,0 [2403] 
2010 DATA 9BCE,DD72,9BDE, 1694, 9EBD,B69F,9F [2692] 470 MOVE x,y+nn: !WDRAWR,240,0,0::!WANDEL, [2256] 
1E,B6A1 1,3,0,240 
2020 DATA 9BE1,B7C7,9BE4,1697,9BE7,1624,9F [1637] 480 MOVE x-(nn/2),y-nn: !WDRAWR, 240,0,0 (2851) 
47,AE6C 490 NEXT (350) 
2030 DATA 9F51,B071,9F5A,AE6C,9F72,AE6C,9F [1920] 500 REM 3-D Schrift (910) 
TA,AESC 510 !GMODUS,4 * NORCE - Modus ! [1443] 
2040 SAVE"probe",b,&9000,4244,0:END [1854] 520 x=10:y=300:FOR n=384 TO 398 STEP 2 [1601] 
2050 REM Kuununmun ER [1471] 530 nn=en-384:MOVE O,n::TDRAWR, 240,0 [2403] 
2060 REM * * [403] 540 MOVE x,y*+nn:!WDRAWR,240,0,0 [1432] 
2070 REM * DATAs fuer GBASIC * [1290] 550 IWANDEL, 1,3,0,240:MOVE x-2,y+nn-2::!W [3779] 
2080 REM « * [403) DRAWR, 240,0,0 
2090 REM * generiert "PROBE.BIN" 5 [1769] 560 NEXT: !GMODUS,O [1119] 
2100 REM * * (403) 570 REM gestreift, senkrecht 12378) 
2110 REM * COPYRIGHT SEPTEMBER 1986 x* [1753] 580 f=1:x=10:y=270:FOR n=0 TO 240 STEP 2 (2148) 
2120 REM « * (403) 580 MOVE n,382:!TDRAWR,0,18:!WANDEL,1,f, [3593] 
2130 REM * BY DIETER BRAUN » (2264) 0,20 
2140 REM * * [403] 600 MOVE x+n,y::!WDRAWR,0,18,0 (840) 
2150 REM wu [1471] 610 IF f=1 THEN f=3 ELSE f=i [1088] 
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620 NEXT 
630 REM gestreift, waagerecht 

640 f=1:ıx=10:y=240:FOR n=384 TO 398 STEP 2 
650 MOVE O0,n::!TDRAWR, 240,0: !WANDEL,1,f,O 
‚240 

660 MOVE x,y+n-384: !WDRAWR, 240,0,0 

670 IF f=1 THEN f=3 ELSE f=1 

680 NEXT 

690 REM fett 

700 :!:GMODUS,4:x=10:y=210:FOR n=384 TO 398 

STEP 2 

710 MOVE O,n:! TDRAWR, 240,0 

720 MOVE x,y+n-384: !WDRAWR,240,0,0 

730 MOVE x+2,y+n-384: :WDRAWR,240,0,0 

740 NEXT: !GMODUS, © 

750 REM umgedreht 

760 x=10:y=180:FOR n=384 TO 398 STEP 2 

770 MOVE O0,n:!TDRAWR,240,0 

780 !DREHE, 0,120 

790 MOVE x,y+n-384: !WDRAWR,240,0,0 

800 NEXT 

810 REM auf dem Kopf 

820 x=10:y=166:FOR n=384 TO 398 STEP 2 

830 MOVE O0,n::!TDRAWR,240,0:MOVE x,y-(n-3 
84): !WDRAWR, 240,0,0 

840 NEXT 

850 REM kursiv 

860 x=10:y=120:FOR n=384 TO 398 STEP 2 

870 MOVE O,n:!TDRAWR, 240,0 

880 MOVE x+n-384, y+n-384: !WDRAWR,240,0,0 
890 NEXT 

900 REM eng 

910 x=10:y=90:FOR n=384 TO 398 STEP 2 

920 MOVE O,n: !TDRAWR,240,0::ENG,1,0 

930 MOVE x,y+n-384: !WDRAWR, 120,0,0 

940 NEXT 

950 REM breit 

960 x=10:y=60:FOR n=384 TO 398 STEP 2 

970 MOVE O,n::!TDRAWR,240,0::BREIT 

980 MOVE x,y+n-384: !WDRAWR, 240,0,0 

990 NEXT 

1000 REM hoch 

1010 x=10:y=10:FOR n=384 TO 399 


1020 MOVE O,n:! TDRAWR, 240,0 
1030 MOVE x,y+(n-384)#*2: !WDRAWR, 240,0,0 
1040 NEXT 


1050 REM nach oben 
1060 x=330:y=350:FOR n=384 TO 398 STEP 2 


1070 MOVE O0,n:! TDRAWR, 240,0 
1080 MOVE x,y+n-384: !WDRAWR,240,29,0 
1090 NEXT 


1100 REM nach unten 


1110 x=330:y=330:FOR n=384 TO 398 STEP 2 
1120 MOVE 0,n:!TDRAWR, 240,0 

1130 MOVE x,y+n-384: !WDRAWR, 240, -28,0 
1140 NEXT 


1150 REM mini 
1160 IFILL,0,0,640:x=330:y=290:FOR n=384 T 
0 398 STEP 4 


1170 MOVE O,n:: TDRAWR, 240,0: ENG, 1,0 
1180 MOVE x,y+(n-384)/2::1WDRAWR,240,0,0 
1190 NEXT 


1200 REM kariert + gross 
1210 f=1:ff=3:x=330:y=250:FOR n=384 TO 389 


1220 MOVE O,n:: TDRAWR, 240,0 

1230 FOR m=0 TO 120 STEP 8 

1240 IWANDEL,1,f,m,4: WANDEL, i1,ff,mt+4, 
4:NEXT 

1250 MOVE x,y+(n-384)#2: :WDRAWR,240,0,0 
1260 IF n MOD 4=1 THEN c=f:f=ff:ff=c 
1270 NEXT 


1280 REM diagonai 
1290 !FILL,0,0,240:x=330:y=230:FOR n=384 T 
0 398 STEP 2 


1300 MOVE O0,n::TDRAWR, 240,0 

1310 MOVE x+(n-384)/2,y+n-384: :WDRAWR, 24 
0,-120,0 

1320 MOVE x+(n-384)/2+1,y+n-384+1: 1 WDRAW 


R,240,-120,0 

1330 NEXT 

1340 REM nach unten 

1350 !FILL,0,0,240:x=280:y=300:FOR n=384 -T 
0 398 STEP 2 


1360 MOVE O,n: | TDRAWR,240,0:#DREHE,0,120 
1370 MOVE x+n-384,y::!WDRAWR,O,-240,0 
1380 NEXT 


1390 REM geschwungen 
1400 f=2::!FILL,O,0,240::GMODUS,4:RESTORE 1 
410 
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1410 DATA 2,3,5,10,0 


1420 DEG:FOR m=300 TO 285 STEP -5:READ mm 
1430 x=SIN(m)#300+640:y=C0OS(m)#100+40 
1440 f=f+1:1IF f=3 THEN f=1 

1450 FOR n=384 TO 398 STEP 2 

1460 MOVE O,n: ! TDRAWR, 240,0: ENG, mm,O: 


'WANDEL,1,f,0,240 

1470 MOVE x,y+n-384::WDRAWR, 240,0,0 
1480 NEXT:NEXT:PLOT -2,-2,3:TAG:MOVE 344 
‚73:PRINT s$;:TAGOFF 

1490 REM invers 

1500 f=1:x=330:y=10:FOR n=382 TO 398 STEP 
2 

1510 MOVE O,n: !TDRAWR, 240,0: !WANDEL,O,3, 
0,240: WANDEL, 1,0,0,240 


1520 IRECHTS,1,0,240::BOKE,0,3 

1530 !WANDEL,3,f,0,240:1F f=1 THEN f=3 E 
LSE f=1 

1540 MOVE x,y+n-382: !WDRAWR, 240,0,0:NEXT 


1550 PLOT x,y+n-382:DRAWR 240,0,3 


1560 WHILE INKEY$="":WEND 

1570 REM 

1580 REM Filaechenveraenderung 
1590 REM 


1600 DEG:MODE 1:x=80:y=318:INK 1,1:INK 2,1 
:INK 3,1 

1610 BORDER 0:GOSUB 2960: :GMODUS,O 

1620 FOR n=O TO 140 STEP 20:MOVE 0,400-n:D 
RAWR 200,0,0:NEXT 

1630 FOR n=O TO 140 STEP 20:MOVE n,O:DRAWR 
0,400:NEXT 

1640 !RAUS:CLS: INK 1,24:1INK 2,0:INK 3,6 
1650 FOR n=6 TO 396 STEP 8:MOVE O,n:DRAWR 
640,0,2:NEXT 

1660 FOR n=6 TO 636 STEP 8:MOVE n,O0:DRAWR 
0,400:NEXT 

1670 :GMODUS,4:REM Extra - Grafikmodus ein 
schalten ("NORCE") 

1680 REM Tuer 

1690 FOR n=O TO 60 STEP 4::!SCR2:MOVE n+20, 
379: ! TDRAWR,O,-120 

1700 !SCR1:MOVE n/2+20,360+n/3: !WDRAWR,O 
‚-120,0:NEXT 

1710 FOR n=60 TO 120 STEP 4::SCR2:MOVE n+2 
0,379: : TDRAWR,O,-120 

1720 1SCR1:MOVE 70+n/2,360+(120-n)/3:1WD 
RAWR,O,-120,0:NEXT 

1730 REM Flagge ; 
1740 FOR n=0 TO 120 STEP 2::SCR2:MOVE n+20 
‚379: TDRAWR,O, -120 

1750 !SCR1:MOVE n+170,378+SIN(n#6)#*9::WD 
RAWR,O,-120,0 

1760 NEXT 

1770 REM Flagge senkrecht 

1780 FOR n=0 TO 120 STEP 2::!SCR2:MOVE 20,3 
78-n: !TDRAWR, 120,0 

1790 ISCR1:MOVE 330+SIN(n#6)*9,378-n::WD 
RAWR,120,0,0 

1800 NEXT 

1810 REM Pos. SINUS 

1820 FOR n=0 TO 120 STEP 2::SCR2:MOVE n+20 
‚379::! TDRAWR,O,-120 

1830 ISCR1:MOVE n+490,370+ABS(SIN(n#9) #1 

6)::WDRAWR,O,-120,0 

1840 NEXT 

1850 v%=0O:REM Kugel 

1860 FÜR n=-58 TO 58 STEP 2:!SCR2:MOVE 20, 
318+n:!TDRAWR, 120,0 


1870 ISCR1::LEN,@v%: !FILL,1,v%-1,200:x=S 
QR(3600-n#n):f=(60-x)*2:G0OSUB 2310 

1880 !FILL,0,x,200:MOVE 80-x,120+n: :WDRA 
WR,120,0,0 

1890 NEXT 


1900 REM Scheren + Flagge 

1910 FOR n=0 TO 120 STEP 2::!SCR2:MOVE n+20 
‚379: 1 TDRAWR,O,-120 

1920 ıSCR1:MOVE n+170, (190-n/2)+SIN(n#10 
)#12::!WDRAWR,O,-120,0 

1930 NEXT 

1940 !FILL,O,0,640:REM Diagonal 
1950 FOR n=O TO 240 STEP 2 
1960 IF n<120 THEN :!SCR2:MOVE 20,380-n:1! 
TDRAWR,200,200:G0TO 1980 


- Sinus 


1970 ıSCR2:MOVE n-100,260::TDRAWR, 200,20 
o 

1980 s=S5IN(n#6)#7 

1990 IF n<120 THEN :!SCR1:MOVE 340+s,150- 


n+s: iWDRAWR,200,200,0:G0T0O 2010 
2000 ıSCR1:MOVE 220+n+s,30+s::WDRAWR, 200 
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epc 13 


Anwendungen 


‚200,0 


2010 NEXT 

2020 REM Zick-Zack-Muster ("Eierkarton") 
2030 FOR n=0 TO 120 STEP 2::!SCR2:MOVE 20,3 
78-n::TDRAWR, 120,0 


2040 x=SIN(n#10)*6+6 

2050 MOVE 490+x,182-n::WDRAWR,120,0,0 ’X 
-Zick-Zack im 2. Bildschirm 

2060 NEXT 


2070 FOR n=O TO 132 STEP 2::!SCR2:MOVE 490+ 
n,182::!TDRAWR,O,-120 

2080 !SCRi:x=SIN(n#10)x6+6 

2090 MOVE 490+n,152-x::1WDRAWR,O,-120,0 
Y-Zick-Zack auf’m 1. 

2100 NEXT 

2110 REM Klein in der Mitte 

2120 FOR n=2 TO 122 STEP 4::!SCR2:MOVE 20,3 
78-n: :TDRAWR, 120,0 

2130 ıSCR1::!ENG,1,0 

2140 MOVE 330, 230-n/2::WDRAWR,60,0,0 
2150 NEXT:FOR n!=0O TO 120 STEP 6.6::SCR2:M 
OVE 20,378-n!::TDRAWR, 120,0 

2160 !SCR1::ENG,1,0::ENG,3,0 

2170 MOVE 420, 220-n!/2.6::WDRAWR,60,0,0 
2180 NEXT:FOR n=2 TO 122 STEP 8::!SCR2:MOVE 
20,378-n:!TDRAWR, 120,0 

2190 !SCR1::ENG,1,0::ENG,1,0 

2200 MOVE 490, 210-n/4: !WDRAWR,30,0,0 
2210 NEXT:FOR n=O TO 120 STEP 16::!SCR2:MOV 
E 20,378-n::TDRAWR, 120,0 

2220 ıSCR1::1ENG,1,0:|ENG,1,0::ENG, 1,0 

2230 MOVE 540, 204-n/8: :WDRAWR, 15,0,0 

2240 NEXT:FOR n=O TO 120 STEP 32: :!SCR2:MOV 

E 20,378-n::TDRAWR, 120,0 


2250 iSCR1:!ENG,1,0::1ENG,1,0::!ENG,1,0:!E 
NG,1,0 

2260 MOVE 580, 200-n/16::WDRAWR, 15,0,0 
2270 NEXT 

2280 PLOT -2,-2,1:MOVE 400,16: TAG:PRINT"- 
Eine Taste -";:TÄGOFF 

2290 WHILE INKEY$="":WEND: !GMODUS,0:G0TO 2 
370 


2300 REM Buffer schrumpfen lassen (f Punk 
te wegfallen lassen !) 

2310 p=120:IF f=0 THEN RETURN 

2320 a=p/f:IF a<2 THEN |ENG,1,0:p=p/2:f=f- 


P:GOTO 2320 


2330 !ENG,a-1,0:RETURN 
2340 REM 

2350 REM Fill - Demo 
2360 REM 


2370 WINDOW#1,1,40,1,2:PAPER#1,2:PEN#1,1:B 
ORDER 1::!WIDTH,2,2 

2380 CLS:FOR n=O TO 20:x1=RND*640:x2=RND«6 
40:MOVE x1,2:DRAW x2,368, RND*2+1:NEXT 

2390 :WIDTH,O,O:MOVE 0,0:DRAWR 640,0,1:MOV 
E 0,0:DRAWR 0,400:MOVE 638,0 

2400 DRAWR 0,400: RAUS: x=10:y=250:CLS#1:PR 
INT#1," Raster-FilIl" 

2410 PRINT#1," Definieren Sie Ihr Raster ! 
":GOSUB 3270:x=160:y=100:f=0 

2420 :REIN:CLS#1:PRINT#1," Wohin soll 
ommen ?" 

2430 !PFEIL,0,320,185,0,242,243,240,241,0, 
3,3,0x,0y,@f 


es k 


2440 MOVE x*2,y*2::RFILL,@a$ 

2450 CLS#1:PRINT#1," Noch einmal (J/N) ?": 
GOSUB 3220 

2460 IF f<>1i THEN !RAUS:GOTO 2420 


2470 CLS#1:PRINT#1," Naechster Demo (J/N) 
?":GOSUB 3220 


2480 IF f=1 THEN 2400 
2490 REM 

2500 REM Zoom - Demo 
2510 REM 


2520 !:REIN:CLS#1:PRINT#1," 
Zoomeditor" 

2530 PRINT#1," Selektieren Sie: 
nke Ecke" 

2540 DEFINT x,y,f:x=160:y=100:f=0:0RIGIN O 
‚o 

2550 :!PFEIL,0O,320,185,0,242,243,240, 241,0, 

3,3,0x,0y,@f 
2560 PRINT#1," 
hte Ecke" 

2570 ui=x#2:yil=sy#2::1PFEIL,0,320,185,0,242, 

243,240,241,0,3,3,6x,0y,8f 


untere, li 


obere, rec 


2580 x2=x#2:y2=y#2:IF x1>=x2 OR yi>=y2 THE [3262] 
N 2500 
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- RING$(12,1): 


2590 xa=x2-xi:ya=y2-yil:IF 630/xa<=2 OR 390 
/ya<=2 THEN 2500 

2600 z=0:zz=xa:WHILE zz<640:zz=zz#2:z=z+1: 
WEND:xz=z-1:ax=2"xz 

2610 z=0:zz=ya:WHILE zz<400: 22=zz*2:z=z+1: 
WEND:yz=z-1:ay=2"yz 


2620 IF xarax+tax>=600 THEN xz=xz-i:ax=2"xz 
’ ueberpruefen ob width am Rand! 

2630 IF yaray+tay>=360 THEN yz=yz-l:iay=2"yz 
2640 REM Kopieren 

2650 xx=320-(xaraxtax)/2:yy=200-(yataytay) 


2660 MODE 1::!WIDTH,i1,ay:x=xx:y=398-yy:FOR 
n=y2 TO yiı STEP-2 


2670 ı‘FILL,0,0,640 

2680 !SCR2:MOVE x1,n::!TDRAW,x2,n::SCRi 
2690 FOR m=1 TO xz::BREIT:NEXT: :BOKE,0,0 
2700 MOVE x,y::WDRAWR,640-ax#*2,0,0:y=y-a 
y*2:NEXT 


2710 REM editieren 

2720 BORDER 2:x=ax/2+xx/2:y=((200-ay/2)-yy 
/2)-i:rxg=-xnarax/2t+txx/2 

2730 yg=-(200-yaray/2-ay)-yy/2 

2740 !WIDTH,2,2:PLOT xx-4,404-yy,1:DRAW x 
g*2+4,404-yy:DRAW xg*2+4,yg*2-6:DRAW xx-4, 
y8*2-6:DRAW xx-4,404-yy:!WIDTH,ax,ay 

2750 IF ax=2 THEN x=x-1i 

2760 IF ay=2 THEN y=y-1i 

2770 !ıPFEIL,xx/2,xg,200-yy/2,yg,242,243,24 
0,241,0,ax,ay,@&x,@y,®©f 

2780 IF UPPER$(CHR$(f))="Q" THEN 2810 

2790 t=TEST(x*2,y*2J:t=t+1:IF t=4 THEN t=O 
2800 PLOT x*2-ax+2,y*2+ay,t:GOTO 2770 


2810 REM Zurueckbringen 

2820 :WIDTH,0,0:x=xx+2:y=398-yy:FOR n=y2 T 
0 yi STEP-2 

2830 !FILL,0,0,640 

2840 :SCR1:MOVE x,y 

2850 !ıTDRAWR, 640,0 

2860 !ISCR2 

2870 FOR m=1 TO xz:IENG,1,0:NEXT 

2880 MOVE x1+2,n::!WDRAW,x2,n,O 


2890 y=y-ay#2:NEXT: :SCRi 


2900 !REIN:WINDOW #1,1,40,1,2:PEN #1,3:PAP 
ER#1,2 

2910 PRINT#1,"Noch einmal (J/N) ? 
":PRINT#1 


2920 GOSUB 3220: IF f=0 THEN 2520 

2930 REM Programmende 

2940 MODE 1:PEN 1:LOCATE 17,12:PRINT"E N D 
E* 

2950 GOTO 2950 

2960 REM Unterprogramme 

2970 REM Schneider-Zeichen an x/y Position 
auf den Schirm bringen 

2980 REM 

2990 ORIGIN x,y:DEG::WIDTH,0,0 

3000 PLOT -60,-56,1:DRAWR 120,0:DRAWR 0,11 
6:DRAWR -120,0:DRAWR O0, -116 

3010 PLOT -4,10,2:DRAWR -16,0 

3020 FOR n=180 TO 360 STEP 10 

3030 DRAW SIN(n)#14-20,C0S(n)#14+24:NEXT 
3040 DRAWR 16,0:DRAWR 0,16:DRAWR -16,0 
3050 FOR n=360 TO 180 STEP-10 

3060 DRAW SIN(n)*#30-20,C0S(n)x*30+24:NEXT 
3070 DRAWR 16,0:DRAWR 0,16 

3080 PLOT 4,-6,3:DRAWR 16,0 

3090 FOR n=0 TO 180 STEP 10 

3100 DRAW SIN(n)*#14+20,C0S(n)*14-20:NEXT 
At1O DRAWR -16,0:DRAWR O,-16:DRAWR 16,0 
3120 FOR n=180 TO O STEP-10 

3130 DRAW SIN(n)*#30+20,C0S(n)#30-20:NEXT 
3140 DRAWR -16,0:DRAWR 0,-16 

3150 REM jetzt auffuellen 

3160 ai$=STRING$(12,1)+STRING$(144,240)+ST 
RING$(12,1): REM ink 1 

3170 a2$=STRING$(12,1)+STRING$(144,15)+STR 
ING4(12,1) : REM ink 2 

3180 a3$=STRING$(12,1)+STRING$(144,255)+ST 
REM ink 3 

3190 MOVE 0,0::!RFILL,@ai$:MOVE -10,20: :RFI 
LL,®a1%:MOVE 10,-20:!RFILL,Sai$ 

3200 MOVE -10,0::RFILL,@a28:MOVE 10,0: |RFI 
LL,@a3$ 

3210 ORIGIN 0,0:RETURN 

3220 REM Abfrage j/n 


3230 r$=UPPER$(INKEY$): IF r$="" THEN 3230 
3240 IF r$="J" THEN f=0:RETURN 
3250 IF r$="N" THEN f=1:RETURN ELSE 3230 
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3260 x=320:y=300 

3270 REM Raster - Designer (an Stelle x/y 
in String a$) 

3280 IF LEN(a$s)<>168 THEN as=STRING$(12,1) 
+STRING$(144,0)+STRING$(12,1) 

3290 mx=x:my=y:DEFINT x,y,f::WIDTH,0,0 
3300 !WIDTH,82,112:PLOT mx,my,0::WIDTH,0,0 


’Fenster loeschen (!) 
3310 REM Bildschirmaufbau 
3320 PLOT mx,my,1:DRAWR 164,0:DRAWR O0, -224 
:DRAWR -164,0:DRAWR 0,224 
3330 PLOT mx,my:DRAWR 6, -6:DRAWR 104,0:DRA 
WR 6,6:DRAWR 0,-60:DRAWR -6,6 
3340 DRAWR 0,48:MOVER O0,-48:DRAWR -104,0:D 
RAWR -6,-6:DRAWR 164,0 
3350 PLOT mx+6,my-6:DRAWR O0,-48:MOVER -6,- 
6:DRAWR 8, -8:DRAWR 148,0 
3360 DRAWR 8,8:MOVER -8,-8:DRAWR 0, -148:DR 
AWR 8,-8:MOVER -8,8 
3370 DRAWR -148,0:DRAWR -8,-8:MOVER 8,8:DR 
AWR 0,148 
3380 ff=1:MOVE mx+116,my:DRAWR 6, -6:DRAWR 
36,0:DRAWR 6,6:MOVER -6,-6 
3390 DRAWR 0, -18:DRAWR 6, -6:MOVER -6,6:DRA 
WR -36,0:DRAWR -6,-6:MOVER 6,6 
3400 DRAWR 0,18:MOVE mx+116,my-30:DRAWR 48 
‚0:G0SUB 3530 
3410 PLOT 1000,1000,3:TAG:MOVE mx+t118,my-3 
8:PRINT"OC"; 
3420 MOVE mx+148,my-38:PRINT"T"; 
3430 f=0:x=(mx+16)/2:y=(my-76)/2:1=(mx+10) 
/2:r=(mx+154)/2:0=(my-70)/2 
3440 u=(my-214)/2::GMODUS,0:GOSUB 3600: ff= 
1 
3450 REM Tastaturabfrage 
3460 !PFEIL,1,r,0,u,242,243,240,241,0,6,6, 
@x,&y,®©f 
3470 t$=UPPER$(CHR$(f)): IF t$="Q" THEN RET 
URN 
3480 IF t$="T" THEN FOR n=8 TO 52 STEP 2:M 
OVE mx+8,my-n:DRAWR 100,0,0:NEXT:MOVE mx#+i 
O,my-10::RFILL,as8:GOTO 3460 
3490 IF t$="C" THEN GOSUB 3550:G0TO 3460 
3500 IF t$>="0" AND t$<"4" THEN ff=VAL(t$) 
:GOSUB 3530:G0TO 3460 
3510 :WIDTH,S,5:PLOT x#2-4,y#x2+4,ff:xi=(x* 
2-mx)/12:yi=(my-y*2)/12-5 
3520 st=xi+yi#12::ENCODE, ff,@f:MiID$(a$,st+ 
12,1)=CHR$(f)::WIDTH,0,0:GOTO 3460 
3530 TAG:PLOT 1000,1000,3:MOVE mx+124,my-8 
:PRINT USING"#H";ff; 
3540 RETURN 
3550 REM Editor loeschen 
3560 as=STRING$(12,1)+STRING$(144,0)+STRIN 
G8(12, 1): 1WIDTH, 72,72 ’cıı 19) 
3570 PLOT mx+10,my-70,0::WIDTH,O,O:RETURN 
3580 PLOT x#2-4,y#2+4,0:NEXT y,x::WIDTH,O, 
O:RETURN 
3590 REM String a$ auf Bildschirm bringen 
a x5=mx+12:y5=my-72:st=25:|!WIDTH,5,5:z= 


3610 WHILE st<169 
3620 a=ASC(MID$(a$,st,i1)):ff=O 


3630 IF a=O THEN ff=O ELSE IF a=255 THEN f 
f=3 
3640 IF a=15 THEN ff=2 ELSE IF a=240 THEN 
tf=1 


3650 PLOT x5,y5,ff:x5=x5+ti2:st=st+i1 

3660 z=z+1:IF z=12 THEN z=0:x5=mx+12:y5=y5 
-12 

3670 WEND: !:WIDTH,0O,0:RETURN 


10 MEMORY &8FFF:LOAD "probe",&9000 

20 REM Menue 

30 INK O,1:INK 1,24:1INK 2,6: INK 3,26 

40 PEN 1:PAPER O:BORDER O:MODE 1:PEN#1,1:P 
APER#1,2 

50 p=0:start=36864:ende=41108: lesende-star 
tıx=12:y=12 

60 WINDOW 1,40,3,25:WINDOW#1,1,40,1,2:KEY 
139,"mode 1:goto 11040"+CHR$(13) 

70 WINDOW#2,3,38,24,24:PEN#2,0:PAPER#2,1 
80 LOCATE#1,1,1:LOCATE#2,1,1:LOCATE 1,1 

90 PRINT#1,USING"Start: & End: & Himem: &" 
;HEX$(start,4);HEX$(ende,4);"AB7B / A677"; 
100 IF p=O THEN p$="off" ELSE p$="on " 

110 PRINT#1.USING" Printerstate 
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[998] 
[2498] 


(3231) 


[2600] 
(4449) 


(2442) 
[4146] 


[4672) 
13355) 
12607) 
[2585 ) 
(2315) 
13832) 
14246) 
[2206 ) 
12926) 


[1709] 
[3721] 


[2074] 


(1424) 
3762) 


[2813] 
[6604] 
[2412] 
[2446] 
[3960] 
(5287) 
(3567) 
[555] 

[615] 


(4041) 


[1779) 
[3566] 


[2804] 
[2761] 


[1026] 
[2566] 
[1717) 
[2329] 


[2394] 
[1735) 


[1111] 


[1802] 
[645] 

[1946] 
[2241] 


[2990] 
[3164] 
[2500] 
[2495] 
[4419] 


(2512) 
[3198] 


& ";p$; 
120 CLS:PEN 2:LOCATE 1,3:PRINT TAB(8) ;CHR$ 
(150);STRING$ (24,154) ;CHR$ (156) 
130 GOSUB 320 
140 a$="1 - Gbasic verschieben":GOSUB 330 
150 GOSUB 320 
160 a$="2 - Merkzettel":GOSUB 330 
170 GOSUB 320 
180 a$="3 - Rastergroesse":GOSUB 330:G0OSUB 
320 
190 a$="4 - Gbasic abspeichern":G0SUB 330 
200 GOSUB 320 
210 as="C - Cat":GOSUB 330 

GOSUB 320 

as="P - Printer on / off":GOSUB 330 

GOSUB 320 

a$="E - Programmende":GOSUB 330:G0SUB 


PRINT TAB(8) ;CHR$(147);STRING$(24,154) 
;CHR$ (153) 
270 PRINT#2," Tippen Sie die entsprechende 
Taste "; 
280 PLOT 32,14,1:DRAWR 574,0:PLOT 32,32:DR 
AUWR 574,0 
290 as="ECP1234":i$=UPPER$S(INKEY$):IF i$=" 
" THEN 290 
300 t=INSTR(a$,i$s): IF t=0 THEN 290 
310 ON t GOSUB 350,370,390,420,690,850,950 
:GOTO 80 
320 as="" 
330 PRINT TAB(8);CHR$(149);:PEN 1:PRINT US 
ING" \ \";a$; 
340 PEN 2:PRINT CHR$(149) :RETURN 
350 REM Programmende 
360 MODE 2:PEN 1:END 
370 REM Catalog anzeigen 
380 CLS:PEN 1:CAT:CALL &BBi18:RETURN 
390 REM Drucker umstellen 
400 IF p=0 THEN p=8 ELSE p=0 
410 RETURN 
420 REM MC-Programm verschieben 
430 CLS:PEN 1:st=start 
440 LOCATE 4,4:PRINT"Eingabe der Anfangsad 
resse (A)" 
450 LOCATE 11,6:PRINT"oder der Endadresse 
{837° 
460 as=UPPER$(INKEY$): IF as="" THEN 460 
470 IF as<>"A" AND as<>"E" THEN 460 
480 LOCATE 3,10:IF a$="A" THEN INPUT "Neue 
Anfangsadresse ";a 
480 IF as="E" THEN 
"a 
500 IF a<O THEN a=a+65536 
510 IF a$="E" THEN a=a-4244 
520 IF a<10000 THEN PRINT:PRINT:PRINT"DAS 
GEHT NICHT 
URN 
530 n=MIN(a,start):MEMORY n-2 
540 start=a:rende=at4244:nst=a 
550 PRINT:PRINT" Adressen werden angeglich 
en ":GOSUB 990 
560 PRINT:PRINT" Das Programm wird verscho 
ben" 
570 IF off2=0 THEN RETURN 
580 IF off2>0 THEN GOTO 640 
590 REM Per Basic-"LDDR" verschieben 
600 de=snst+4244:hl=st+4244:bc=4245 
610 WHILE bce>0:bce=be-1 
620 POKE de,PEEK(hl):de=de-i:hl=hil-1:WEND 
630 MEMORY nst-2:RETURN 
640 REM Per Basic-"LDIR" verschieben 
650 de=nst:hl=st:bce=4245 
660 WHILE be>0:be=be-1 
670 POKE de,PEEK(hIl):hl=hil+i:de=de+1:WEND 


680 RETURN 

690 REM Notizzettel auf Drucker / Bildschi 
rm . 

700 of=&90x*256-start:b1=38595-of :b2=39235- 
of:dp=39941-of 

710 CLS:PEN 1:LOCATE 1,1:PRINT#p 

720 PRINT#p," Anfang von GBASIC 
EX$(start,4);" /";start:PRINT#p 

730 PRINT#p," Ende von GBASIC 
EX$(ende,4);" /";ende:PRINT#p 

740 PRINT#p," Bufferadresse bei RFILL 
EX$(b1,4);5" /";b1:PRINT#p 

750 PRINT#p," 1. Buffer bei T/Wdraw 
EX$(b1,4);" /";b1:PRINT#p 

760 PRINT#p," 2. Buffer bei T/Wdraw 


INPUT "Neue Endadresse 


Anwendungen 


(3813) 


[1012] 
[2988] 
[1012] 
[1910) 
(1012) 
[3312] 


[3073] 
[1012] 
[731] 

[1012] 
[2500] 
[1012] 
[2695] 


[2156] 
[3542] 
12390] 
[2403] 


[1067] 
12389) 


[388] 
[2075] 


L1787) 
[984] 
[1168] 
[1213] 
[395] 
(1339) 
1773] 
(555) 
[2082] 
[1077] 
[3506] 


[1099] 


[1824] 
[1431] 
[4270] 


[1706) 


[1042] 
[1012] 
[5586] 


[1281] 
[1476] 
[4083] 


[2179] 


11837) 
[1283] 
[2016] 
12277) 
[1074] 
[935] 

[1486] 
[1790] 
[1135] 
[1074] 
[1467] 


(555) 
[3648] 


[3024] 


[844] 
[4980] 


(3176) 
15819) 
14137) 


(4787) 
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Anwendungen 


EX$(b2,4);" /";b2:PRINT#p 
770 PRINT#p," Adresse des Pfeiles ";H 
EX$(dp,4);" /";dp:PRINT#p 


780 PRINT#p," Rastergroesse (X) -. 
PRINT#p 
790 PRINT#p," Rastergroesse (Y) | 


PRINT#p 

800 PRINT#p," Stringformat bei RFILL / PRA 
STER:":PRINT#p 

810 PRINT#p,USING" as=STRINGS(H#_,1)+";x 

820 PRINT#p, USING" ##% Zeichen Rasterda 
ten";x#y 

830 PRINT#p, USING" 
840 CALL &BB18:RETURN 

850 REM Rastergroesse bei RFILL/PRASTER ei 

nstellen 

860 CLS:PEN 1:LOCATE 4,6: INPUT "X-Groesse 

bei PRASTER / RFILL ";xx 

870 LOCATE 4,8: INPUT "Y-Groesse bei PRASTE 

R / RFILL ";yy 

880 IF xx*yy+xx#2>256 THEN PRINT" Raster 
ae zu gross !!":FOR n=0O TO 3000:NEXT:RET 

URN 

890 x=xx:y=yy:of=&90#256-start:RESTORE 900 
ixysıty 

900 DATA 9E48,9E4E,9E7F,9F89,9FD3,9FEB, AOO 

6 

910 FOR n=1 TO 7:READ as:a=VAL("L"+as)-of: 

POKE a,x:NEXT 

920 DATA 9E4D,9FC1,9FC8 z 

930 FOR n=1 TO 3:READ as:a=VAL("E"r+tas)-of: 

POKE a,y:NEXT 

940 POKE &9FF7-of,xy:POKE &AO10-of,xy:RETU 

RN 

950 REM MC-programm abspeichern 

960 CLS:PEN 1:LOCATE 4,6: INPUT "Dateiname 

"ds 

970 SAVE ""+d$%,b,start,4245,0 

980 RETURN 

990 REM MC-Programm (akt. 

s.:ı nst) verschieben 
1000 RESTORE 1070 

1010 REM 

1020 REM Daten der zu veraendernden Adress 

en 

1030 REM !XX 

ern 

1040 REM XX Adresse, 
1050 REM -> Adresse = 
* 256 + Low-Byte 

1060 REM 
1070 DATA 

3,26,29 
1080 DATA 2C,2F,32,35,38,3B,3E,41,44,47,4A 
‚4D 

1090 DATA 50,53,56,59,5C,5F,62,65,68,6B,6E 
‚!91,10 

1100 DATA 12,1C,36,3C,40,46,4C,4F,55,5A,5D 
‚63,68 

1110 DATA 7A,7D,8F,A1,A7,AC,B5S,B8,BB,C1,CA 

‚CcD,D4 

1120 DATA D9,E2,ES,F2,F8, !92,02,07,0F,12,1 

C,20,44 

1130 DATA 4E,55,60,66, 78, 7F,8E,91,A6,AC,C6 

‚c9,CE 

1140 DATA D7,DA,EA,FD,FF,!93,03,08,0B, 10,1 

9,23,2A 


+STRINGSCHR_, 1)" ;x 


Pos.: st neue Po 


laufendes High-Byte veraend 


nur Low-Byte davon 
laufendes High-Byte 


!90,04,07,0A,10,14,17,1A,1D,20,2 


1150 DATA 2E,33,36,39,40,45,50,56,5F,65,68 
‚6B,6E 

1160 DATA 73,79,7F,83,88,8B,8F,95,A7,AD,BS 
‚BC,ci 

1170 DATA C8,CD,DO,D6,DA,EO, !94,08,0B,2A,2 
E,35,40 


1180 DATA 43,55,58,5B,7C,93,9C,A4,B7,C3,CB 
‚„D4,DC 

1190 DATA E7,EB, !95,02,05,0E,14,1A,1F,28,3 
3,36,3A,3D 

1200 DATA 45,49,4C,50,53,56,5E,65,6C, 71,79 
‚85,8D 

1210 DATA 93,9A,A1,A4,AB,AE,B5S,BC,C1,C4,C8 
‚„CcB,CF 

1220 DATA D9,E1,EE,F2,FD, !96,08,1A,2D,38,6 
1,8A,BO 

1230 DATA BB,CO, !9B,C4,C8,D5,!9C,16,2E,36, 


16 EPE 


(3719) 
[5154] 
[4123) 
[4270] 


[3056] 
[3173] 


[1924] 
[1296] 
[1740] 
[2455] 
[ 3681) 


(6291) 


[3206] 
[1906] 
13204) 


[909] 
[4130] 


[2436] 


[2614] 
[1389] 


[1896] 
[555] 
13462) 
(721) 
[272] 
[1365] 
[2229] 


[1484] 
[2976] 


(272) 
(2311) 


12365) 
12520) 
12258) 
12565) 
12732) 
11574) 
1892) 

1849) 

[2465] 
(2855) 
[2240] 
12074) 
[1898) 
11487) 
[2504) 


[2610] 


39,3D,43 

1240 DATA 46,4A,51,54,5D,60,64,6D, 70, 74,77 
‚7A,7D 

1250 DATA 8C,90,96,9C,A2,AB,AE,B6,B9,BD,C6 
‚Cc9,CF 

1260 DATA D2,D5,DE,E1,ES,E8,EB,EE,F1,F5,F8 
‚FF,!9D,13 

1270 DATA 18,1B,20,23,29,2C,33,41,4E,5A,64 
‚6B,6E 

1280 DATA 75,78,7F,82,85,8A,8E,91,96,99,A6 
‚AE,Bi 

1290 DATA B6,B9,BF,C5,D6,ES,ED,F1,F8,FD,!9 
E,OA,1D 

1300 DATA 22,35,3A,3E,42,45,51,55,5A,60,63 
‚67,6A 

1310 DATA 71,74,7C,83,89,96,99,9C,9F,A8,AB 
‚Bi,BA 

1320 DATA CE,D3,E7,EE, !9F,06,0D,15,2B,33,3 
6,3D,40 

1330 DATA 43,54,69,6D,83,86,8E,91,AB,AF,CS 
‚cC,D7 

1340 DATA DD,E1,E8,FC,!AO,03,17,22,33,42,5 
E,67,76 

1350 DATA 8A 

1360 ps=0:bst=&90#256:0ffi=bst-st:off2=st- 
nst 

1370 FOR n=1 TO 353 

1380 READ as:IF LEN(a$)=3 THEN hb=VAL("&"+ 
MID$(a$,2)):na=0:GOTO 1380 

1390 adr=VAL("&"+a$)+hb#=256: IF na>=adr THE 
N PRINT"Fehler in den Datas !":END 

1400 na=sadr:b=adr-offi:a=PEEK(b)+PEEK(b+1) 
"256:a=a-off2 

1410 h=INT(a/256):POKE b,a-h*256:POKE b+1, 
h:NEXT 

1420 RETURN 

2000 REM ara at a 


2010 REM * * 
2020 REM « GTUNER * 
2030 REM «* “ 
2040 REM * Verschiebt und patcht * 
2050 REM * "PROBE.BIN" (GBASIC) * 
2060 REM * * 
2070 REM *» COPYRIGHT SEPTEMBER 1986 “ 
2080 REM * * 
2090 REM * BY DIETER BRAUN * 
2100 REM « * 
2110 REM mumnnnnnEEERE 


[1849] 
[2402] 
[1942] 
[1838] 
(2413) 
13328) 


[1349] 


12348] 
[2585] 
[1634] 
[2627] 


[254] 
[1804] 


(1039) 
(4041) 


13468] 
13060) 
2567) 


[555] 
[1576] 
[403] 
1693] 
[403] 
[2166] 
[1786] 
[403] 
[1753] 
[403] 
[2264] 
[403] 
[1576) 


Sonderheft 5’87 


CPC-TERM 


Das Terminalprogramm für die V/24- 
Schnittstelle der Schneiderware #3 


Endlich verfügen die Besitzer einer Schneiderware #3 — V/24 
(CPC 8/86) über ein leistungsfähiges Terminalprogramm für die 
Datenfernübertragung (DFU). CPC-TERM ermöglicht die 
Kommunikation mit Mailboxen oder mit beliebigen anderen 
Computern über ein Modem, aber auch die direkte Kopplung 
zweier Computer mit einem sogenannten Nullmodem-Kabel. 
Hingewiesen sei hier darauf, daß CPC-TERM in der vorliegen- 
den Form nur mit der Schneiderware-V/24 arbeitet, da die RSX- 
Befehle auf die Adressdekodierung dieser Schnittstelle abge- 
stimmt sind. Kundigen dürfte eine Anpassung jedoch leicht 
möglich sein. Zunächst einige Hinweise zum Abtippen: Zuerst 
CPC-TERM (Listing 1) eingeben und ohne zu starten abspei- 
chern. Achtung: Der ON BREAK GOSUB - Sprung in Zeile 
360 kann bei Tippfehlern den Rechner ins Nirvana schicken. 
Danach den Datalader des Verwaltungsprogramms (Listing 2) 
eingeben. Dieser generiert die Maschinencode-Datei 
MAIL.OBJ, die von CPC-TERM nachgeladen wird. Kassetten- 
benutzer müssen die Dateien unbedingt in der angegebenen Rei- 
henfolge abspeichern. 


Die ersten Gehversuche 


Für DFU-Neulinge zuerst einmal eine kleine Einführung in die 
Praxis der DFU: 

Sicher haben Sie schon (bei ausgeschaltetem Computer hoffent- 
lich) die V/24 angeschlossen. Falls Sie nicht auch über das 
Schneiderware-Netzteil verfügen, müssen Sie noch die Pegel- 
spannungen an die Grundplatine anlegen. Spannungsquellen 
können zwei 9V Blöcke sein; ein Plus-Pol wird mit dem Minus- 
Pol des anderen Blocks verbunden und mit dem Pin GND auf 
der Grundplatine. Die beiden anderen Anschlüsse werden ent- 
sprechend ihrer Polarität an die Pins — bzw. +12V angelegt. 
Verbinden Sie jetzt Ihr Modem mit der V/24. Das Modem auf 
»originate« schalten und falls einstellbar, die Baudrate auf 300. 
Legen Sie den Telefonhörer (richtigherum) ins Modem. Und 
natürlich das Einschalten nicht vergessen! Jetzt brauchen Sie 
noch die Telefonnummer einer Mailbox, die Sie anrufen wol- 
len. Sicherlich steht in dem Verzeichnis, das Sie möglicherweise 
haben, hinter der Nr. eine Buchstaben-Zahlen-Kombination. 
Lautet diese 8NI1, so können Sie diese Mailbox sofort anwäh- 
len. Ansonsten müssen Sie die Übertragungsparameter ändern: 
Drücken Sie zweimal ESC und rechts oben erscheint ein 
MENU-Fenster, »1« für Parameter drücken und mit ENTER be- 
stätigen. 

Zuerst wird die Baudrate abgefragt. Da diese bereits auf 300 
Baud eingestellt ist, brauchen Sie hier nur ENTER zu drücken. 
Das führt dazu, und das gilt für alle Untermenüs, daß die vor- 
herige Einstellung erhalten bleibt. Für die nächsten Fragen müs- 
sen wir zunächst das dreistellige Kürzel entziffern: 


8Nl 
8N 18 Datenbits No parity 
1 Stopbit 


Unsere Schnittstelle kann auf 7 oder 8 Datenbits eingestellt wer- 
den. Das »N« in der Mitte steht für No parity, also keine Pari- 
tät. Hier könnte auch noch »E« für Even oder »O« für Odd, also 
gerade bzw. ungerade Parität stehen. (Zur genaueren Erklärung 
u.a. der Parität sei hier auf den Lehrgang »Mein Computer un- 
terhält sich« ab Heft 2/87 verwiesen.) Das Parametermenü fragt 
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Programme 


zunächst ob die Parität aus oder ein (0/l) sein soll. Erst wenn 
sie eingeschaltet wurde, wird nach (E)ven/(O)dd gefragt, wo- 
bei Even der voreingestellte Wert ist. Stoppbits kann unsere 
Schnittstelle 1 oder 2 verarbeiten. 

Die nächsten beiden Fragen können in aller Regel mit ENTER 
beantwortet werden, da hier die für den Mailbox-Verkehr üb- 
lichen Parameter voreingestellt sind. Nun sollte einer Verbin- 
dung nichts mehr im Wege stehen. 

Die Tel.-Nr. der Mailbox wählen, und spätestens, wenn ein 
Pfeifton hörbar wird, den Hörer ins Modem legen, die Mail- 
box hat sich gemeldet. Nach einer kurzen Wartezeit sollte auf 
dem Monitor eine Meldung der Mailbox erscheinen. Ist dies 
nicht der Fall, so drücken Sie bitte ein paarmal ENTER, manche 
Mailboxen erwarten dies als Signal zum Senden. Üblicherweise 
erscheint dann ein Auswahl-Menü, aus dem hervorgeht, was die 
Mailbox zu bieten hat. Meist kann man sich detaillierte Infor- 
mationen über die Arbeitsweise und die Bedienung ausgeben 
lassen. Oft kann man auch ohne Password in ein allgemeines 
Fach Mitteilungen schreiben, was der Mailbox von ungewogener 
Seite auch schon die Bezeichnung Müllbox eingetragen hat. 


In Kürze für die Profis! 


Die voreingestellten Parameter sind 8N1, Vollduplex, 300 Baud 
und ENTER ergibt nur carriage return (CR). Zweimal ESC 
führt zum Menü. Eine falsche Menüwahl wird durch Drücken 
der richtigen Taste korrigiert. Mit ENTER wird bestätigt. Das 
Parametermenü initialisiert die Schnittstelle einschließlich des 
Empfangspuffers und des Spoolers. Verschiedene Baudraten für 
Senden und Empfangen werden durch einen Punkt getrennt. 
Baudraten über 9999 werden nicht angenommen. 


Protokoll 


Was wäre ein Terminal-Programm ohne die Möglichkeit, die 
empfangenen Daten später noch einmal ansehen oder bearbeiten 
zu können. Zwar ist es bei 300 Baud, also grob gesagt 30 Zei- 
chen/sec. noch gut möglich mitzulesen, aber einmal vom Bild- 
schirm gescrollt, wären die Daten ohne Protokollierung auf im- 
mer verloren. 

CPC-TERM verfügt über mehrere Möglichkeiten, die Daten zu 
erhalten. Angewählt werden sie über das Untermenü »Protokoll 
ein/aus«. Die erste Option ist die direkte Ausgabe auf den 
Drucker. Diese wird von vornherein eingeschaltet, wenn das 
Programm beim Start einen betriebsbereiten Drucker vorfin- 
det. Ist kein betriebsbereiter Drucker angeschlossen, kann sie 
auch nachträglich nicht eingeschaltet werden. Eine entprechen- 
de Meldung erscheint im Menü-Fenster. Ein-/ausgeschaltet wird 
mit »j« bzw. »n«, der bestehende Zustand bleibt erhalten bei 
ENTER. 

Die Druckausgabe wird über einen Drucker-Spooler (Zwi- 
schenspeicher) organisiert, der im Verwaltungsprogramm im- 
plementiert ist. Deshalb ist es sogar möglich mit Einzelblättern 
zu arbeiten. Der Spooler faßt 4KB. Initialisiert wird der Spooler 
nur durch die Anwahl des Parametermenüs. 

Das RAM-Protokoll ist die zweite Möglichkeit. Hierfür steht 
ein 14KB großer Bereich zur Zwischenspeicherung zur Verfü- 
gung. Die empfangenen Zeichen (und bei Halb-Duplex auch die 
gesendeten) werden dort der Reihe nach abgelegt. Tritt ein 
Überlauf auf (mehr als 14K), so erscheint eine Meldung auf dem 
Schirm und der Puffer wird vom Anfang her überschrieben, so 
daß immer die letzten 14K erhalten bleiben. Das RAM-Proto- 
koll ist beim Programmstart immer eingeschaltet. Neu Initia- 
lisiert wird das RAM-Protokoll durch erneutes Einschalten. 
Die dritte Möglichkeit ist das direkte Schreiben aller Daten auf 
die Diskette. Hierfür muß selbstredend eine beschreibbare Dis- 
kette im Laufwerk liegen. Wurde »j« gedrückt, so wird nach 
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einem File-Namen gefragt. Nur ENTER gibt jetzt den Disc- 
Catalog aus, mit »a:« oder »b:« kann das gewünschte Laufwerk 
eingeschaltet werden. Die Namen dürfen keine Extension ent- 
halten, entsprechend der standardmäßigen Kennzeichnung von 
ASCH-Files. 

Bei der Protokollierung äuf Diskette treten allerdings regelmäßig 
Fehler auf und zwar alle 2048 Zeichen. Ist nämlich der Ausga- 
bepuffer voll, so werden 2KB auf die Diskette geschrieben. Da- 
bei werden die Interrupte so lange gesperrt, daß meistens ein 
paar Zeichen von der V/24 nicht in den Empfangspuffer über- 
nommen werden. Daraus wird auch klar, daß diese Möglich- 
keit für den Kassettenbetrieb nicht geeignet ist. Besser dran sind 
hier diejenigen, die über eine RAM-Floppy verfügen, die die 
Interrupte nicht sperrt (z.B. die »silicon disc« von dk’tronics). 
Gedacht ist das direkte Disketten- Protokoll für Situationen, in 
denen mehr als 14KB Daten gesichert werden sollen. Anson- 
sten empfiehlt sich eine RAM-Zwischenspeicherung und an- 
schließendes Sichern auf Diskette oder Kassette (s.u.). 

Bei Halb-Duplex-Betrieb sollten nicht alle drei Protokoll-Funk- 
tionen gleichzeitig eingeschaltet sein. Der jeweilige Zustand 
kann rechts in der Statuszeile abgelesen werden. Die entspre- 
chenden Kürzel sind »Dr:«, »Ra:«, »Fi:« mit jeweils »0« für aus 
und »1« für ein. 


Protokoll ausgeben 


Hier kann das interne RAM-Protokoll nachträglich auf Drucker, 
Bildschirm oder als ASCII-File auf Diskette ausgegeben wer- 
den. So kann beispielsweise eine Disketten- oder Kassetten-Da- 
tei als Protokoll erstellt werden, die frei von den oben genann- 
ten Fehlern ist, wobei uns die Übertragungsfehler ja trotzdem 
erhalten bleiben. 

Wurde keine der obigen Möglichkeiten ausgewählt, kann ein 
ASCI- File von der Diskette eingelesen und angesehen werden. 
Angehalten wird dabei mit ENTER, abgebrochen mit ESC. 


ASCI--File senden 


Schreibt man einen längeren Text mit einem Textverarbeitungs- 
programm oder auch dem Basic-Editor und speichert diesen als 
ASCII-File ab, so kann man dieses über die Funktion »ASCIH- 
File send.« mit CPC-TERM an die Gegenstation senden. Der 
Vorteil liegt darin, daß vorher alle Möglichkeiten der Textver- 
arbeitung genutzt werden können und vor allem der Gebühren- 
zähler noch nicht läuft. Dieses Verfahren funktioniert auch mit 
Basic-Programmen, die als ASCIH-File abgespeichert wurden 
(SAVE»NAME«,a). Zu beachten ist lediglich, daß der Datei- 
Name keine Extension beinhalten darf (also max. 8 Buchsta- 
ben), notfalls umbenennen oder Zeile 9050 ändern. 

Auch hier ist es möglich sich den Disketten-Catalog ausgeben 
zu lassen, bevor ein Name eingegeben wird. Ist dabei jedoch 
noch ein Protokoll-File offen, so wird dies automatisch ge- 
schlossen, da es andernfalls durch das CAT-Kommando verlo- 
renginge. Wird die anschließende ja/nein Frage mit ENTER, 
DEL oder n beantwortet, kehrt das Programm in den Terminal- 
Modus zurück. 


ENDE 


Wichtig ist, das Programm nur über die Wahl von ENDE zu ver- 
lassen, da ansonsten z.B. ein noch offenes Protokoll-File ver- 
lorenginge. Außerdem wird der Rechner in einen definierten Zu- 
stand gebracht, durch ein CLEAR wird z.B. das noch aktive Un- 
terbrechungsereignis (ON BREAK GOSUB 1000) beendet. An- 
dernfalls würde das Programm bei einem anschließenden GOTO 
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xxxx nicht mehr zurückfinden. Das Ende muß noch mit »j« be- 
stätigt werden, andere Eingaben (s.o) führen zum Terminal 
Modus. 


Default Parameter 


In den Programmzeilen ab 8150 wird festgelegt, wie die Para- 
meter beim Programmstart eingestellt sein sollen. Hier kann 
sich jeder seine Standardeinstellung eintragen. Die Variablen 
haben weitgehend selbsterklärende Namen. Zusätzlich wird aus 
den Zeilen ab 8000 klar wo sie eingesetzt werden. 

Die Variable fi, die das Protokoll File schaltet, darf hier jedoch 
nicht einfach auf -I für »an« gestellt werden, da ja noch kein 
OPENOUT-Kommandbo erteilt wurde. 

Die Funktionstasten 4-9 (mit Shift) wurden am Programman- 
fang eingebaut (Zeilen 100-150), so daß hier individuelle Ein- 
träge möglich sind. Zur Demonstration wurden die Tasten 7 und 
8 belegt. 

Kopien können nach regulärem Programmstart und ENDE mit 
RUN 9999 gemacht werden. Das Programm fängt DISC-Feh- 
ler nicht ab. Sollte ein Fehler beim Eintippen eines Dateinamens 
aufgetreten sein, so kann mit 

a$=»NAME«:cont 

fortgefahren werden. Interessierte Leser können sich hier z.B. 
die Fehlerroutine aus CPC International 1/86 einbauen. Das 
Programm läßt noch ca. 3KB für Daten und eventuelle Erwei- 
terungen frei. 


Hinweise für Profis 


Das Programm verträgt sich nicht ohne weiteres mit allen 
Schneiderware-Erweiterungen. Deshalb wird hier die Speicher- 
belegung angegeben, um Anpassungen zu erleichtern. Mit der 
Hardware-Uhr dürfte es keine Probleme geben. 


SPEICHERBELEGUNG 


Angegeben ist jeweils die Obergrenze (incl. letztem Byte) 
---- HIMEM (nicht unter A28Ih) -------------------------------- 
V/O-Buffer (Disk/Kass) 

---- 9280h -------------------- mm 


XON-XOFF-PROTOKOLL 


Das Verwaltungsprogramm blendet bestimmte empfangene Zei- 
chen aus, weil sie ansonsten den Bildschirm durcheinanderbrin- 
gen würden. Die Tabelle dieser Zeichen steht von 91B4h bis 
91CAh. Dort stehen auch die Zeichen 17 (XON) UND 19 
(XOFF). Soll also ein XON/XOFF-Protokoll im Programm im- 
plementiert werden, so müssen in den Speicherstellen 91BDh 
und 9IBFh Nullen eingetragen werden, damit XON bzw. XOFF 
nicht mehr ausgeblendet werden. Selbstverständlich muß dann 
das BASIC-Programm so ergänzt werden, daß die Zeichen ent- 
sprechend ausgewertet werden. (B.Noe) 


Sonderheft 5’87 


10 DATA &01,&0D,&90,&21,&09,&90,&C3,&D1,&B 
C,&09, 945 

20 DATA &90,&0D,&90,&21,&90,&C3,&3F,&90,&C 
3,&41, 1140 

30 DATA &90,&C3,&7C,&90,&C3,&ED,&90,&C3,&9 
1,&91, 1668 

40 DATA &C3,&4A,&91,&49,&4E,&49,&54,&B4,&4 
2,641, 1033 

50 DATA &55,&C04,653,&49,&4F,&49,&4E,&49,&D 
4,653, 1035 

60 DATA &45,&4E,&C4,652,&45,&43,&D6,&50,&5 
2,&49, 1010 

70 DATA &4E,&D4,&00,&37,&C9,&FE,&02,&C0,&0 
0,&01, 995 

80 DATA &EF,&F9,&FD,&21,&5F,&90,&FD,&7E,&0 
0,&ED, 1629 

90 DATA &79,&FD,&T7E,&01,&ED,&79,&FD,&7E,&0 
2,&ED, 1477 

100 DATA &79,&CD,&62,&90,&C9,&36,&76,&B6,& 
00,&01, 1124 

110 DATA &EC,&F9,&DD,&7E,&00,&ED,&79,&DD,& 
T1E,&01, 1538 

120 DATA &ED,&79,&03,&DD,&7E,&02,&ED,&79,& 
DD,&TE, 1415 

130 DATA &03,&ED,&79,&C9,&FE,&04,&C0,&01,& 
El,&F9, 1487 

140 DATA &3E,&00,&ED,&79,&ED,&79,&ED,&79,& 
3E,&40, 1262 

150 DATA &ED,&79,&21,&EC,&90,&AF,&77,&DD,& 
7E,&00, 1412 

160 DATA &FE,&01,&28,&3A,&CB,&AE,&DD,&TE,& 
02,&FE, 1333 

170 DATA &01,&28,&35,&CB,&F6,&CB,&FE,&DD,& 
7E,&04, 1351 

180 DATA &FE,&01,&28,&30,&CB,&A6,&DD,&TE,& 
06,&FE, 1319 

190 DATA &07,&28,&2B,&CB,&86,&CB,&CE,&CB,& 
D6,&CB, 1456 

200 DATA &DE,&01,&E1,&F9,&7E,&ED,&79,&3E,& 
37,&ED, 1535 

210 DATA &79,&CD,&0B,&91,&00,&CD,&3C,&91,& 
CD,&42, 1163 

220 DATA &91,&C9,&CB,&EE,&18,&C4,&CB,&F6,& 
CB,&BE, 1849 

230 DATA &18,&C9,&CB,&E6,&18,&CE,&CB,&86,& 
CB,&CE, 1634 

240 DATA &CB,&96,&CB,&DE,&18,&D3,&CE,&DD,& 
T1E,&00, 1566 

250 DATA &F5,&00,&00,&00,&CD,&00,&91,&30,& 
F8,&Fl, 1132 

260 DATA &01,&E0,&F9,&ED,&79,&C9,&01,&E1,& 
F9,&ED, 1745 

270 DATA &78,&E6,&01,&C08,&37,&9F,&C9,&21,& 
00,&60, 1095 

280 DATA &22,&1E,&91,&22,&20,&91,&21,&00,& 
70,&22, 599 

290 DATA &22,&91,&22,&24,&91,&C9,&01,&60,& 
01,&60, 789 

300 DATA &00,&70,&00,&70,&3A,&71,&01,&60,& 
00,&00, 492 

310 DATA &00,&00,&00,&81,&01,&92,&00,&2A,& 
91,&2C, 507 

320 DATA &91,&00,&80,&49,&91,&00,&21,&33,& 
91,&C3, 915 

330 DATA &E3,&BC,&21,&2A,&91,&C3,&E3,&BC,& 
c9,&C9, 1647 

340 DATA &E5,&D5,&C5,&F5,&DD,&7E,&00,&CD, & 
59,&91, 1670 

350 DATA &F1,&C1,&D1,&E1,&C9,&2A,&24,&91,& 
CD,&79, 1618 

360 DATA &91,&ED,&4B,&22,&91,&37,&3F,&ED,& 
42,&CA, 1259 

370 DATA &77,&91,&2A,&24,&91,&77,&CD,&79,& 
91,&22, 1111 

380 DATA &24,&91,&37,&3F,&C9,&37,&C9,&C5,& 
23,&22, 1022 

390 DATA &26,&91,&01,&FF,&7F,&37,&3F,&ED,& 
42,&20, 1019 

400 DATA &05,&21,&00,&70,&C1,&C9,&2A,&26,& 
91,&C1, 962 

410 DATA &C9,&CD,&9C,&91,&DD,&66,&01,&DD,& 
6E,&00, 1362 

420 DATA &77,&C9,&CD,&CC,&91,&DA,&B2,&91,& 
E6,&7F, 1772 


5’87 Sonderheft 


[2714] 
[1617] 
[1955] 
[2504] 
[2354] 
[1299] 
[1304] 
[3006] 
[2577] 
[2825] 
[2353] 
[2149] 
[2488] 
[3102] 
[2191] 
[1889] 
[2542] 
[2586] 
[3032] 
[1762] 
[2742] 
[2697] 
[2330] 
[2279] 
[1642] 
[3080) 
[1540] 
[2560] 
[2309] 
[1566] 
[1038] 


[2204] 
[1793] 


[2719] 
[2095] 
[1487] 
[2215] 
[2059] 
[2342] 
[1853] 
[2611] 
[2798] 


Programme 


430 DATA &21,&B5,&91,&BE,&CA,&B2,&91,&CB,& 
TE,&CO, 1595 

440 DATA &23,&C3,&A7,&91,&3E,&00,&C9,&01,& 
02,&03, 811 

450 DATA &04,&05,&06,&0E,&0F,&10,&11,&12,& 
13,&14, 134 

460 DATA &15,&16,&17,&18,&19,&1A,&1C,&1D,& 
1F,&80, 357 

470 DATA &2A,&1E,&91,&ED,&4B,&20,&91,&37,& 
3F,&ED, 1061 

480 DATA &42,&CA,&E7,&91,&2A,&1E,&91,&7E,& 
CD,&E9, 1425 

490 DATA &91,&22,&1E,&91,&37,&3F,&C9,&37,& 
c9,&C5, 1126 

500 DATA &23,&22,&28,&91,&01,&FF,&6F,&37,& 
3F,&ED, 976 

510 DATA &42,&20,&05,&21,&00,&60,&C01,&C9,& 
2A,&28, 708 

520 DATA &91,&C1,&C9,&F5,&E5,&C5,&D5,&CD,& 
10,&92, 1790 

530 DATA &CD,&1C,&92,&D1,&C1,&E1,&F1,&C9,& 
CD,&2E, 1699 

540 DATA &BD,&D8,&CD,&2D,&92,&D8,&CD,&31,& 
BD,&C9, 1661 

550 DATA &CD,&6A,&92,&E6,&02,&C8,&C5,&01,& 
EO,&F9, 1560 

560 DATA &ED,&78,&C1,&CD,&4A,&92,&C9,&2A,& 
22,&91, 1397 

570 DATA &ED,&4B,&24,&91,&37,&3F,&ED,&42,& 
CA,&48, 1188 

580 DATA &92,&2A,&22,&91,&7E,&CD,&79,&91,& 
22,&22, 1032 

590 DATA &91,&37,&3F,&C9,&37,&C9,&2A,&20,& 
91,&CD, 1144 

600 DATA &E9,&91,&ED,&4B,&1E,&91,&37,&3F,& 
ED,&42, 1286 

610 DATA &CA,&68,&92,&2A,&20,&91,&77,&CD,& 
E9I,&91, 1373 

620 DATA &22,&20,&91,&37,&3F,&C9,&37,&C9,& 
c5,&01, 984 

630 DATA &E1,&F9,&ED,&78,&C1,&C9,&00,&00,& 
00,&00, 1225 

640 DATA &00,&00,&00,&00,&00,&00,&00,&00,& 
00,&00, 0 

650 DATA &00, 0 

660 dat=0:5z=0:dz= 10 

670 FOR adr = &9000 TO &9280 

680 READ byte : dat=dat+1 

690 sz=sz+tbyte 

700 _POKE adr,byte 

> IF dat < 10 AND adr < &9280 THEN 75 
720 READ chksun 

730 IF chksum<)sz THEN PRINT "Fehler in z 
eile :";dz 

740 dz=dz + 10 : sz=0:dat=0 

750 NEXT adr 


160 MODE 2:PRINT:PRINT" MAIL.BIN wird 
gespeichert" 
770 PRINT" Datentraeger fertigmachen, 


dann TASTE":CALL &BBO6 
780 SAVE"mail.bin",b,&9000,&280 
790 END 


10 VER a a a a a a a a a a a a a a a dk 
20 'kk%* * CPC-TERM * Indain} 
30 '*** 1987  B. Noe Se 
40 '*** V 24 aus Schneiderware#3 *** 
BO SERRR erforderlich ren 
60 N a a a a a a a a a a a a a dc 
70 '---- Initialisierung ---- 

80 DEFINT a-z 


90 a=0:pz=&5FFF 

100 KEY 14,"4" 

110 KEY 15,"5" 

120 KEY 16,'"6" 

130 KEY 17,"PASSWORD"+CHR$ (13) 
140 KEY 18,"HELP"+CHR$ (13) 

150 KEY 19,9" 


[1363] 
[1889] 
[1291] 
[2447] 
[2754] 
[3242] 
[2668] 
[3712] 
[2078] 
[2771] 
[2257] 
[2244] 
[1542] 
[2644] 
[2270] 
[2514] 
[1876] 
[2393] 
[3111] 
[1985] 
[1859] 


[1730] 


[213] 
[319] 
[831] 
[956) 
[619] 
[84] 

[693] 


[1222] 
[2720] 


[843] 
[547] 
[2950] 


[3915] 


[1457] 
[110] 


[1285) 
11253 
1170] 
[2468] 
[1554] 
[1285] 
[758) 
[553] 
[1766] 
[485] 
[339] 
[457] 
[1343] 
[1133] 
[592] 
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Programme 


160 KEY DEF 18,0,140,140,140 

170 KEY DEF 6,0,140,140,140 

180 KEY DEF 10,0,135,145 

190 KEY DEF 11,0,136,146 

200 KEY DEF 3,0,137,147 

210 KEY DEF 20,0,132,142 

220 KEY DEF 12,0,133,143 

230 KEY DEF 4,0,134,144 

240 MODE 2 

250 WINDOW#1,1,80,1,23 

260 WINDOW#2,1,80,25,25 

270 WINDOW#3,59,80,1,11 

280 WINDOW#4,61,80,1,11:PAPER#4,1:PEN#4,0 
290 WINDOW#5,1,58,1,23 

300 WINDOW#6,59,80,12,23 

310 IF HIMEM>&27FF THEN OPENOUT" !d":MEMORY 
HIMEM-1:CLOSEOUT:MEMORY &27FF:LOAD"!MAIL. 

OBJ":CALL &9000 

320 GOSUB 8150 

330 WINDOW SWAP 1 

340 PRINT"* CPC-TERM bereit * MENU: [ES 
C/ESC] *":PRINT 

350 MOVE 0,378:DRAWR 640,0:MOVE 0,20:DRAWR 
640,0 

360 ON BREAK GOSUB 1000 

370 KEY DEF 66,0,252 

400 '--------- Hauptschleifen --------- 
410 '---- VOLL-Duplex ---- 

420 a$=INKEY$:IF a$<>""THENISEND,ASC (a$) 
430 IRECV,@a:PRINT CHR$(a);:IF a=0 THEN GO 
TO 470 

440 IF dr THEN |PRINT,a 

450 IF ra THEN POKE pz,a:pz=pz-1:IF pz(&28 
00 THEN GOSUB 800 

460 IF fi THEN PRINT#9,CHR$S (a); 


470 ON hd GOTO 420,510 
480 ' 
500 '---- HALB-Duplex ---- 


510 a$=INKEY$:IF a$=""GOTO 550 

520 ISEND,ASC(a$):PRINT a$;:IF dr THEN !PR 
INT,ASC (a$) 

530 IF ra THEN POKE pz,ASC(a$) :pz=pz-1:IF 
pz<&2800 THEN GOSUB 800 

540 IF fi THEN PRINT#9,a$; 

550 IRECV,@a:PRINT CHR$(a);:IF a=0 THEN GO 
TO 590 

560 IF dr THENIPRINT,a 


570 IF ra THEN POKE pz,a:pz=pz-1:IF pz<&28 
00 THEN GOSUB 800 

580 IF fi THEN PRINT#9,CHRS (a); 

590 ON hd GOTO 420,510 

800 '---- Protokollbuffer voll ---- 

810 PRINT:PRINT"** PROTOKOLLBUFFER UEBERLA 
UF ar" 

820 pkb.uebrl=-1 

830 pz=&5FFF 

840 RETURN 

1000 '----HAUPT-MENU---- 

1010 KEY DEF 66,0,0:',0 --x-- ergaenzen!!! 
ı 

1020 LOCATE#5,1,VPOS (#0) 

1030 PAPER#3,1:CLS#3:PAPER#3,0 

1040 WINDOW SWAP 4 

1050 CLS 

1060 KEY DEF 18,0,13,13,13 

1070 KEY DEF 6,0,13,13,13 

1080 PRINT:PRINT"1 Parameter 

1090 PRINT:PRINT"2 Protok. ein/aus 

1100 PRINT:PRINT"3 Protok. ausgeben 

1110 PRINT:PRINT"4 ASCII-File send. 

1120 PRINT:PRINT"5 zurueck 6 Ende"; 

1130 wahl=VAL("0"+INKEYS$) 

1140 IF wahl=0 OR wahl)6 THEN 1130 

1150 IF wahl=5 THEN 1200 

1160 GOSUB 1300 

1170 a$=INKEY$:IF a$=""OR VAL("0"+a$)=wahl 
GOTO 1170 

1180 IF VAL("0"+a$)<>wahl AND a$<>CHR$S(13) 
THEN GOSUB 1300:wahl=VAL("0"+a$):GOTO 114 
0 

1190 ON wahl GOSUB 2000,3000,4000,5000,125 

0,6000 

1200 IF PEEK(&B289)=60 THEN CLS#3:WINDOW S 


a 


20 EPe 


[1590] 
[979] 

[746] 

[1028] 
[1081] 
[1259] 
[1185] 
[1195] 
[513] 

[990] 

[1376] 
[1382] 
[3098] 
[1338] 
[1358] 
[7035] 


[842] 
[826] 
[2800] 


[2537] 


[581] 
[877] 
[2013] 
[1169] 
[2202] 
[1960] 


[970] 
[2441] 


[642] 
[321] 
[117] 
[826] 
[1692] 
[2709] 


[3011] 


[929] 
[1769] 


[970] 
[2441] 


[642] 
[321] 
[1292] 
[2862] 


[1007] 
[185] 
[555] 
[836] 
[2148] 


[897] 
[2724] 
[823] 
[91] 
[756] 
[1229] 
[1529] 
[2188] 
[2134] 
[2513] 
[1416] 
[1651] 
[2207] 
[982] 
[950] 
[2251] 


[4958] 


[1943] 
[2828] 


WAP 4 

1210 KEY DEF 18,0,140,140,140 

1220 KEY DEF 6,0,140,140,140 

1230 KEY DEF 66,0,252,252,252 

1240 WHILE INKEY$<>"":WEND:a$="" 

1250 RETURN 

1300 FOR i=1-11*(wahl=6)TO 19:LOCATE i,wah 
1*2+2*(wahl=6) :CALL &BB8A:NEXT:RETURN 

2000 '---- Parameter-Menu ---- 

2010 CLS 

2020 ON ERROR GOTO 2240 

2030 PRINT:INPUT"BAUD S(.E): ",in$ 

2040 IF VAL(in$)>1 THEN bdi=INT(VAL(in$)) 
2050 IF LEN(in$)>=LEN(STR$(bd1))THEN bd2=V 

AL(MID$ (in$,LEN(STR$ (bd1))+1))ELSE bd2=bdi1 
2060 IF bd2=0 THEN bd2=bdi 

2070 IF bd1>9999 OR bd2>9999 THEN 2010 
2080 PRINT:INPUT"Datenbits: "in 

2090 IF in»O THEN IF in<7 OR in>8 THEN 208 
0 ELSE dat=in 

2100 PRINT:INPUT;"Parit. (0/1): ",in$ 

2110 IF in$<>""THEN in=VAL(in$):IF in<O OR 
in»1 THEN 2100 ELSE par=-in 

2120 IF NOT par THEN PRINT:GOTO 2150 

2130 PRINT CHR$(1T)CHRS (13) ;: INPUT" (E) ven/ 
(O)dd: ",in$ 

2140 IF in$<>""THEN in$=UPPER$ (in$):IF in$ 
="E"THEN evn=1 ELSE IF in$="0"THEN evn=0 E 
LSE GOTO 2130 

2150 PRINT:INPUT"Stoppbits: "in 

2160 IF in>O THEN IF in<1 OR in>2 THEN 215 
0 ELSE stp=in 

2170 PRINT:INPUT"Duplex (V/H): ",in$ 

2180 IF in$<>""THEN in$=UPPER$ (in$):IF in$ 
="V"THEN hd=1 ELSE IF in$="H"THEN hd=2 ELS 
E GOTO 2170 

2190 PRINT:INPUT"ENTER C+L,C,L ",in$ 

2200 IF in$<>""THEN in$=UPPER$ (in$):IF in$ 
="C+L"THEN etr$=CHR$ (13)+CHR$ (10)ELSE IF i 
n$="C"THEN etr$=CHR$ (13)ELSE IF in$="L"THE 
N etr$=CHR$ (10)ELSE 2190 

2210 ON ERROR GOTO 0 

2220 GOSUB 8000 

2230 RETURN 

2240 RESUME NEXT 

3000 '---- Protokolle ein/aus ---- 

3010 CLS 

3020 PRINT:PRINT"PROTOKOLLE ein/aus 

3030 PRINT:PRINT"Drucker "; 

3040 GOSUB 9130 

3050 GOSUB 9190:IF fehl GOTO 3030 ELSE IF 
NOT abr THEN dr=ja ELSE ja=dr:GOSUB 9190:I 
F fehl GOTO 3030 

3060 PRINT:PRINT"RAM-Prokl.";:GOSUB 9130 
3070 IF NOT abr THEN ra=ja:pz=&5FFF:pkb.ue 
br1=0 

3080 PRINT:PRINT"ASCII-File";:GOSUB 9130 
3090 IF abr THEN 3110 ELSE IF fi THEN GOSU 
B 9090 

3100 IF ja THEN GOSUB 9000:IF NOT fehl THE 
N £fi=-1:0PENOUT a$ ELSE 3100 

3110 GOSUB 8040 

3120 RETURN 

4000 '---- Protokolle ausgeben ---- 

4010 CLS 

4020 PRINT:PRINT"PROTOKOLLE ausgeben 

4030 IF pz=&5FFF AND NOT pkb.uebrl THEN PR 
INT:PRINT"RAM leer..":PRINT:PRINT:GOTO 430 
0 

4040 PRINT:PRINT"Ra drucken"; 

4050 GOSUB 9130 

4060 GOSUB 9190:IF fehl GOTO 4040 ELSE dru 
=ja 

4070 PRINT:PRINT"Ra ansehen"; 

4080 GOSUB 9130:ans=ja 

4090 PRINT:PRINT"Ra sichern"; 

4100 GOSUB 9130:sic=ja:PRINT 

4110 IF sic THEN GOSUB 9090:G0SUB 9000:IF 
NOT fehl THEN OPENOUT a$ ELSE 4110 

4120 IF NOT(dru OR ans OR sic)THEN 4280 
4130 CLS#3 

4140 WINDOW SWAP 4 

4150 PRINT TAB(1),:PRINT:PRINT" ** PROTOK 
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[1590] 
[979] 
[1063] 
[2110] 
[555] 
[4696] 


[1450] 
[91] 
[1467] 
[474] 
[2656] 
[4914] 


[1023] 
[2490] 
[1884] 
[1633] 


[883] 
[3821] 


[1255] 
[3572] 


[5597] 


[1805] 
[3032] 


[1332] 
[5272] 


[2122] 
[6912] 


[1381] 
[824] 
[555] 
[703] 
[946] 
[91] 
[2967] 
[2323] 
[1046] 
[5672] 


[1796] 
[2534] 


[2387] 
[2373] 


[3706] 


[1040] 
[555] 
[1607] 
[91] 
[2693] 
[6466] 


[1119] 
[1046] 
[3356] 


[1503] 
[1342] 
[1738] 
[1831] 
[3870] 


[2776] 
[371] 
[823] 
[4568] 


OLL ** Anhalten: [ENTER] ** Abr.: [ESC] ** 


Programme 


4160 IF NOT pkb.uebrl THEN FOR i=&5FFF TO [4355] 8020 ISIOINIT,dat,par,stp,evn [1809] 
pz+1 STEP-1:G0SUB 4190:NEXT:GOTO 4250 8030 KEY 140,etr$ [1249] 
4170 FOR i=pz TO &2800 STEP-1:G0SUB 4190:N [3308] 8040 '-- anz - [360] 
Er 8050 WINDOW SWAP 2 [833] 


8060 IF par=0 THEN par$=" No"ELSE IF evn=0 [6134] 
THEN par$="ODD"ELSE par$="EVEN" 
8070 IF hd=2 THEN dpl1$="HALB"ELSE dp1$="Vo [2263] 


4180 IF i>O THEN FOR i=&5FFF TO pz+1 STEP- [4436] 
| 1:G0SUB 4190:NEXT:GOTO 4250 ELSE 4250 


4190 IF dru THEN PRINT#8,CHRS(PEEK(i)); [2100] = 
4200 IF ans THEN PRINT CHRS(PEER(i)); [2345] - 
4210 IF sic THEN PRINT#9,CHRS(PEEK(i)); [1889] 8080 LOCATE 1,1 [611] 


8090 PRINT USING"Dr:# Ra:# Fi:# Ba:#### [8238] 
= Dat:# Par:& Stp:# = &-Dupl E 
NTER: ";-dr,-ra,-fi,bdi,dat,par$,stp,dpl$ 


4220 IF NOT INKEY(66) THEN PRINT" ** ABBRU [3626] 
CH **":PRINT:i=0 


4230 WHILE NOT INKEY (18) :WEND [2421] . 
a [555] Si IF bdi<»bd2 THEN LOCATE 26,1:PRINT bd [3629] 
ee N ee [2761] 8110 LOCATE 79,1:PRINT CHRS(1)LEFTS((etr$) [1598] 
| 1 ’ 1) ’ 
4260 IF sic THEN CLOSEODT u] 8120 IF LEN(etr$)>1 THEN PRINT CHRS(1)NIDS [4328] 
et her 19 (etr$,2);ELSE PRINT" "; 
4280 '-- ASCII-File ansehen -- [2442] 8130 WINDOW SWAP 2 5 
4290 LOCATE 1,4:PRINT CHR$ (20); [2361] 8140 RETURN [633] 
4300 PRINT"ASCII-File ansehen":PRINT TAB(1 [2204] ge es 
1) =300: 
4310 GOSUB 9130:IF NOT ja THEN GOTO 4430 [3062] en ee (855) 
| 4330 COSUB 90OD:IF NOT fehl THEN OPENIN a [39511 Be auls, ACTE 2006 2273 
| er ann : 8190 etr$=CHR$ (13) [1118] 
| 8200 IF(INP(&F500)AND 64)=0 THEN dr=-1 [2143] 
4340 CLS#3 [371] 8210 ra=-1 [381] 
| 4350 WINDOW SWAP 4 [823] 8220 COTO 8000 [312] 
| 4360 PRINT TAB(1),:PRINT:PRINT" ** ASCII- [5711] 9000 '---- Disc-Nane & :/b:-U halt - [1957 
| File >"a$"< ansehen ** Anhalten: [ENTER] * Er 0 6 ar/b:-Unschaltung - [ - 
* Abr.: [ESC] ** " & Ne 
4370 WEILE NOT EOF [1840] 2 ee NUT oh a 
Dr ad 900 HP TEIRQB.*3-2 am uanaso2 ram ea 
[4322] IF UPPERS(LEFT$(a$,1))="B" THEN |B:G0TO 9 
4400 WEILE NOT INKEY(18) :WEND [2421] ar 
: 9040 IF a$="" AND fi THEN GOSUB 9090:G0SUB [2599] 
4410 WEND [390] 8040 
4420 PRINT TAB(1)" ** ASCII-File ansehen [2433] 9050 IF a$=""THEN PRINT CHR$(11);:WINDON S [7704] 
“x. us 
| ie a u ER WAP 5:CAT:WINDOW SWAP 5 ELSE IF LEN(a$) <9+ 
INSTR(a$,":")THEN fehl=0 ELSE PRINT"max. 8 
| 4440 RETURN [555] Buchstaben 
| so Sg ASCII-File senden ---- ei 9060 IF a$=""AND VPOS(#5)=23 THEN CLS#6 [2457] 
| 5020 PRINT:PRINT"ASCII-File senden" [2146] un ERRTRRREREE 11209] 
| 5030 PRINT:PRINT"CAT > ENTER":PRINT [2003] Er [555] 
5040 GOSUB 9000 [1040] : Fi-File schliessen ---- [1764] 
| EeH 77 ST a0ro 600 [919] 9100 IF fi THEN PRINT#5:PRINT#6:PRINT#5," [8626] 
5060 KEY DEF 66,0,252 [877] *%* Protokoll-File geschlossen **":PRINT#6 
5070 OPENIN a$ [715] :PRINT#5:PRINT#6:CLOSEOUT: £i=0 
5080 PRINT:PRINT"... senden";:GOSUB 9130:I [3805] 9110 LOCATE#4,1,VPOS (#5) -(VPOS (#5) =23) [1209] 
F NOT ja THEN CLOSEIN:CLS#3:G0TO 5230 9120 RETURN [555] 
5090 CLS#3 [371] 9130 '---- ja/nein (/abr) ---- [956] 
5100 WINDOW SWAP 4 [823] 9140 PRINT" ? (j/n)"; [963] 
| 5110 PRINT:PRINT" ** ASCII-File >"a$"< se [1383] 9150 abr=0:j$=LOWER$ (INKEY$):IF j$=""THEN [2278] 
| nden ** Abr.:[ESC] ** 9150 
| 5120 WHILE NOT EOF [1840] 9160 IF j$="j"THEN ja=-1 ELSE ja=0:IF j$=" [3892] 
| 5130 LINE INPUT#9,a$ [1529] n"THEN ELSE IF j$=CHR$(127)OR j$=CHR$ (13)T 
5140 FOR i=1 TO LEN(a$) [791] HEN abr=-1 ELSE PRINT CHR$(7);:GOTO 9150 
5150 ISEND,ASC(MID$ (a$,i)) [2121] 9170 PRINT STRING$(9,8);:IF abr THEN PRINT [4348] 
5160 IF INKEY$=CHRS (252)THEN GOSUB 5240:PR [4264] = "ELSE IF ja THEN PRINT" ja "ELS 
INT" ** ABBRUCH **":G0T0 5210 E PRINT" nein " 
5170 NEXT [350] 9180 RETURN [555] 
5180 GOSUB 5240 [899] 9190 "---- Drucker bereit? ---- [472] 
5190 |RECV,@a:IF a THEN PRINT CHRS(a);:GOT [2459] 9200 IF ja AND(INP(&F500)AND 64) THEN PRINT [4861] 
0 5190 CHR$ (13) CHR$ (11)CHRS (24) "Drucker einschal 
5200 WEND [390] ten"CHR$ (24) :fehl=-1 ELSE fehl=0 
5210 CLOSEIN [752] 9210 RETURN [555] 
5220 PRINT:PRINT" ** ASCII-File senden EN [3079] 9999 SAVE"cpc-term":SAVE"!MAIL.OBJ",b,&900 [3589] 
DE **":PRINT 0,&280:SToPp 
5230 RETURN [555] 


5240 FOR i=1 TO LEN(etr$):!SEND,ASC(MIDS(e [3179] 
tr$,i)):NEXT 
5250 FOR i=1 TO 35:NEXT:' Pause nach 'CR' [2310] 


ca.50ns 

5260 RETURN [555] 

6000 '---- ENDE ---- [794] 

6010 PRINT"...wirklich";:GOSUB 9130 [2020] 
6020 IF NOT ja THEN RETURN [1554] 
6030 GOSUB 9090:WINDOW SWAP 3:PAPER 0:PEN [4859] 
1:KEY DEF 66,0,252:CLEAR 

6040 END [110] 

8000 '---- V/24 einstellen und Anzeigen -- [2426] 


8010 !BAUD,125000/bd1,125000/bd2 [2071] 
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Keine Angst, es handelt sich hier nicht um die x-te »Einführung in die 
Soundprogrammierung für Anfänger«. Wir gehen davon aus, daß Sie sich 
schon mit der Programmierung von Klängen beschäftigt haben; insbesonde- 
re sollte Ihnen der SOUND-Befehl des Schneider-Basic vertraut sein. Im 
Folgenden wollen wir uns hauptsächlich mit jenen Details der Soundpro- 
grammierung befassen, die im CPC-Handbuch nur versteckt angedeutet 
werden; teilweise sind sie dort auch schlicht falsch dargestellt oder werden 
gar nicht erst erwähnt. Das betrifft vor allem die Hüllkurven-Kommandos 


ENV und ENT. 


ENT 

Als erstes wollen wir ENT, den Befehl 
zur Definition einer Tonhüllkurve, unter 
die Lupe nehmen. Das Format ist be- 
kannt: 


ENT < Nummer >, < maximal 5 Verän- 
derungsfolgen > 


Der Parameter <Nummer> kann zwi- 
schen 1 und 15 liegen, es sind also bis zu 
15 verschiedene Tonhüllkurven program- 
mierbar. Wenn Sie keine< Verände- 
rungsfolge> angeben (z.B.: ENT 3), 
wird die betreffende Tonhüllkurve ge- 
löscht. Das Standardformat einer <Ve- 
ränderungsfolge> sieht so aus: 


<Schrittzahl> ,<Schrittgröße >, 
<Pausenzeit> 

Dabei gilt: 

< Schrittzahl >: Wertebereich 0...239 
< Schrittgröße >: Wertebereich—128... 
+127 

< Pausenzeit>: Wertebereich 0...255 
Die Abarbeitung einer Tonhüllkurve ge- 
schieht wie folgt: Zunächst wird die ak- 
tuelle Tonperiode um den Wert < Schritt- 
größe> vergrößert (bzw.vermindert, 
wenn < Schrittgröße > negativ ist). Der 
so entstandene Ton wird so viele Hun- 
dertstelsekundenlang gehalten, wie durch 
<Pausenzeit> angegeben (eine < Pau- 
senzeit>von 0 wird als 256 interpre- 
tiert). Dieser Vorgang wird so oft wieder- 
holt, wie durch < Schrittzahl > definiert. 
Anschließend wird, falls vorhanden, die 
nächste <Veränderungsfolge > abgear- 
beitet usw. Um uns diesen Vorgang ganz 
klarzumachen, wollen wir ihn einmal 
durch ein Basic-Programm simulieren. 
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Allgemein sieht der Aufruf einer Ton- 
hüllkurve so aus: 
ENT nr, sz(l), sg(), pz(l),... 


sg(n), pz(n) 
SOUND kanal, grundperiode, dauer, 
lautstärke, 0, nr 


‚ sz(n), 


(n bezeichnet hier die Anzahl der<Ve- 
ränderungsfolgen > und liegt zwischen 1 
und 5.) Das gleiche wird durch das fol- 
gende Programm bewirkt: 


lO periode = grundperiode 

20 FOR folge = 1TOn 

30 FOR schritt = 1 TO sz(folge) 

40 periode = periode + sg(folge) 
50 SOUND kanal, periode.pz(folge), 
lautstärke 

60 NEXT schritt 

70 NEXT folge 


Beachten Sie dabei, daß die erste Verän- 
derung der Tonperiode schon zu Beginn 
des erzeugten Tons stattfindet; insofern 
ist die Grafik im Sound-Kapitel des 
Handbuchs nicht ganz korrekt. Dazu ein 
Beispiel: 

ENT 1, 4,-10,25 

SOUND 1,150,100,15,0,1 


bewirkt das gleiche wie die Befehlsfolge: 


SOUND 1, 140, 25, 15 
SOUND 1, 130, 25, 15 
SOUND 1, 120, 25, 15 
SOUND 1, 110, 25, 15 


Sie hören vier aufsteigende Töne von je 
einer Viertelsekunde Länge. Die Dauer 
der Tonhüllkurve hat übrigens keinen 
Einfluß auf die Gesamtdauer des Tons. 
Geben Sie z.B.ein: 


SOUND 1, 150, 50, 15,0, 1 
so hören Sie nur die ersten zwei Töne. 


SOUND 1, 150, 200, 15, 0, 1 

bewirkt wieder die Ausgabe von vier Tö- 
nen, wobei der letzte Ton diesmal jedoch 
eine Sekunde länger gehalten wird. 
Wenn Sie beim ENT-Kommando eine 
negative <Nummer> angeben, wird 
die Tonhüllkurve wiederholt — natürlich 
nur so lange, wie durch den dritten Pa- 
rameter des SOUND-Befehls definiert. 
Beispiel: 

ENT -1, 4,-10, 25 

SOUND 1, 150, 300, 15, 0, 1 

erzeugt zwölf verschiedene Töne. Die 
Wiederholungsfunktion eignet sich vor- 
züglich zur Programmierung von Soun- 
deffekten: 

ENT -1, 50,-1, 2,50, 1,2 

SOUND 1, 200, 2000, 15,0, 1 

ergibt einen sirenenartigen, an-und ab- 
schwellenden Klang. Ein anderes An- 
wendungsgebiet ist die Erzeugung eines 
Vibratos, das den doch recht monotonen 
Rechteckklang des Soundchips etwas in- 
teressanter macht: 

ENT -1. 1, 1,8, 14-1,5 

Falls Sie mit tiefen Tönen arbeiten, soll- 
ten Sie den Betrag von< Schrittgröße > 
entsprechend größer wählen. 

Bisher haben wir uns mit der relativen 
Anderung der Tonperiode beschäftigt. 
Jedoch gibt es, wie anscheinend kaum je- 
mand weiß, auch die Möglichkeit, den 
Ton absolut zu ändern. Hier sieht das 
Format der< Veränderungsfolge> so 
aus: 

= <Tonperiode> ,< Pausenzeit> mit: 
< Tonperiode >: Wertebereich 0...4095 
<Pausenzeit>: Wertebereich 0...255 
In diesem Format hat eine < Verände- 
rungsfolge> also nur zwei Parameter; 
zur Unterscheidung von der Standard- 
form muß vor dem ersten Parameter ein 
Gleichheitszeichen stehen. < Pausen- 
zeit> hat dabei die gleiche Funktion wie 
im Normalformat, bezeichnet also die 
Pausenlänge in Hundertstelsekunden. 
<Tonperiode> steht für die absolute 
Tonhöhe, wie Sie es ja vom SOUND- 
Kommando her kennen. Beispiel: 
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ENT -1, =239,20, =213,20, = 190,20, 
=179,20 
SOUND 1,0, 30000, 15, 0, 1 


spielt Ihnen fünf Minuten lang die ersten 
vier Noten der C-Dur-Tonleiter vor. 
(Wenn Ihnen das Gedudel auf die Nerven 
zu gehen beginnt, drücken Sie einmal auf 
die DEL-oder CLR-Taste; das erzeugt 
den bekannten CHR$(7)-Piepser, und 
der bewirkt nichts anderes als der Befehl 
SOUND 135, 90, 20, 11.) 
Selbstverständlich lassen sich beide For- 
mate — relative und absolute Tonhöhe- 
nänderung — beliebig mischen, wobei 
die Gesamtzahl der < Veränderungsfol- 
gen> natürlich Fünf nicht überschreiten 
darf. 


ENV 

Wenden wir uns nun der Lautstärken- 
hüllkurve zu. Der Befehl ENV ist formal 
mit dem ENT-Kommando fast identisch: 


ENV <Nummer>,< maximal 5 Ver- 
änderungsfolgen > 


Auch hier können bis zu 15 verschiede- 
ne Hüllkurven programmiert werden. 
Das Standardformat einer< Verände- 
rungsfolge> sieht ebenfalls genauso 
aus: 


<Schrittzahl> ,<Schrittgröße > 
„<Pausenzeit> 

mit: 

< Schrittzahl>: Wertebereich 0...127 
< Schrittgröße >: Wertebereich -128... 
+127 

< Pausenzeit>: Wertebereich 0...255 
Der einzige Unterschied zur Tonhüllkur- 
ve besteht darin, daß < Schrittzahl > den 
Wert 127 nicht überschreiten darf. 
< Schrittgröße > bezeichnet hier natür- 
lich nicht die Anderung der Tonhöhe, 
sondern den Betrag, um den sich die 
Lautstärke verändert. Es verblüfft viel- 
leicht zunächst, daß < Schrittgröße > 
Werte zwischen -128 und + 127 anneh- 
men darf, da doch die Lautstärkeskala 
nur von Obis 15 reicht. Die Erklärung ist 
einfach: Wenn die aktuelle Lautstärke 
aus dem zulässigen Bereich herauswan- 
dert, wird sie mit 15 verUNDet und so 
wieder auf einen korrekten Wert ge- 
bracht. Wir wollen auch die Lautstärken- 
hüllkurve durch ein Basic-Programm si- 
mulieren. Das allgemeine Format für ih- 
ren Aufruf: 


ENV nr, sz(1), sg(1), pz(1),..., sz(n), 
sg(n), pz(n) 

SOUND kanal, periode, dauer, grund- 
lautstärke, nr 

Und als Basic-Programm: 

lO lautstärke = grundlautstärke 

20 FOR folge = 1TOn 

30 FOR schritt = 1 TO sz(folge) 
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40 lautstärke = (lautstärke + sg(folge)) 
AND 15 

50 SOUND kanal, periode, pz(folge), 
lautstärke 

60 NEXT schritt 

70 NEXT folge 


Betrachten wir jetzt ein einfaches Bei- 
spiel: 

ENV 1,15, 1,10 

SOUND 1, 250, 150, 0, 1 


Die Lautstärke wird, wie zu erwarten 
war, in 15 Schritten von O auf den Ma- 
ximalwert hochgeregelt. Was passiert 
nun aber, wenn wir im SOUND-Kom- 
mando eine andere Grundlautstärke de- 
finieren? Geben Sie ein: 


SOUND 1, 250, 150, 8, 1 


Ergebnis: Die Lautstärke steigt zunächst 
von 9 auf 15, wird dann aber abrupt auf 
0 gesetzt (denn 16 AND 15 ergibt 0) und 
klettert anschließend weiter bis zum End- 
wert 7. Um Verwirrungen zu vermeiden, 
empfiehlt es sich daher zumeist, die 
Grundlautstärke im SOUND-Komman- 
do prinzipiell auf O zu setzen und jegli- 
che Lautstärke nur über die Hüllkurve 
zuzugeben. 


Auch die Lautstärkenhüllkurve hat im 
Normalfall keinen Einfluß auf die Dau- 
er des Tons; diese wird durch den drit- 
ten Parameter des SOUND-Kommandos 
bestimmt. Falls die Tondauer kürzer ist 
als die Länge der Hüllkurve, wird die 
Hüllkurve nur zum Teil abgearbeitet: 


SOUND 1, 250, 80, 0, 1 


regelt die Lautstärke bis auf 8 hinauf und 
bricht dann ab. Ist die Tondauer dagegen 
länger als die Hüllkurve, so wird der Ton 
mit dem zuletzt erreichten Lautstärkepe- 
gel fortgesetzt: 


SOUND 1, 250, 400, 0, 1 


Soweit also alles wie beim ENT-Kom- 
mando. Jedoch gibt es die Möglichkeit, 
den dritten Parameter des SOUND-Be- 
fehls auf 0 zu setzen: 


SOUND 1, 250, 0,0, 1 


Jetzt wird die Tondauer allein durch die 
Länge der Hüllkurve bestimmt. Übri- 
gens ist auch eine gelöschte Lautstärken- 
hüllkurve noch definiert; das Betriebssy- 
stem rechnet dann mit folgenden De- 
fault-Werten: <Schrittzahll> = |, 
<Schrittgröße> = 0, <Pausenzeit> 
= 200. Das können Sie ganz einfach 
überprüfen; geben Sie einmal ein: 


ENV 1 
SOUND 1, 250,0, 15, 1 
Der Ton erklingt genau zwei Sekunden 


lang. Auch für die Lautstärkenhüllkur- 
ve existiert eine Wiederholfunktion. 
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Dazu müssen wir im SOUND-Befehl für 
die Dauer einen negativen Wert ein- 
setzen: 


ENV 1, 16,-1,2 
SOUND 1, 250,-10, 0, 1 


Die Hüllkurve wiederholt sich genau 
zehnmal. Diese Funktion ermöglicht es 
uns, den CPC auf einfache Weise in ei- 
nen Drum-Computer zu verwandeln: 


ENV 1, 16,-1,2,8,-4,4, 16, -1,2,4,-4,8 
SOUND 1, 0, -30000, 0, 1,0, 20 


ergibt den bekannten DUM-DA-DA- 
DUM-DAH-Rhythmus. Zur Krönung 
des Ganzen können wir noch eine Ton- 
hüllkurve definieren: 


ENT -1, =1000, 32, =500, 32 


Drücken Sie jetzt DEL oder CLR, um 
den Ton abzubrechen, und geben Sie 
dann ein: 


SOUND 1, 0, -30000, O, 1, 1, 20 


Der Takt wird jetzt 30000mal wieder- 
holt, das heißt, das Schlagzeug läuft ge- 
nau 10 Stunden und 40 Minuten ohne 
Pause. Das dürfte wohl ausreichen, um 
auch Ihre längsten Kompositionen mit ei- 
ner Rhythmusbegleitung zu versehen. 
Soviel zur relativen Lautstärkenände- 
rung. Natürlich gibt es auch beim ENV- 
Befehl die Möglichkeit, die Lautstärke 
absolut zu definieren. Dazu müssen wir 
< Schrittzahl > auf den (an sich ja sinn- 
losen) Wert O setzen; < Schrittgröße > 
steht dann für den absoluten Lautstärke- 
wert: 


ENV 1,0, 8, 50, 0, 3, 50, 0,15,50 
SOUND 1, 250, 150, 0, 1 


Der Ton erklingt zunächst mit mittlerer 
Lautstärke (8), wird dann auf 3 gesetzt 
und schließlich auf den Maximalpegel 
hochgeschaltet. Selbstverständlich kön- 
nen Sie auch beim ENV-Befehl relative 
und absolute < Veränderungsfolgen > 
beliebig mischen. Damit hätten wir alle 
Aspekte des Standardformats der < Ve- 
ränderungsfolge> abgehandelt. Zusätz- 
lich gibt es noch ein Format mit nur zwei 
Parametern; wie beim ENT-Befehl muß 
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vor dem ersten Parameter zur Unter- 
scheidung ein Gleichheitszeichen gesetzt 
werden: 


= <Hüllkurvenform > ,< Verände- 
rungsperiode > 

Dabei gilt: 

<Hüllkurvenform>: Wertebereich 
0...15 

< Veränderungsperiode>: Wertebe- 
reich 0...65535 


Zur Erklärung dieses Formats müssen 
wir etwas weiter ausholen. Bisher haben 
wir uns ausschließlich mit softwaremä- 
Big erzeugten Hüllkurven befaßt. Das 
Betriebssystem des CPC arbeitet die 
Hüllkurven per Interrupt ab und erzeugt 
Lautstärkeveränderungen durch direkte 
Manipulation der Lautstärkeregister des 
Soundchips. Daneben verfügt der 
Soundchip aber noch über einen eigenen 
Hüllkurvengenerator, der normalerwei- 
se nicht benutzt wird. Die Zwei-Parame- 
ter-Form der < Verände- rungsfolge> 
erlaubt uns nun den direkten Zugriff auf 
die Hardwarehüllkurven des PSG (PSG 
= Programmable Sound Generator, also 
der Soundchip) 


Der Parameter < Hüllkurvenform > be- 
stimmt die gewünschte Hardwarehüll- 
kurve. Diese sind von O0 bis 15 durchnu- 
meriert; allerdings sind die Hüllkurven 
0 bis 3 mit Nummer 9 sowie 4 bis 7 mit 
Nummer 15 identisch, so daß uns de fac- 
to nur acht verschiedene Hüllkurven zur 
Verfügung stehen. Mit Worten lassen 
sich diese nur unzulänglich beschreiben, 
wir haben sie daher in einer Tabelle ab- 
gebildet (Abb. 1). 


Wie Sie sehen, setzen sich die Hardwa- 
rehüllkurven des PSG aus verschiedenen 
Kombinationen von steigenden und fal- 
lenden Sägezahnflanken zusammen. 
Hüllkurve 8 beispielsweise erzeugt einen 
Ton, der von der Maximallautstärke auf 
0 absinkt, dann abrupt wieder auf den 
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Maximalpegel gesetzt wird, wieder lei- 
ser wird usw. Hüllkurve 13 dagegen 
steigt von 0 auf den Maximal- wert und 
bleibt für den Rest des Tons auf der 
höchsten Lautstärke. Beachten Sie, daß 
Lautstärkeveränderungen per Hardwa- 
rehüllkurve immer zwischen den beiden 
Extremwerten der Lautstärkeskala ab- 
laufen (also von O nach 15 oder von 15 
nach 0); auch die im SOUND-Befehl an- 
gegebene Grundlautstärke hat hier kei- 
nerlei Einfluß auf den Tonverlauf. 


Denken Sie außerdem daran, daß der 
PSG zwar drei Tongeneratoren besitzt, 
aber nur einen Hüllkurvengenerator. 
Wenn Sie also beispielsweise auf Kanal 
A einen Ton mit der Hardwarehüllkur- 
ve 8 ausgeben, können Sie nicht gleich- 
zeitig auf Kanal B einen Ton mit Hüll- 
kurve 14 spielen. 


Wir kommen jetzt zum zweiten Parame- 
ter. Die <Periodendauer> bestimmt 
die Flankenlänge der Hardwarehüllkur- 
ve. Leider hält sich der PSG nicht an den 
üblichen Hundertstelsekunden-Takt der 
CPC-Soundbefehle; eine Einheit steht 
hier für 256 Mikrosekunden (1 Mikrose- 
kunde = 1 Millionstelsekunde). Ange- 
nommen, wir wollen die Hüllkurve 10 
mit einer Flankenlänge von einer Sekun- 
de aufrufen. 1 dividiert durch 0,000256 
ergibt rund 3906. Geben wir also ein: 


ENV 1, =10,3906 
SOUND 1, 250, 400, 0, 1 


Selbstverständlich sind auch hier bis zu 
fünf < Veränderungsfolgen> möglich. 
Ein Problem besteht allerdings darin, 
daß wir im Zwei-Parameter-Format kei- 
ne Pausenzeit angeben können; diese 
müssen wir daher durch eine weitere 
< Veränderungsfolge> im Standardfor- 
mat definieren, wobei die < Schrittgrö- 
Be> hier natürlich O0 betragen muß (an- 


dernfalls würde das Betriebssystem die 
Hardwarehüllkurve sofort abschalten). 
Beispiel: 


ENV 1, =8,1953, 1,0,150, =12,1953 
SOUND 1, 250, 0,0, 1 


Der Ton erklingt eineinhalb Sekunden 
lang mit Hüllkurve 8, anschließend hö- 
ren Sie für 256 Hundertstelsekunden die 
Hüllkurve 12 (wenn eine ENV-Anwei- 
sung mit einer < Verän- derungsfolge> 
im Zwei-Parameter-Format abschließt, 
nimmt das Betriebssystem eine Default- 
Pausenzeit von 256 an). 


PSG 

In der Beschreibung des zweiten Formats 
der ENV-< Veränderungsfolge> sind 
wir bereits Ansatzweise auf die direkte 
Programmierung der Hardware einge- 
gangen. Wir wollen das Thema jetzt ver- 
tiefen. Der PSG AY-3-8912 verfügt über 
fünfzehn dem Benutzer zugängliche Da- 
tenregister, die wir als RO bis R14 be- 
zeichnen wollen. R14 fungiert allerdings 
als Datenspeicher für den In/Out-Port 
des Soundchips und hat keinen Einfluß 
auf die Klangerzeugung (im CPC wird 
der I/O-Port für die Abfrage von Tasta- 
tur und Joystick eingesetzt). Hier die 
Funktion der restlichen vierzehn Regi- 
ster! 


RO/R1: Der Inhalt dieser beiden Register 
bestimmt die Periode des Tons von Ka- 
nal A. Die Tonperiode ist ein 12-Bit- 
Wert zwischen O0 und 4095 und entspricht 
dem zweiten Parameter des SOUND- 
Kommandos; dabei steht in RO das Low- 
Byte, in Rl dagegen die obersten vier Bit 
des Wertes. Es gilt also: 


RO = periode AND 255 
Rl = INT (periode / 256) 


Es sei noch darauf hingewiesen, daß die 
Notentabelle im Anhang des CPC-Hand- 
buchs falsch ist. Anscheinend war ur- 
sprünglich geplant, den Soundchip mit 
einer Taktfrequenz von 2 MHz zu verse- 
hen; tatsächlich ist der PSG aber nur mit 
1 MHz getaktet. Die Formel zur Berech- 
nung der Tonperiode muß daher lauten: 
periode = ROUND (62500 / frequenz) 


R2/R3: Funktion wie RO/R1, aber für 
Kanal B. 


R4/R5: Funktion wie RO/RI, aber für 
Kanal C. 


R6: Dieses Register legt die Rauschpe- 
riode fest. Die Rauschperiode kann Wer- 
te zwischen 0 und 31 annehmen und ent- 
spricht dem siebten Parameter des 
SOUND-Kommandos. Dabei gilt: je hö- 
her die Rauschperiode, desto tiefer die 
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Durchschnittsfrequenz des erzeugten 
Rauschens. 


R7: Dies ist das Freischaltregister. Die 
einzelnen Bit kontrollienen: 


Bit 0: Ton Kanal A; 1=aus, O=an 

Bit 1: Ton Kanal B; 1=aus, O=an 

Bit 2: Ton Kanal C; 1=aus, O=an 

Bit 3: Rauschen Kanal A; 1=aus, O=an 
Bit 4: Rauschen Kanal B; 1 =aus, 0=an 
Bit 5: Rauschen Kanal C; 1=aus, O=an 
Bit 6: Datenrichtung des V/O-Ports: 
l=out, O=in 


Um also einen Ton auszugeben, müssen 
Sie zuerst das entsprechende Bit auf 0 
setzen. Achten Sie darauf, daß Bit 6 im- 
mer 0 ist; andernfalls würde der CPC auf 
keinen Tastendruck mehr reagieren, und 
Ihnen bliebe nichts anderes übrig, als den 
Computer auszuschalten. 


R8: Die unteren vier Bit dieses Registers 
bestimmen die Lautstärke von Kanal A 
(Wertebereich 0 bis 15, entspricht dem 
vierten Parameter des SOUND-Befehls). 
Das fünfte Bit hat eine Sonderfunktion: 
Falls es gesetzt ist, werden die unteren 
vier Bit ignoriert und jegliche Lautstär- 
ke nur über die Hüllkurve geregelt (sie- 
he Ril bis R13). 


R9: Funktion wie R8, aber für Kanal B. 
R10: Funktion wie R8, aber für Kanal C. 


RIV/R12: Durch diese beiden Register 
wird die Periodendauer der Hüllkurve 
festgelegt; dabei steht in R11 das Low- 
Byte und in Ri2 das High-Byte: 


Ri1 = UNT (periodendauer) AND 255 


R12 = INT (periodendauer / 256) 

Die Periodendauer läßt sich nach folgen- 
der Formel berechnen: 

periodendauer = ROUND (sekunden * 
3906.25) 


R13: Dieses Register bestimmt die Hüll- 
kurvenform; dabei sind Werte zwischen 
O und 15 möglich (siehe Abb. 1). 


Zur schnellen Referenz haben wir die 
Registerbelegung noch einmal in einer 
Tabelle zusammengefaßt (Abb. 2). 


Jetzt stellt sich natürlich die Frage: Wie 
bekommen wir unsere Daten in die PSG- 
Register hinein? Von Basic aus geht es 
schon mal nicht; wir müssen uns also mit 
Maschinensprache behelfen. Leider ist 
der PSG nicht direkt an den Prozessor 
angeschlossen, so daß wir ihn auf dem 
Umweg über die 8255-PIO programmie- 
ren müssen, was allerdings ein ziemlich 
kompliziertes Datengeschiebe notwendig 
macht. Aber zum Glück gibt es im ROM 
die Routine MC SOUND REGISTER, 
die über den Vektor &BD34 aufgerufen 


Hs a, Meiter 


Tonperigde | 
Lautstärke 
Dh an/aus 
jRauschen an/aus 
IHälikurve an/aus 


Nager. 


Me 
iHul Ikurvenforn 


|Periodendauer 
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A Hilfsnenü 


5G PROGRAMHER EN 


a Ende 


De DIET ET 
De gi} 
Fan & Kai 
"j 


Hi 1snenü 
[1] dezimal --} hexadezimal 
[2] Freguenz --} Tonperiode 
1L3] Natenwert --} Tonperiode 
[4] Flankenlänge --) Periodendauer 


"IREGISTERBELEGUNG: 
a dez hox 


Grundlagen 


wird; wir müssen ihr lediglich im Akku 
die Registernummer und in C die zu 
schreibenden Daten übergeben. Dazu 
genügt das folgende kleine Assembler- 
Programm: 


LD A,(X +2) ; Registernummer in A 
LDC,E; Datenbytein C 

CALL &BD34 ; MC SOUND REGISTER 
RET; fertig 


Und hier das gleiche als Basiclader: 


10ODATADD, 7E, 02, 4B, CD, 34, BD, C9 
20 INPUT »Startadresse«; adresse 

30 IFadresse < HIMEM THEN MEMORY 
HIMEM + 1 

40 FOR i = adresse TO adresse + 7 

50 READ byte$ 

60 POKE i, VALb&« + byte$) 

70 NEXTi 


Der Aufruf erfolgt mit: 


CALL <Adresse> ,<Registernummer>, 
< Datenwert> 


(Falls es Sie interessiert: Unser CALL 
entspricht genau dem SOUND-Befehl 
des MSX-Basic.) Zur Verdeutlichung 
ein kleines Beispiel. Wir wollen auf Ka- 
nal B den Kammerton a’ mit der Hüllkur- 
ve Nummer 14 ausgeben; die Flanken- 
länge der Hüllkurve soll eine Viertelse- 
kunde betragen. Die international ge- 


Bitte Frequenz 


hinar Pens 
HRAAAAHR 

30493099 | | Tonper iode: 
33900308 | |DBE 


Hauptnenü 
[1] eingehen 
[2] ausdrucken 
[3] rücksetzen 
[4] Tonausgahe 
ahhrachen 
Ihre Hahl: [1] 
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Grundlagen 


normte Frequenz des Kammertons be- 
trägt 440 Hz; nach unserer Formel peri- 
ode = ROUND (62500 / frequenz) er- 
gibt sich eine Tonperiode von 142. Wir 
müssen also R2 mit 142 und R3 mit O0 
laden: 


CALL adresse 2,142 
CALL adresse, 3,0 


Jetzt ist R13 mit der Hüllkurvennummer 
zu laden: 


CALL adresse, 13,14 


Die Flankenlänge soll 0,25 Sekunden be- 
tragen; die Formel zur Berechnung der 
Periodendauer lautet: 


periodendauer = ROUND (sekunden * 
3906.25) 


Es ergibt sich eine Periodendauer von 
977 oder hexadezimal &3D1. Das Low- 
Byte müssen wir inR11, das High-Byte 
in R12 eintragen: 


CALL adıesse,11,&D1 
CALL adresse, 12,&3 


Nun müssen wir dem PSG mitteilen, daß 
die Lautstärke von Kanal B durch die 
Hüllkurve gesteuert wird; dazu ist Bit 4 
von R9 zu setzen: 


CALL adresse, 9,&X 10000 


Um den Ton erklingen zu lassen, muß 
nur noch das zuständige Bit im Freischal- 
tregister auf 0 gesetzt werden: 


CALL adresse ,7,8X111101 


Das war’s. Um den PSG wieder auszu- 
schalten, geben Sie ein: 


CALL adıesse,7,8X111111 


DER PSG-PROGRAMMER 

Wie Sie sehen, gestaltet sich die Direkt- 
programmierung des Soundchips doch 
recht umständlich. Um Ihnen ein kom- 
fortables Tool zur Klangentwicklung in 
die Hand zu geben, haben wir daher den 
PSG-PROGRAMMER geschrieben 
(siehe nachfolgendes Listing). Nach dem 
Starten des Programms befinden Sie sich 
im Hauptmenü (rechtes unteres Bid- 
schirmfenster). Vier Menüpunkte stehen 
zur Auswahl: 


<1>eingeben: Soundparameter ein- 
geben. 


<2>ausdrucken: Die aktuelle Re- gi- 
sterbelegung des PSG wird auf Ihren 
Drucker ausgegeben. 


<3>rücksetzen: Der Psg wird vollstän- 
dig auf seine Standardwerte zurückge- 
setzt, also quasi abgeschaltet. Sämtliche 
bisher eingegebenen Tonwerte gehen 
verloren. 


<4> Tonausgabe abbrechen: Der Ton 
wird abgeschaltet. Im Gegensatz zu 
<3> bleiben aber die eingegebenen 
Werte zur weiteren Bearbeitung er- 
halten. 


Zum Menüpunkt <1> sind noch nähe- 
re Erläuterungen erforderlich. Wenn Sie 
diese Funktion gewählt haben, erscheint 
ein blinkender Cursor in der linken Bild- 


schirmhälfte. Steuern Sie den Cursor mit 
den Pfeiltasten zum gewünschten Para- 
meter und geben Sie dann den Wert ein. 
Alle Eingaben müssen hexadezimal er- 
folgen; für das Ein-/Ausschaltfeld gilt 
grundsätzlich: O=aus, l=an. 

Durch Drücken von H gelangen Sie ins 
Hilfsmenü, wo Sie zwischen vier Optio- 
nen wählen können: 


<1> Umrechnung einer Dezimalzahl 
in den entsprechenden Hexadezimal- 
wert. 


<2> Umrechnung Frequenz in Tonpe- 
riode. 


<3> Umrechnung eines Notenwerts in 
die entsprechende Tonperiode. Dabei ist 
der der Note entsprechende Buchstabe 
einzugeben (C, D, E,F, G, A, B oder 
H); Halbtöne sind durch ein nachgestell- 
tes » #« oder »b« zu kennzeichnen. Bei- 
spiele: A, C#, Eb. Außerdem ist die 
Oktave anzugeben; dabei steht 0 für die 
mittlere Oktave (sog. eingestrichene Ok- 
tave). 


<4> Umrechnung der Flankenlänge 
der Hüllkurve in die entsprechende Pe- 
riodendauer. Die Flankenlänge ist in Se- 
kunden einzugeben; dabei sind natürlich 
auch gebrochene Werte wie 0.75 erlaubt. 
Durch Drücken der ENTER-Taste been- 
den Sie die Eingabe. Der PSG-PRO- 
GRAMMEER errechnet aus den eingege- 
benen Werten die Daten für den Sound- 
chip und gibt den Ton aus. Anschließend 
gelangen Sie ins Hauptmenü zurück. 


(G.Cebulla) 


26 EPE 
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10 RR 1659) 320 FOR i=0 TO 18 [529] 
20 '* PSG-PROGRAMMER * [1248] 330 READ x[i]l,ylil,art[li]), laengeli)] [4077] 
30 '% (c) G. Cebulla * 1593] 340 NEXT i (375) 
AO KK KK KK KK [659] 350 '--- Bildschirmaufbau {3113] 
50 '--- Initialisierung (2303) 360 PAPER O:PEN 1 [965] 
60 DEFINT a-z:WIDTH 20 (569) 370 INK 0,0: INK 1,0: BORDER 13: MODE 2 (1989) 
70 DIM x[18),y[18)J,art[18],laengel[l18]),wert [3287] 380 ae$=CHR$ (250): ue$=CHR$(251):s$=CHR$(14 [2374] 
$[18),reg[13] 9 

80 Du: OOMEBBRL END LEERE [1594] 390 PRINT TAB(43) CHR$S(150) STRING$(36, 154 [3626] 
90 okt$="C DEF GA BH" [1276) > CHR$(156); 

100 SYMBOL AFTER 255 [1409] 400 PRINT TAB(18) CHR$(150) STRING$(7,154) [7723] 
110 psg=UNTCHIMEM)+1 [912] CHR$(158) STRING$(7,154) CHR$(158) STRING 

120 SYMBOL AFTER 250 [1398] $(7,154) CHR$S(156) s$ " Hilfsmen” ue$ TAB 

130 '--- Maschinenkode [798] (80) s$; 

140 DATA DD, 7E,02,4B,CD,34,BD,C9 [912] 410 PRINT TAB(18) s$ "KANAL A” s$ "KANAL B [4406] 
150 FOR adr=psg TO psg+7 [1083) "s$ "KANAL C" s$ s$ "[1] dezimal" TAB(62) 

160 READ a$:POKE adr, VAL("&"+a$) (1712) ”"--) hexadezimal " s$; 

170 NEXT adr [547] 420 PRINT CHR$(150) STRING$(16,154) CHR$(1 [9291] 
160.02 Zar anenasrläTeren [1266] 59) STRINGS$(7,154) CHR$S(159) STRINGS$(7,154 

190 SYMBOL 250, &CC,0,&78,&C, &7C, &CC, &76 [2701] >» CHR$(159) STRING$(7,154) CHR$S(157) s$ "L 

200 SYMBOL 251,&66, 0,&66,&66, &66, &66, &3E [2367] 2] Frequenz” TAB(62) "--> Tonperiode = 

210 SYMBOL 252,3,7,&F, &1B, &33, &63, &C3,&C3 [2574] s$; 

220 SYMBOL 253, &C3, &C3, &63, &33,&1B,&F,7,3 [2365] 430 PRINT s$ "Tonperiode" TAB(18) s$ TAB(2 [6206] 
230 SYMBOL 254, &FF [880] 6) s$ TAB(34) s$ TAB(42) s$ s$ "[3] Notenw 

240 '--- Daten f. Soundparameter [1383] ert" TAB(62) "--> Tonperiode 2. Ya; 

250 DATA 21,5,1,9,29,5,1,9,37,9,1,9 [1885] 440 PRINT s$ TAB(18) s$ TAB(26) s$ TAB(34) [6051] 
260: DATA 22,7,.1,1,.30,7,1:12.38,7, 1.1 [960] s$ TAB(42) s$ s$ "[4] Flanken!" ae$ "nge 

270 DATA 22,9,2,1,30,9,2,1,38,9,2,1 [1501] --> Periodendauer” s$; 

280 DATA 22,11,2,1,30,11,2,1,38,11,2,1 (1293) 450 PRINT s$ "Lautst" ae$ "rke'" TAB(18) s$ [5794] 
290 DATA 22,13,2,1,30,13,2,1,38,13,2,1 [1812] TAB(26) s$ TAB(34) s$ TAB(42) s$ CHR$(147 

300 DATA 22,16,1,1,20,18,1,4 [1039] ) STRING$(36,154) CHRS$(153); 

310 DATA 21,21,2,1.22,21,1,1 [1183] 460 PRINT CHR$(151) STRING$(16, 154) CHR$S(1 [8028] 


59) STRING$(7,154) CHR$S(159) STRING$(7, 154 
) CHR$(159) STRING$(7,154) CHR$S(157) CHRS( 
150) STRING$(20, 154) CHR$(156) CHR$(150) S 
TRING$(14,154) CHR$S(156); 

470 PRINT s$ "Ton an/aus’” TAB(18) s$ TAB(2 
6) s$ TAB(34) s$ TAB(42) s$ s$ TAB(64) s$ 

s$ TAB(80) s$; 

480 PRINT s$ TAB(18) s$ TAB(26) s$ TAB(34) 
s$ TAB(42) s$ s$ TAB(64) s$ s$ TAB(80) s$ 


490 PRINT s$ "Rauschen an/aus " s$ TAB(26) 
s$ TAB(34) s$ TAB(42) s$ s$ TAB(64) s$ s$ 
TAB(80) s$; 

500 PRINT s$ TAB(18) s$ TAB(26) s$ TAB(34) 
s$ TAB(42) s$ s$ TAB(64) s$ s$ TAB(80) s$ 


510 PRINT s$ "H" ue$ "llkurve an/aus" s$ T 
AB(26) s$ TAB(34) s$ TAB(42) s$ s$ TAB(64) 
s$ s$ TAB(80) s$; 

520 PRINT CHR$(147) STRING$(16, 154) CHRS$(1 
55) STRING$(7,154) CHR$(155) STRING$(7,154 
) CHR$(155) STRING$(7,154) CHR$S(153) s$ TA 
B(64) s$ s$ TAB(80) s$: 

530 PRINT CHR$(150) STRING$(16, 154) CHRS<1 

58) STRING$(6,154) CHR$S(156) CHR$(150) STR 
ING$(15,154) CHR$(156) s$ TAB(64) s$ s$ TA 

B(80) s$; 

540 PRINT s$ "H" ue$ "llkurvenform " s$ T 

AB(25) s$ s$ " H" ue$ "llkurven: " s$ s$ 
TAB(64) s$ CHR$(147) STRING$(14,154) CHRS$ 
(153); 

550 PRINT s$ TAB(18) s$ TAB(25) s$ s$ TAB( 

42) s$ s$ TAB(64) s$ CHR$S(150) STRING$(14, 

154) CHR$(156); 

560 PRINT s$ "Periodendauer " s$ TAB(25) 
s$ s$ "8 " STRING$(3,253) CHR$(205) TAB(3 

6) "GC " STRING$(4,252) s$ s$ TAB(64) s$ s$ 
" Hauptmen"” ue$ TAB(80) s$; 

570 PRINT CHR$(147) STRING$(16, 154) CHRS$(1 

STRING$(6,154) CHR$S(153) s$ TAB(42) s$ 
s$ TAB(64) s$ s$ "[1] eingeben " s$; 

580 PRINT CHR$(150) STRING$(16,154) CHRS$<(1 

58) STRING$(6,154) CHR$(156) s$ "9 " CHRSC 

205) STRING$(3,95) TAB(36) "D " CHR$(204) 

STRING$(3,254) s$ s$ TAB(64) s$ s$ "[2) au 

sdrucken” s$; 

590 PRINT s$ "Rauschperiode ” s$ TAB(25) 
s$ s$ TAB(42) s$ s$ TAB(64) s$ s$ "[3]) r" 
ue$ "cksetzen" s$; 

600 PRINT CHR$(147) STRING$(16,154) CHRS$<(1 

55) STRING$(6,154) CHRS$S(153) s$ "A " CHRSC 

205) CHR$(204) CHR$S(205) CHR$(204) TAB(36) 
"E '" CHR$(204) CHR$(205) CHRS$S(204) CHRS(2 

05) s$ s$ TAB(64) s$ s$ "[4] Tonausgabe" s 

%; 

610 PRINT CHR$(150) STRING$(23, 154) CHRS$<1 

56) s$ TAB(42) s$ s$ TAB(64) s$ s$ TAB(70) 
"abbrechen "” s$; 

620 PRINT s$ "CEBUSOFT PSG PROGRAMMER" s$ 

s$ "B " CHR$(253) STRING$(3,254) TAB(36) " 

F ” CHR$(252) STRING$(3,95) s$ s$ TAB(64) 

s$ s$ "Ihre Wahl: [ ]" s$; 

630 PRINT CHR$(147) STRING$(23, 154) CHRS(1 

53) CHR$(147) STRING$(15,154) CHR$(153) CH 

R$(147) STRING$(20,154) CHR$S(153) CHR$(147 
) STRING$(14,154) CHRS$(153); 

640 WINDOW#1,66,79,9,15 

650 WINDOW#2,44,63,9,24 

660 GOSUB 2400 

670 INK 1,26 

680 '--- Hauptmenue (Endlosschleife) 

690 WHILE NOT feierabend 

700 LOCATE 78,24 

710 PRINT" " CHRS$S(8); 

720 GOSUB 2780 

730 as="" 

740 WHILE as<"1" 

750 a$=INKEYS$ 

760 WEND 

770 1=REMAIN(O) 

780 CALL cur.off 


OR as>"4" 


790 PRINT a$; 

800 ON VAL(a$) GOSUB 850, 2340, 2400, 2550 
810 WEND 

820 

830 '--- Eingeben 

840 : \ 

850 LOCATE 1,1 
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[5325] 


[3098] 


[6325] 


[3098) 


[4967] 


[7993] 


(7173) 


[8891] 


[4487] 


[6754] 


[4681] 


[9465] 


[5182] 


[9517] 


(4710) 


[10397] 


[8537] 


[1063] 
[1119) 
[859] 
156] 
(1874) 
11700) 
[479] 
[855] 
(831) 
1388) 
[1593] 
1278) 
1390) 
1622) 
[350] 
[420] 
12468) 
[390] 
[174] 
(1617) 
1174) 
[611) 


860 PRINT CHR$(24) CHR$(240) CHRS(24) " " 
CHR$(24) CHR$(241) CHR$S(24) " " CHRS(24) C 
HR$(242) CHRS$S(24) " " CHR$S(24) CHR$S(243) C 
HR$(24) " weiter" SPC(3) CHR$(24) "H" CHRS 
(24) " Hilfsmen’" ue$ SPC(3) CHR$S(24) "ENTE 
R" CHR$(24) " Ende" 

870 cp=0:nr=0 

880 LOCATE x[0),yL[O] 

890 GOSUB 2780 

900 WHILE a$<>CHRS$S(13) 

910 LOCATE x[nr]#+cp, y[nr] 

920 as="" 

930 WHILE as="" 

940 a$=UPPER$(INKEY$) 

950 WEND 

960 IF a$>=CHR$(240) THEN ON ASC(as)-239 G 
OSUB 1240,1300,1360,1420 ELSE IF as>="0" A 
ND as<="9" OR as>="A" AND as<="F" THEN GOS 
UB 1480 ELSE IF as="H" THEN GOSUB 1560 

970 WEND 

980 '--- Eingabe beenden 

990 FOR i1=0 TO 2 

1000 regl2%11=VAL("&"+RIGHT$(wert$[1),2)) 
1010 reg[l2%i+1]=VAL("&"+LEFT$(wert$[i],1)) 
1020 NEXT i 

1030 regl61=VALC"&"+wert$[18]) + 16%VAL(we 
rt$[17)) 

1040 zws="&X" 

1050 FOR i=11 TO 6 STEP-1 

1060 zw$=zw$+twert$[i] 

1070 NEXT i 

1080 reg[71=VAL(zws) XOR 63 

1090 FOR i=8 TO 10 

1100 reglil=VAL("&"+wert$[i-5])) + 16%VAL(w 
ert$[1+4]) 

1110 NEXT i 

1120 regl11]=VAL("&"+RIGHT$(wert$[16),2)) 
1130 reg[12]=VAL("&"+LEFT$(wert$[16),2)) 
1140 reg[13]=VAL("&"+wert$[15]) 

1150 GOSUB 2600 

1160 stream=2:GOSUB 2670 

1170 LOCATE 41,1: PRINT CHR$(17); 

1180 RETURN 

1190 
1200 


'--- Subs Eingabe 
1210 : 


1220 '--- Cursor hoch 

1230 : 

1240 IF nr<3 THEN nr=17 ELSE IF nr<15 THEN 
nr=nr-3 ELSE nr=nr-1+(nr=18) 

1250 cp=0 

1260 RETURN 

1270 : 

1280 '--- Cursor runter 

1290 : 

1300 IF nr<13 THEN nr=nr+3 ELSE IF nr<17 T 
HEN nr=nr+1-(nr=13) ELSE nr=0 

1310 cp=0 

1320 RETURN 

1330 : 

1340 '--- Cursor links 

1350 : 

1360 cp=cp-1 

1370 IF cp<O THEN nr=nr-1-19%(nr=0):cp=lae 
nge[nr]-1 

1380 RETURN 

1390 : 

1400 '--- Cursor rechts 

1410 : 

1420 cp=cpt1 

1430 IF cp=laengelnr] 
18):cp=0 

1440 RETURN 

1450| 

1460 
14707 

1480 IF a$>"1" AND art[nr]=2 THEN RETURN 
1490 MID$(wert$[nr],cpt1)=a$ 

1500 PRINT as; 

1510 GOSUB 1420 

1520 RETURN 

1530 : 

1540 
1550 : 
1560 LOCATE 56,2 
1570 PRINT"aktiv. 
1580 LOCATE 78,2 
1590 as="" 


THEN nr=nr+1+19%*(nr= 


'--- Eingabe 


'’--- Hilfsmenue 


Bitte w' ae$ "hlen: [ ]” 


Grundlagen 


[11905] 


[966] 
(1085) 
(831) 
[1953] 
[1753] 
(388) 
[933] 
1789) 
[390] 
(9315) 


(390) 
[2026] 
[471] 
[1666] 
[2748] 
375] 
1596) 


[996] 
[1133] 
(1106) 
1375] 
[718] 
[556] 
[3695] 


[375] 
[4571] 
[2412] 
[2377] 
(851) 
[902] 
[1910] 
555] 
(174) 
[981] 
(174) 
[1146] 
(174) 
[4591] 


169) 
1555] 
[174] 
[1323] 
[174] 
12784) 


[69] 
1555] 
(174) 
[1663] 
(174) 
(686) 
[2553] 


[555] 
[174] 
[1400] 
[174] 
[642] 
12389) 


555] 
[174] 
[1440] 
[174] 
[1469] 
11937) 
[420] 
(911) 
1555] 
[174] 
(1471) 
[174] 
(663) 
[2879] 
(481) 
1388) 


Grundlagen 


1600 WHILE as<'"1" OR as>"4" [1593] 2350 GOSUB 2670 [829) 

1610 as=INKEY$ [278] 2360 RETURN [555] 

1620 WEND [390] 2370 : [174] 

1630 i=REMAIN(O) [622] 2380 '--- Register ruecksetzen (1003) 
1640 CALL cur.off [350] 2390 : [174) 

1650 PRINT as [399] 2400 FOR i=0 TO 13 [514] 

1660 ON VAL(a$) GOSUB 1760,1860,1970,2220 L2577) 2410 regli]=O0 [719] 

1670 LOCATE 56,2 [663] 2420 NEXT i [375] 

1680 PRINT STRING$(24,32) [1453] 2430 reg[71=63 [328] 

1690 GOSUB 2780 [831] 2440 GOSUB 2600 [851] 

1700 RETURN 1555] 2450 stream=2:GOSUB 2670 (902) 

1710-3 [174] 2460 FOR i=0 TO 18 [529] 

1720 '--- Subs Hilfsmenue [440] 2470 LOCATE x[li],yli] [1347] 
1730 3 [174] 2480 wert$[i1)]=STRING$(laenge[li],"0”) [2525] 
1740 '--- dez -> hex [1252] 2490 PRINT wert$[li] [729] 

1750 : [174] 2500 NEXT i [375] 

1760 CLS#1 1373] 2510 RETURN 1555] 

1770 PRINT#1,"Bitte Dezimal-wert eingeben: [3323] 2520 : (174) 

2530 '--- Ton abschalten [1506] 
1780 INPUT#1,dez! [406] 2540 : (174) 

1790 IF dez!>65535 OR dez!<-32768 THEN PRI [3226] 2550 SOUND 135,0,1,0 [1372] 
NT#1,"Unzul" ae$ "ssige" "Eingabe!”:GOTO 1 2560 RETURN [555] 

770 2570 : 1174) 

1800 PRINT#1,"Hexadezimal:" [1640] 2580 '--- Register belegen [1397] 
1810 PRINT#1,HEX$(dez!,4) [1268) 2590 : [174] 

1820 RETURN [555] 2600 FOR i=0 TO 13 (514) 

1830 : 1174) 2610 CALL psg,i,regli] [785] 

1840 '--- Frequenz -> Tonperiode [1734] 2620 NEXT i (375) 

1850 : (174) 2630 RETURN [555] 

1860 CLS#1 [373] 2640 : [174] 

1870 PRINT#1,"Bitte Frequenz” "eingeben: [2862] 2650 '--- Registerinhalte ausgeben 11382) 
1880 INPUT#1,£freq! [626] 2660 : [174] 

1890 per=ROUND(62500/freq!?> [1341] 2670 LOCATE#2,1,1 (652) 

1900 IF per<O OR per>4095 THEN PRINT#1,"Un [6901] 2680 PRINT#streanm, "REGISTERBELEGUNG: " [2187] 
zul” ae$ "ssige” "Eingabe!”:GOTO 1870 2690 PRINT#stream, "Reg dez hex bin" ae$ "r [3113] 
1910 PRINT#1,"Tonperiode:" [1952] b% 

1920 PRINT#1,HEX$(per,3) (991) 2700 FOR i=0 TO 13 (514) 

1930 RETURN 555] 2710 PRINT#streanm, USING”’R## ### ";i;regli) (3230) 
1940 : [174] ; 

1950 '--- Notenwert -> Tonperiode (2127) 2720 PRINT#stream, HEX$(reg[li],2) TAB(13) B [3155] 
1960 : [174] IN$(reg[i1],8); 

1970 CLS#1 (373) 2730 NEXT i [375] 

1980 PRINT#1,"Bitte Noten-" "wert eingeben [3240] 2740 RETURN [555] 

m; 2750 : 1174) 

1990 PRINT#1,"Beispiele:" [1099] 2760 '--- Cursor anschalten [966] 

2000 PRINT#1,"D f£” ues "D" [863] 2770 : (174) 

2010 PRINT#1,”"D# f" ues "Dis" [1360] 2780 CALL cur.on (354) 

2020 PRINT#1,"Db £f" ue$ "Des" 1873) 2790 AFTER 10 GOSUB 2840 [945] 

2030 INPUT#1, note$: note$=UPPER$ (note$) 611971 2800 RETURN (555) 

2040 note=INSTR(okt$, LEFT$(note$,1)) [2759] 2810 : [174] 

2050 IF note=0 THEN PRINT#1,"Unzul” ae$ "s [2636] 2820 '--- Cursor ausschalten [1381] 
sige" "Eingabe!'":GOTO 1980 2830 : [174] 

2060 IF note=13 THEN note=12 [882] 2840 CALL cur.off [350] 

2070 IF LEN(note$)=1 THEN 2100 (1751) 2850 AFTER 10 GOSUB 2780 [1005] 
2080 IF RIGHT$(note$,1)"#" THEN note=note+ [1943] 2860 RETURN [555] 


1 
2090 IF RIGHT$(note$,1)"B" THEN note=note- [2029] 
1 


2100 PRINT#1,"Bitte Oktave"” "eingeben!" [2787] 
2110 PRINT#1,"0 = mittlere" [1468] 
2120 PRINT#1,TAB(5) "Oktave” 1553] 

2130 INPUT#1,oktave [1083] 


2140 IF ABS(oktave)>4 THEN PRINT#1,"Unzul"” [2027] 
ae$ "ssige” "Eingabe!”":GOTO 2100 

2150 per=ROUND(62500/(440%(2°(INT(oktave)+ [3701] 
(note-10)/12)))) 


2160 PRINT#1,"Tonperiode:"” [1952] 
2170 PRINT#1,HEX$(per,3) [991] 
2180 RETURN 1555] 
2190 : [174] 
2200 '--- Flankenlaenge -> Periodendauer [2711] 
2210 : [174] 
2220 CLS#1 1373] 
2230 PRINT#1,"Bitte Flanken-1” ae$ "nge in [2741] | 
2240 PRINT#1,"Sekunden” "eingeben: ”" [2211] 
2250 INPUT#1,sek! [290] 
2260 pdauer!=ROUND(sek!x*3096.25) (2013) 
2270 IF pdauer!<1 OR pdauer!>65535 THEN PR [6255] 
INT#1,"Unzul" ae$ "ssige" "Eingabe!":GOTO 

2230 : 

2280 PRINT#1,"Periodendauer:"; [1347] 
2290 PRINT#1,HEX$(pdauer!,4) [1470] 
2300 RETURN [555] 
2310 : [174] 
2320 '--- Registerinhalte ausdrucken [1636] 
2330 : [174] 
2340 stream=8 [421] 
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Der im CPC eingebaute AY-3-8912-Soundchip wird durch das 
Basic hervorragend unterstützt. Vor allem wären da die Kom- 
mandos ENV und ENT zu nennen, die aus ihm mittels Inter- 
ruptsteuerung ungeahnte Fähigkeiten herauskitzeln. Leider ge- 
hören diese Befehle mit ihren bis zu 16 Parametern auch zu den 
unanschaulichsten des Schneider-Basic. Hier soll ENVPRO Ab- 
hilfe schaffen, indem es die Hüllkurvenprogrammierung sowohl 
akustisch als auch optisch unterstützt. Nach dem Starten des 
Programmes sehen Sie einen in drei Text/Daten-Windows und 
zwei Grafik-Windows unterteilten Bildschirm vor sich. Im Steu- 
erfenster (links oben) erscheint das Hauptmenue: 


V — Envelope Volume ändern 
T — Envelope Tone ändern 

S — Sound-Test 

A — Abspeichern 

L — Laden 


I) Envelope Volume ändern 

Durch Drücken von V gelangen Sie in das Unterprogramm zur 
Bearbeitung einer Lautstärkenhüllkurve. Nach Eingabe der 
Nummer (1 — 15) werden im ENV — Datenwindow die aktuel- 
len Parameter aufgeführt; falls die Hüllkurve bereits definiert 
war, wird sie außerdem grafisch dargestellt. Mit den Cursor- 
tasten können Sie jetzt die zu ändernden Parameter ansteuern. 
Da gilt: 

—ANZ: Schrittzahl. 


—GRÖBß: Die Größe der Lautstärkeänderung pro Schritt. Hier 
sind sowohl positive als auch negative Werte zulässig. Beach- 
ten Sie: Wenn die Lautstärke kleiner als Null wird, dann wird 
der Ton mit der Maximallautstärke 15 fortgesetzt; ebenso wird 
die Lautstärke bei Überschreiten der 15 auf Null gesetzt. Da- 
durch lassen sich interessante Effekte erzielen; probieren Sie 
z.B. einmal aus: ANZ 127, GROß —-1, LAN. 


LÄN: Schrittlänge, bezeichnet die Pausenzeit bis zur nächsten 
Lautstärkenänderung in Hundertstelsekunden. Nachdem Sie 
alle Eingaben getätigt haben, gelangen Sie durch Drücken der 
ENTER-Iaste wieder ins Hauptmenü; außerdem wird die Hüll- 
kurve grafisch ausgegeben. 


2) Envelope Tone ändern 

Wenn Sie eine Tonhüllkurve bearbeiten wollen, müssen Sie T 
drücken. Die Eingabe erfolgt im wesentlichen wie bei der Laut- 
stärkenhüllkurve. Zusätzlich werden Sie hier noch gefragt, ob 
die Hüllkurve sich wiederholen soll; das ist z.B. dann nützlich, 
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Envpro 


Gehören Sie auch zu den Usern, die gerne (Compu- 
ter)-Musik hören? Sollten Sie sich angesprochen fühlen, . 
dann wollen Sie sicher auch mal was eigenes program- 
mieren. Sie werden sich sagen »hab ich doch schon pro- 
biert, aber es kam nicht’s gescheites heraus«. Nun, mit 
diesem Programm, erfinden auch Laien die schönsten 
Musikstücke, die auch noch auf wunderbare Weise in 
Ihre eignen Basicprogramme eingebunden werden kön- 
nen. Lassen Sie sich in die wundervolle Welt der Compu- 
termusik entführen, nachdem Sie das Programmm abge- 
tippt haben. 


wenn Sie Sirenengeheul erzeugen wollen. Die Schrittgröße be- 

zeichnet hier die Anderung der Tonperiode relativ zum Aus- 
gangswert. Dabei gilt: Positive Werte machen den Ton tiefer, 
negative dagegen höher! 


3) Sound — Test 

Nachdem Sie eine Lautstärken- oder Tonhüllkurve definiert ha- 
ben, drücken Sie S, um sie auszuprobieren. Die Klaviatur liegt 
auf den unteren beiden Tastenreihen und umfaßt eineinhalb Ok- 
taven (18 Halbtöne von C bis F); die Tastenbelegung wird im 
Steuerfenster angezeigt. ENVPRO benutzt alle drei Kanäle des 
Soundchips, Sie können also bis zu drei Töne gleichzeitig spie- 
len. Weitere Steuermöglichkeiten: 


— Cursor hoch/runter: Auf eine höhere bzw. tiefere Oktave um- 
schalten. Dabei stehen Ihnen neun Oktaven von —4 bis +4 zur 
Verfügung, 


— Cursor links/rechts: Rauschperiode verringern bzw. vergrö- 
Bern. Wertebereich: 0 (kein Rauschen) bis 31 (tiefes Rauschen). 
Mit ENTER gelangen Sie wieder ins Hauptmenue. 


4.) Abspeichern 

Wenn Sie Ihre Hüllkurve abspeichern wollen, drücken Sie A. 
Nach der Eingabe des Dateinamens werden Sie gefragt, ob eine 
Speicherung im Binär- oder im Basicformat gewünscht ist: 
— Binär: 

Die Parameter aller Hüllkurven werden vom Interpreter in ei- 
nem 480 Byte großen Datenblock im System-Ram abgelegt. 
(Beim CPC 464 ab Adresse & B61A, beim CPC 664=6128 da- 
gegen ab Adresse & B2B6; ENVPRO erkennt übrigens selbstän- 
dig den verwendeten CPC-Typ und stellt sich darauf ein). Bei 
der Abspeicherung im Binärformat wird dieser Datenblock als 
Binärfile aus Diskette/Kassette geschrieben; er läßt sich ohne 
weitere Maßnahmen mit LOAD wieder laden, 

— Basic: 

Bei diesem Format wird ein Basic-Programm erzeugt, das Sie 
mit MERGE in eigene Programme einbauen können. Dabei 
können Sie den Zeilennummernbereich selbst bestimmen. 


5) Laden 

Wenn Sie Hüllkurven von Diskette/Kassette laden wollen, 
drücken Sie L. Voraussetzung ist allerdings, daß das File im Bi- 
närformat abgespeichert wurde. Noch ein Hinweis zum Schluß: 
ENVPRO löscht in Zeile 50 sämtliche Hüllkurven. Falls bereits 
irgendwelche Hüllkurven im Speicher stehen, die Sie erhalten 
wollen, dann starten Sie das Programm mit RUN 60. 


(G. Cebulla/CD) 
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10. RR [577] 760 vn=en:wn=4:tf=0 (949) 
20 URX EnvEer oo xx (409) 770 GOSUB 970 (842) 
30 '%%* (c)1986 G.Cebulla *% [896] 780 RETURN 1555] 
40 RR [5773 790 ' 61471 
50 FOR i=1 TO 15:ENV i:ENT i:NEXT [826] 800 'env. tone aendern [1277] 
60 SYMBOL 251,90,60,102,102,126,102,102 [2221] 810 [117] 
70 SYMBOL 252,72,0,120,12,124,204,118 [1859] 820 CLS#1: PRINT#1,CHR$(24)" ENVELOPE" [3080] 
80 SYMBOL 253,186,108,198, 198,198, 108,56 [2170] 830 PRINT#1,"TONE "CHR$(252)"ndern'"'CHR$(24 [2280] 
90 SYMBOL 254,0,66,60,102,102,102,60 [1799] > 
100 SYMBOL 255,56,108,104,108,102,102,108 12159) 840 PRINT#1: INPUT#1,"ENT-Nr. (1-15)";en [2556] 
110 'initialisierung [1300) 850 IF en<1l OR en?15 THEN 820 'L1636) 
120 DEFINT a-z 1553] 860 IF en=tn THEN n=O ELSE n=1 [1448] 
130 IF PEEK(&BCD5)=&B2 THEN ea=&B60A ELSE [2917] 870 IF (PEEK(eat&F0+&10%en) AND 127)=0 THE [1739] 
ea=&B2A6 N ne=0 ELSE ne=1 
140 DEF FNf$=STRING$(3-(j=2),35) (1491) 880 tn=en: wn=7:tf=1 [530] 
150 DIM e(3,5),1(3) [1158] 890 PRINT#1: PRINT#1,"Mit Wieder-" [1315] 
160 1(1)=1:1(2)=5:1(3)=10 [713] 900 PRINT#1,"holung? j/n" [2031] 
170 t$="ZSXDCVGBHNJM,L.: /\" [2288] 910 as=UPPER$(CINKEY$S): IF a$="J" THEN en=-e [4306] 
180 FOR 1=240 TO 243: t$=t$+CHR$(1): NEXT (1901) n ELSE IF a$<>"N" THEN 910 
190 t$=t$+CHR$ (13) [962) 920 GOSUB 970 (842) 
200 'bildschirmaufbau [1166] 930 RETURN [555] 
210 INK 0,0: INK 1,26: INK 2,14: INK 3,26,14 L729) 940 ' [117] 
220 MODE 1: BORDER 14: PAPER 0:PEN 2:CLS [2244] 950 'huellkurvenparameter eingeben [1444] 
230 FOR i=1 TO 25 (312) 960 ' (117) 
240 LOCATE 15,1 [720] 970 FOR i=1 TO 2 [436] 
250 IF i=10 OR i=18 THEN PRINT CHR$(157) E [4823] 980 PRINT#wn-1,USING"”###";en; [1045] 
LSE IF i=13 THEN PRINT CHR$(151) ELSE PRIN 990 NEXT [350] 
T CHR$(149) 1000 a=sea+t&F0OXtf+&10xABS(en) [2239] 
260 NEXT [350] 1010 z=PEEK(a) AND 127: b=a [1848] 
270 LOCATE 1,10: PRINT STRING$(14, 154) [2139] 1020 FOR i=1 TO 5 [449] 
280 LOCATE 1,18: PRINT STRING$(14, 154) [1979] 1030 FOR j=1 TO 3 [618] 
290 LOCATE 16,13: PRINT STRING$(25, 154) (972) 1040 b=b+1 1569) 
309 LOCATE 3,12: PRINT"ANZ GR"’CHR$S(253)CHR$ [3758] 1050 IF i>z THEN e(j,i)=0 ELSE e=PEEK(b):e [4963] 
(255)" L"’CHRS(251)"N" (j,1)=e+256%(e>127 AND j=2) 
310 LOCATE 3,20: PRINT"ANZ GR"CHR$S(253)CHR$ [3443] 1060 LOCATE#wn, 1(3),i1: PRINT#wn, USING FNf$; [3135] 
(2559" L"’CHR$S(251)"N" e(j,1); 
320 FOR i=1 TO 5 [449] 1070 NEXT j,i [396] 
330 LOCATE 1,1+12:PRINT CHR$(1+48) [1546] 1080 ON n GOSUB 1610 1643) 
340 LOCATE 1,1+20: PRINT CHR$(1+48) [1450] 1090 GOSUB 1380 [935] 
350 NEXT:PEN 1 [901] 1100 1=1:j=1:c=0:in=0 [1132] 
360 LOCATE 20,1: PRINT”"ENVELOPE VOLUME #'" [2415] 1110 WHILE c<>13 [1300] 
370 LOCATE 20,14: PRINT"ENVELOPE TONE #" 12503] 1120 ae=0:c0=0: a$="" [585] 
380 LOCATE 3,11: PRINT"ENV. VOL.” [2591] 1130 LOCATE#wn,1(j), 1: PRINT#wn, CHR$(24)USI [4047] 
390 LOCATE 3,19: PRINT"ENV. TONE” [1927) NG FNf$;e(j,1); 
400 WINDOW#1,1,14,1,9 [1018] 1140 WHILE c<240 AND c<>13 [1977] 
410 WINDOW#2,12,14,11,11 [1428] 1150 WHILE c$="":c$=INKEYS$: WEND [3068] 
420 WINDOW#3,37,39,1,1 [1178] 1160 c=ASC(c$) [1214] 
430 WINDOW#4,3,14,13,17 [1581] 1170 IF (c=45 AND as$="" AND j=2) OR (c>47 L[9624] 
440 WINDOW#5,12,14,19,19 [1461] AND c<58 AND LEN(a$)<LEN(FNf$)) THEN ae=l: 
450 WINDOW#6,37,39,14,14 [1407] in=1:a$=a$+CHR$(c) ELSE IF c=127 AND as<>" 
460 WINDOW#7,3,14,21,25 [1458] " THEN a$=LEFT$(a$, LEN(a$)-1) 
470 FOR i=1 TO 7: PEN#1,1: PAPER#1,0:NEXT [1668] 1180 LOCATE#wn, 1(j), 1: PRINT#wn, SPC(LEN(FNf [3753] 
480 ORIGIN 310,232,312,614,376,232:CLG 2 (1417) $)-LEN(a$s))as; 
490 ORIGIN 310,24,312,614,168,24:CLG 2 [1603] 1190 c$="" [165] 
500 'hauptmenue - endlosschleife [2236] 1200 WEND [390] 
510 WHILE 1 (921) 1210 v=VAL(as): PRINT#wn, CHR$(24); [2836] 
S20 PRINT#1,CHR$(24)"V"CHRS(24)" Env. Volu [2418] 1220 IF (j=1 AND v>127+112xtf) OR (j=2 AND [4850] 
me’ (v<-128 OR v>127)) OR (j=3 AND v>255) THE 
530 PRINT#1, TAB(3)CHR$(252)"ndern”" [1907] N c=0:GOSUB 1480:GOTO 1250 ELSE IF ae THEN 
540 PRINT#1,CHR$(24)"T"CHRS(24)" Env. Tone [2848] e(j,i)=v 
ne 1230 LOCATE#wn,1(j),1: PRINT#wn, USING FNf$; [3135] 
550 PRINT#1, TAB(3)CHR$(252)"”"ndern" [1907] e(j,1i) 
560 PRINT#1,CHR$(24)"S"CHR$(24)" Sound-Tes [2327] 1240 IF c=240 AND 1i>1 THEN i=i-1 ELSE IF c [6309] 
a“ =241 AND 1<5 THEN i=i+1 ELSE IF c=242 AND 
570 PRINT#1,CHR$(24)"A"CHRS$S(24)" Envelopes [1653] J>1 THEN jJ=j-1 ELSE IF c=243 AND j<3 THEN 
“ 3=J+1 
580 PRINT#1, TAB(3)"abspeichern"” [2338] 1250 VEND [390] 
590 PRINT#1,CHR$S(24)"L"CHR$(24)" Envelopes [2303] 1260 b=a (555) 
” 1270 FOR i=1 TO 5 [449] 
600 PRINT#1,TAB(3)" laden” [1136] 1280 FOR j=1 TO 3 [618] 
610 as=UPPER$S(INKEYS) [789] 1290 b=b+1 [569] 
620 IF a$="V" THEN GOSUB 700 ELSE IF a$s="T [10153] 1300 POKE b,e(j,1)-256%(e(j,1)<O AND j=2) L1953] 
" THEN GOSUB 820 ELSE IF a$="S" THEN GOSUB 1310 IF j=1 AND e(j,1i)=0 THEN z=i-1:POKE a [3410] 
1960 ELSE IF a$="A" THEN GOSUB 2320 ELSE ‚zt+t(en AND 128) ELSE NEXT j,1:z=5:POKE a,z 
IF as="L" THEN GOSUB 2850 ELSE 610 ' +ten AND 128) 
630 c=REMAIN(O):CLS#1 [1718] 1320 ne=1 [179] 
640 WEND [390] 1330 ON in GOSUB 1610 (711) 
650 ' [117] 1340 RETURN [555] 
660 '%%% unterprogramme x*%*%* [1727] 1350 ' [117] 
670 ' [117] 1360 'hilfsmenue huellkurveneingabe [1901] 
680 'env. volume aendern 11584) 1370 [117] 
690 ' [117] 1380 CLS#1: PRINT#1,CHRS$S(24)'"CURSOR'’CHR$(24 [2938] 
700 CLS#1: PRINT#1,CHR$(24)"ENVELOPE" [3080] Den 
710 PRINT#1," VOLUME "CHR$(252)"ndern”’CHR$( [2606] 1390 PRINT#1: PRINT#1,"Parameter"” [1515] 
24) 1400 PRINT#1,"ansteuern’” [1771] 
720 PRINT#1: INPUT#1,"ENV-Nr. (1-15)";en [2572] 1410 PRINT#1: PRINT#1,CHRS$S(24)"ENTER"CHRS$(2 [2213] 
730 IF en<1 OR en>15 THEN 700 [1580) a)"ı" 
740 IF en=vn THEN n=0 ELSE n=1 [1689] 1420 PRINT#1: PRINT#1," Eingabe" [2202] 
750 IF PEEK(ea+t&10%*en)=0 THEN ne=0 ELSE ne [2442] 1430 PRINT#1," beenden” [1876] 
=1 1440 RETURN 1555] 
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1450 ' 23477 2200 WHILE 1<>23 (968) 
1460 '"eingabefehler (1188) 2210 IF 1=19 OR i=20 THEN LOCATE#1,13,5-0k 18759) 
1470 71273 : PRINT#1, USING" +#"; ok; :ok=ok-(1=19 AND ok< 
1480 CLS#1: PEN 3 (512] 4)+(1=20 AND ok>-4): LOCATE#1,13,5-ok: PRINT 
1490 PRINT#1,"EINGABEFEHLER!”"; [1976) #1, USING CHR$(24)+"+#"+CHR$(24);0k; :GOTO 2 
1500 PEN 1: PRINT#1,"Schrittanzahl:”; [2552] 170 
1510 PRINT#1,"0..."USING”###", 127+112%xtf [2187) 2220 IF i=21 OR i=22 THEN noise=noise+t(i1=2 [5753] 
1520 PRINT#1: PRINT#1,"Schrittgr"'CHR$(254)C [2169] 1 AND noise>0)-(i=22 AND noise<31):LOCATE# 
HR$ (255 )"e:" 1,10,9: PRINT#1, USING” ##" ; noise: GOTO 2170 
1590 BRINI#L, ">-128:.,427* [902] 2230 pe=ROUND(62500/(440%(2° (ok+(1-10)/712) [2787] 
1540 PRINT#1: PRINT#1,"Schritt1"CHR$(252)"n [2259] »») 
ge:"” 2240 ka=kaX2: IF ka>4 THEN ka=ı [1937] 
1550 -PRINT#1,"0..,.239" 1755] 2250 SOUND ka+128,pe,0,0,vn, tn, noise 12363) 
1560 AFTER 500 GOSUB 1380 1568] 2260 GOTO 2170 (361) 
1570 RETURN (555) 2270 WEND [390] 
1580 ' (117) 2280 RETURN (5951 
ı 1590 'huellkurve zeichnen (717) 2290 £{117) 
\ 1600 * k2T73 2300 'huellkurven abspeichern [1494) 
1610 ORIGIN 310, 232-208xtf,312,614,376-208 [2880] 2310 (117) 
|  x*tf,232-208%tf:CLG 2 2320 CLS#1: PRINT#1, CHR$(24)"Envelopes” [2873] 
ı 1620 IF ne=0 THEN RETURN [785] 2330 PRINT#1,"abspeichern'’CHR$ (24) (2734) 
| 1630 mi=0:ma=0:tg=0:v=0 [1530] 2340 PRINT#1: INPUT#1,"Name"; n$ [1876] 
ı 1640 FOR i=1 TO z [428] 2350 IF LEN(n$)<1 THEN RETURN [1811] 
\ 1650 tg=tgte(1,i)%e(3,1) (1167) 2360 IF LEN(n$)>8 THEN 2340 [1092] 
1660 v=vte(l1,i)%ke(2,i) [1239] 2370 PRINT#1: PRINT#1,"Bitte Format” {21513 
1670 ma=MAX(ma,v) 1215) 2380 PRINT#1,"w'CHR$(252)"hlen:" [2612] 
| 1680 mi=MIN(mi,v) 1683) 2390 PRINT#1,CHR$S(24)"1’CHRS$S(24)" Bin’CHR$S [2655] 
1690 NEXT [350] 232)" r" 
1700 IF tf=0O THEN ma=15:mi=0 [703] 2400 PRINT#1,CHR$S(24)"2’"CHR$S(24)" Basic” [2582] 
1710 LOCATE 16, 2+13%xtf: PRINT USING" ####";m [L1762) 2410 WHILE as<>"1” AND as<>"2":as=INKEY$:W [1605] 
a END 
1720 LOCATE 16, 11+13%*tf: PRINT USING”####"; [2100] 2420 WINDOW SWAP 1,0:CLS [1434] 
| mi 2430 ON VAL(a$) GOSUB 2490,2540 [1680] 
\ 1730 LOCATE 19,12+13%xtf:PRINT O [1600] 2440 WINDOW SWAP 0,1 [1031] 
| 1740 LOCATE 36+(tg<100),12+13xtf: PRINT USI [1858] 2450 RETURN 555] 
ING ARE" tg; 2460 ' [117) 
1750 IF tg<100 THEN PRINT" "; [660] 2470 'binaer abspeichern [1945] 
1760 IF tg=0 THEN tg=1 (1558) 2480 ' [117] 
1770 t!=304/tg [478] 2490 SAVE n$+",env"’,b,ea+&10,&1EO [1739] 
1780 m=ma-mi: IF m=O THEN m=1 [1853] 2500 RETURN (555) 
1790 v!=144/m (774) 2510 ’ [117] 
1800 vO=-mi%v! 11017) 2520 'basic-file generieren [1509] 
\ 1810 IF tf THEN MOVE 0,vO:DRAWR 340,0,0 [1653] 2530 ' 117) 
| 1820 x=0:y=v0:MOVE x,y [1590] 2540 INPUT"1.Zeilennr.: ",zn [1793] 
1830 v=0:t=0 [943] 2550 IF zn=0 THEN zn=10 (1204) 
1840 FOR i=1 TO z [428] 2560 INPUT"Zeilenabstand:",za (1913) 
1850 FOR j=1 TO e(1,1i) [1270) 2570 IF za=0 THEN za=10 (1316) 
1860 v=vte(2,i) 11013) 2580 OPENOUT n$+".bas" 11272) 
1870 WHILE v>ma: v-mi+tv-ma-1: WEND [2245] 2590 FOR ev=1 TO 15 [360] 
1880 WHILE v<mi: v=matv-mi+t1:WEND [1763] 2600 ad=ea+&10tev [994] 
1890 y=vO+tv*v!:DRAW x,y,1 (1161) 2610 z=PEEK(ad) (1290) 
1900 t=t+te(3,1):x=t%*t!:DRAW x,y [704] 2620 IF z THEN z$=STR$(zn)+"ENV"+STR$(ev): [3278] 
1910 NEXT J,i [396] GOSUB 2740: zn=zntza 
1920 RETURN 1555) 2630 NEXT [350] 
1930 ' [117] 2640 FOR et=1 TO 15 [578] 
1940 'sound test 11043] 2650 ad=ea+&F0+&10%*et [622] 
1950 ' . 1117) 2660 z=PEEK (ad) [1290] 
1960 CLS#1: PEN#1,0: PAPER#1,2 [1099] 2670 IF z AND 127 THEN z$=STR$s(zn)+"ENT"+S [5169] 
1970 PRINT#1," KEYBOARD: " 11359) TR$(et+2%et*X(z>128)):GOSUB 2740: zn=zntza 
1980 ORIGIN 0,382,0,174,382,368:CLG 2 [1387] 2680 NEXT [350] 
1990 TAG: PLOT 8,0,0 [1023] 2690 CLOSEOUT [902] 
2000 PRINT"SD GHJ LX"; [1975] 2700 RETURN [555] 
2010 TAGOFF [1066] 2710 ' (117) 
2020 PRINT#1: PRINT#1,"ZXCVBNM<>?\" [1442] 2720 'basic-zeile erzeugen [1326] 
2030 PEN#1,1: PAPER#1,0 [830] 2730 ’ 61473 
2040 PRINT#1,CHR$S(24)CHRS(240)CHRS$(24)" "C [4134] 2740 FOR i=1 TO z AND 127 [577] 
HRS (24) CHRS$(Z241)CHR$(24)" Oktave" 2750 FOR j=1 TO 3 (618) 
2050 PRINT#1, TAB(6)CHR$(252)"ndern”" (1215) 2760 ad=ad+1 (315) 
2060 PRINT#1,CHRS(24)CHRS(242)CHRS(24)" "C [4865] 2770 w=PEEK(ad) [949] 
HR$ (24) CHR$S(243)CHR$(24)" Noise” 2780 z$=Z$+","+STR$(w+256%(w>127 AND j=2)) [2092] 
2070 PRINT#1, TAB(6)CHR$S (252)”ndern” [1215] 2790 NEXT 3,1 [396] 
2080 PRINT#1,CHR$(24)"ENTER"CHR$(24)" End [1829) 2800 PRINT#9,z$ [1016] 
e" 2810 RETURN 1555] 
2090 PRINT#1,TAB(3)"NOISE: 0" [1120] 2820 ' [117] 
2100 ok=0:ka=1:noise=0 11291) 2830 '"huellkurven laden [619] 
2110 FOR i=-4 TO 4 1668] 2840 ' (117) 
2120 LOCATE#1,13,5-1 1597) 2850 CLS#1: PRINT#1,CHR$(24)"Envelopes” [2873] 
2130 IF i=0 THEN PRINT#1,CHR$S(24); [1632] 2860 PRINT#1,"laden’CHR$(24) [2083] 
2140 PRINT#1, USING" +#";1; 11073] 2870 PRINT#1: INPUT#1,"Name"”;ns [1876] 
2150 IF i=0 THEN PRINT#1,CHR$(24); (1632) 2880 IF LEN(n$)<1 THEN RETURN (1811) 
2160 NEXT [350] 2890 IF LEN(n$)>8 THEN 2870 {1330) 
2170 as="":WHILE as="":as=UPPER$(CINKEY$S):W [2173] 2900 WINDOW SWAP 1,0:CLS [1434] 
END 2910 LOAD n$+".env",ea+t&10 61275] 
2180 i=INSTR(t$,a$) [736] 2920 WINDOW SWAP 0,1 [1031] 
2190 IF i=0 THEN 2170 [1190) 2930 RETURN [555] 
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Anwendungen 


Diese beiden Sound-Demo Programme zeigen in eindrucksvol- 
ler Weise, was man bei etwas Geschick aus den drei Sound-Ka- 
nälen des CPC 464 herausholen kann. 


(Jens Köplinger) 


SOUND - DEMO 


written and composed 1987 
by JENS KOEPLINGER 


' ENVs und ENTs festlegen 


130 ! [117] 
140: 'ENV: 1,1.15,1,1,;0,10,2,-1,5.10,-1,20 [1459] 
150 ENT 1: REM ENT-1 in Normalzustand brin [3137] 


ENV: 2,1.15.1,1,.0,10,4,=1,5:.10,; [1317] 
170: ENT =2,2-1,1,2,=1,1,2,1,1,2;1;1 [1162] 
180 ENV 3,1,15,1,1,0,5,14,-1,4 [1178] 
190 ENV 4,1,13,1,1,0,10,2,-1,5.10,-1,30 [2083] 
200 ENV 5,1,15,1,1,0,10,1,-2,5,7,-1,10 [2207] 
210: [117] 
220 ' ** DATAs fuer SOUND [986] 
230 * [117] 
240 ' Negative Zahl = Aenderung der Klangf [3031] 
arbe 
250 .!' [117] 
260 ' ==== THEMA 1 normal [1402] 
270 DATA -1,1,106,89,71,119,95,71,127,106, [3834] 
80,134,106,80,142,213,179,159,142,119,106, 
71,89,106,-2.125 
280 ' ==== THEMA 1 variiert [1380] 
290 DATA -1,2,106,89,71,119,95,71,127,106, [4523] 
80,134,106,80,142,213,179,159,142,119,106, 
142,119,106,-2,22 
300 ' ==== UVeberleitung in rasanten Teil [1975] 
310: DATA -1,3,851.2,.0,1,1,851,1,716,1,0.1, [4011] 
2.,851.2.,.99642,1136.2,1136,2,0,2,3 
320 DATA 851,2,0,1,1,851,1,716,1,0,1,2,851 [3627] 
«1,638,1,568,3,478,1,568,2,0,2,3 
330 ' ==== UVeberleitung variiert [2588) 
340, DATA 851,2,0,.1,1,851,1,.716,1.0,1,2,851. [3722] 
2, 956,2;,1136,2,1136,2,0,2,3 
350 DATA 851,2,0,1,1,851,1,716,1,0,1,2,851 [3886] 
1:,:638.,1,568.,.35478,.1,426..2,.0,253 
360 ' ==== CHINA - THEMA alleine [1786] 
310 DATA -1,4,53,1,71,53,1,71,53,1,.71,53,1 [3348] 
‚11,60,2,80,60,2,80,71,2,95,71,2,95,60,2,8 


070,23 

380: DATA: 53,1,.71553,1571:53.51,71,5351.:7176 
0,2,80,60,2,80,53,1,71,45,1.60,53,1,71,60, 
1,80,53,.1,; 71,0,1,2,0,2,1 

390 ' ==== CHINA - THEMA - Begleitung alle 
ine 

400 DATA -1,3,851,1,851,1,638,1,716,1,851, 
1...956,,1,1136,1,.17136,1,851,1,85151.,.638,1.,71 
641,851,1,956,.1.1136,.1,.0,1;,2 

410 DATA 851,1,851,1,638,1,716,1,851,1,956 


[4364] 


[3059] 


[5462] 


[4839] 
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e1.1136,1.1136,1.851.1.851.1.638,.1.716.1:4 
136,1:956.71,851.1,0;1,3 

420 ' und nun beides zusammen 

430 DATA -1,5,851,53,71,851,53,71,638,53,7 
1,716,53,71,851,60,80,956,0,0,1136,60,80,1 
136,0,0,851,71,95,851,0,0,638,71,95,716,60 
:80,851,0,0,956,0,0,1136,0,0,0,0,0,2 

440 DATA 851,53,71,851,53,71,638,53,71,716 
:53,71,851,60,80,956,0,0,1136,60,80,1136,0 
«0,851,53,71,851,45,60,638,53,71,716,60,80 
»21136,53,71:956,0,0,851;0,0,.0,0,0,3 

450 ' CHINA - THEMA mit Begleitung wi 
ederholt 

460 DATA 851,53,71,851,53,71,638,53,71,716 
‚:53,71,851,60,80,956,0,0,1136,60,80,1136,0 
‚0,851,71,95,851,0,0,638,71,95,716,60,80,8 
51,0,0,956,0,0,1136,0,0,0,0,0,2 

470 DATA 851,53,71,851,53,71,638,53,71,716 [7930] 
,53,71,851,60,80,956,0,0,1136,60,80,1136,0 
‚0,851,53,71,851,45,60,638,53,71,716,50,80 
‚1136,53,71,956,0,0,851,0,0,0,0,0,3 


[1630] 
[7520] 


[7930] 


[4056] 


[8042] 


480 ' ==== UVeberleitung zur Wiederholung [2201] 
490 DATA -1,3,1136,4,568,2,0,1,2,568,1,758 [4474] 
.1,11672,798,1,11364140,1,2.0,2,3 
500 DATA =1,4,.142,4,71.71.2436,0,152,71.2; 14067] 
36.95,1,47,89.1,45,95,1,47,36,1,71,0,1,2,0 
2,3 
510 ' ==== und noch mal CHINA [1209] 
520 DATA -1,5,851,53,71,851,53,71,638,53,7 [7318] 
1,716,53,71,851,60,80,956,0,0,1136,60,80,1 
136,0,0,851,71,95,851,0,0, 638,71,95,716,0, 
0,851,60,80,956,0,0,1136, 0,0.0.0,0,2 
530 DATA 851,53,71,851,53,71,638,53,71,716 [8332] 
«53,71,851,60,80,956,0, 0,1136,60,80,1136,0 
‚0,851,53,71,851,45,60,638,53,71,716,60,80 
‚1136,53,71,956,0,0,851,0,0,0,0,0,3,-2,125 
540 ' ==== Anfangsthena [2252] 
550 DATA -1,1,106,89, 71,119,95,71,127,106, [3834] 
80,134,106,80,142,213,179,159,142,119, 106, 
71,89,106,-2,125 
560 DATA -1,2,106,89, 14,219,:95, 74,,1272106; [7859] 
80,134,-2,2,106,-2, 2,80,=2,2,142,-2,2, 213, 
-2,2,179,-2,4,159,-2,7,142,-2,10,119, 2,14 
‚106,-2,22,142,-2, 44,201,-2,50,213,-2,100 
570 DATA -1,3,0,10,3 [672] 
990 DATA -3, *%%* ENDE *** [1000] 
1000 [117] 
1010 ' DATAZEILEN einlesen [963] 
1020 ' [117] 
1030 RESTORE [621] 
1040 zeit=TIME:' Zeitpunkt festhalten [2763] 
1050 READ a [428] 
1060 IF a>=0 THEN 1150 [993] 
1070 IF a=-3 THEN 1710:' ENDE ? Wenn ja, n [2263] 
ach 1260 
1080 IF a=-1 THEN READ art:G0TO 1050: 'Neu [4415] 
e Klangfarbe ? 
1090 ' PAUSE machen [990] 
1100 READ dauer [921] 
1110 GOSUB 1630 [861] 
1120 GOTO 1050 [305] 
1130 ' [117] 
1140 ' Klangfarben spielen [1091] 
1150 ON art GOTO 1170,1230,1290,1410,1510 [1671] 
1160 ' Normal (1) [1069] 
1170 dauer=8 [371] 
1180 k=(k+1) MOD 3 [96] 
1190 SOUND 128+2°k,a,-1,0,1,1 [1904] 
1200 GOSUB 1630 [861] 
1210 GOTO 1050 [305] 
1220 ' Schwingend (2) [1442] 
1230 dauer=8 [371] 
1240 k=(k+1) MOD 3 [96] 
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1250 SOUND 128+2°k,a,-1,0,1,2 

1260 GOSUB 1630 

1270 GOTO 1050 

1280 ' einstimmig mit Rhythmus (3) 

1290 READ d 

1300 dauer=d*6 

1310 IF a<>O THEN SOUND 129,a,1000,0,5,1:G 
OSUB 1630:G0TO 1050 

1320 ' Routine fuer Rhythmus 

1330 READ k 

1340 ON k GOTO 1350,1360,1370 

1350 SOUND 132,a,-1,15,2,1,31:G0T0 1380 
1360 SOUND 132,a,-1,15,3,1,1:G0T0 1380 
1370 SOUND 132,2000,-1,15,1,1,31 

1380 GOSUB 1630 

1390 GOTO 1050 

1400 ' zweistimmig mit Rhythmus (4) 

1410 READ d 

1420 dauer=d*6 

1430 IF a=0 THEN 1490 
1440 READ b 

1450 SOUND 129,2,1000,0,4, 
1460 SOUND 130,b,1000,0,4 
1470 GOSUB 1630 

1480 GOTO 1050 

1490 GOTO 1330 

1500 ' dreistimmig mit Rhythmus (5) 
1510 dauer=6 

1520 READ b,c 

1530 IF a=0 THEN 1330 

1540 SOUND 132,a,1000,0,2,1 

1550 IF b=0 THEN 1580 

1560 SOUND 129,b,1000,0,4, 
1570 SOUND 130,c,1000,0,4, 
1580 GOSUB 1630 

1590 GOTO 1050 

1600 ' 

1610 ' SUBRoutine fuer Warten 


1620 ' 

1630 flag=0 

1640 AFTER dauer GOSUB 1680 

1650 WHILE flag=0 

1660 WEND 

1670 RETURN 

1680 flag=1 

1690 RETURN 

1700 ' **** ENDE; Zeit errechnen und ausge 
ben 

1710 s=(TIME-zeit) /300 

1720 std=s\3600:5=s-std*3600 

1730 MI=s\60:s=s-MI*60 

1740 PRINT "Dauer:" 

1750 PRINT USING"## Minute(n) ## Sekunden" 
;MI;ROUND (s) 


2 
2 


20000 '============2=2222=2=2=2==2=2=2=22222202220222 
20010 ' ski Ark 
20020 ' “% SOUND - DEMO BR 
20030 ' ur #* 
20040 ' ** written and composed 1987 ** 
20050 ' #% JENS KOEPLINGER “= 
20060 ' Late = 
20070 ® 2 227 Ax% 
20080 '=============2==2=2=2=2=2=22=2=2=2=22=20002222= 


20090 ENV 1,3,4,1,1,0,5,12,-1,10:ENV 2,1,1 
2,1+1,0,10,22,.=1.30 

20100 ' 

20110 ' Einsetzen der Begleitmelodie 

20120 AFTER 86 GOSUB 20380 

20130 ' 

20140 ' DATAs 1. Stimme 
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[1899] 
[861] 
[305] 
[3197] 
[421] 
[667] 
[3853] 


[1973] 
[458] 
[2195] 
[2001] 
[2015] 
[2223] 
[861] 
[305] 
[2875] 
[421] 
[667] 
[530] 
[431] 
[1569] 
[1561] 
[861] 
[305] 
[448] 
[1931] 
[349] 
[547] 
[538] 
[1532] 
[969] 
[1943] 
[1543] 
[861] 
[305} 
[117] 
[2056] 


[117] 
[263] 
[919] 
[837] 
[390] 
[555] 
[262] 
[555] 
[3563] 


[807] 

[2064] 
[1361] 
[1351] 
[3672] 


[2282] 
[278] 


[1414] 
[104] 
[1702] 
[2175] 
[104] 
[278] 
[2282] 


[1983] 


[117] 
[2700] 
[351] 
[117] 
[1174] 


20150 DATA 213,3,190,1,179,3,213,1,179,3 
59:1,182,34213,1.127.1,159,1,213,6,127,1 
59,1,213,2,106,1,127,1,159,2,142,1,179.1 
13,6,142,1,179,1,213,2.179,1,213,1,.284,2 
901,213,1,253,6 

20160 DATA 159,1,213,1,253,2,213,1,253 1, 
19,2,179,1,239,1,284,6,179,1,239,1,284,2, 
39,1,284,1,358,2,190,1,239,1,284,6,190,1, 
39,1,284,2,190,1,239,1,284,2,284,1,190,1, 
90,1,142,1,142,1,95,1,95,1.71,2,71,1,47,.1 
47,1:36,1,36,4 

20170 ' 

20180 ' DATAs 2. Stimme 

20190 DATA 568,851,426,1136,568,851,426,11 
36,568,851,426,1136,568,851,426,1136, 638, 
851,426,1276,638,851,426,1276,638,851,426, 
1276,638,851,426,1276, 568,851,426,1136,56 
8,851,426,1136,568,851,426,1136,568,851,42 
6,1136 

20200 DATA 638,851,426,1276,638,851,426,12 
176,638,851,426,1276,638,851,426,1276, 716, 
956,478,1432,716,956,478,1432,716,956,478, 
1432,716,956,478,1432, 568,758,379,1136,56 
8,758,379,1136,568,758,379,1136,568,758,37 
9,1136 

20210 DATA 568,638,379,1136,568,638,379,11 
36,568,638,379,1136,568,638,379,1136 

20220 ' 

20230 ' DATAs 3.Stimme 

20240 DATA 851,851,851,851,851,851,851,851 
‚1276,1276,1276,1276,1276,1276,1276,1276,8 
51,851,851,851,851,851,851,851,1276,1276,1 
276,1276,1276,1276,1276,1276,1432,1432,143 
2,1432,1432,1432,1432,1432,1136,1136,1136, 
1136,1136,1136,1136,1136 

20250 DATA 1136,1136,1136,1136,1136,1136,1 
136,1136 


20260 DATA -1,-1 

20270 ' 

20280 ' Ablaufprogramm 
20290 ' 


20300 DIM t1(67),11(67) ,t2(112),t3(56) 
20310 RESTORE 20150:FOR g=1 TO 66:READ a,l 
l(g):ti(g)=a:NEXT:FOR g=1 TO 112:READ a:t2 
(g)=a/2:NEXT:ton2=1:FOR g=1 TO 56:READ t3( 
g) :NEXT 

20320 GOSUB 20390 

20330 RETURN: ' Den Rest machen die INTERUP 
TS 

20340 d=(d+16) MOD 32:0UT &F60E,d:SOUND 4, 
t3((ton2+1)/2),40,2,2,1:RETURN 

20350 ton2=ton2+1:IF ton2)112 THEN ton2=1 
20360 SOUND 2,t2(ton2) ,20,1,2,1 

20370 RETURN 

20380 EVERY 20 GOSUB 20340:EVERY 10,2 GOSU 
B 20350:RETURN 

20390 ton=ton+1:IF ton=67 THEN ton=1 

20400 SOUND 1,t1(ton) ‚11(ton)*20,3,1,1 
20410 p=p/1/2/3:AFTER l1(ton)*9,1 GOSUB 20 
390:RETURN 


Anwendungen 


[7189] 


[11200] 


[117] 
[831] 
[10405] 


[10905] 


[3297] 


[117] 
[718] 
[10864] 


[1866] 


[418] 
[117] 
[1082] 
[117] 
[2435] 
[5745] 


[992] 
[1740] 


[3225] 


[2957] 
[1834] 
[555] 

[3684] 


[1520] 
[2843] 
[2858] 
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Anwendungen 


COLFUNKT 


Colfunk ist ein Programm, mit welchem man sehr schöne 
Grafiken erstellen kann, und zwar aus simplen algebra- 
ischen Gleichungen. 


Nachdem Sie das Programm eingetippt, abgespeichert und ge- 
startet haben, werden Sie aufgefordert, die Funktion, welche 
darzustellen ist, einzugeben. Hier einige Beispiele: 


z= sin(x)*y+cos(y)*x-sqr(abs(x*y)) 
z= sqr(abs(x*y)) 


Danach werden Sie noch nach den XMin, XMax bzw. YMin 
und YMax Werten gefragt (sinnvollerweise von —1000 bis 1000) 
und Sie müssen zwischen verschiedenen Darstellungsarten und 
Bildschirmmodi wählen. 


Dann legt das Programm mit der Darstellung der Funktion los 
(kann etwas länger dauern). 


Wenn es fertig ist, haben Sie noch die Möglichkeit, den Screen 
abzuspeichern, wonach einer weiteren Bearbeitung nichts mehr 
im Wege steht. 


z= tan(x)*y 
z= x-sin(y)*cos(x)+y (Michael Wessel) 
320 DATA 21,A4,AC,06,FF,36,00,23 [1420] 
.. 330 DATA 10,FB,DD,E1,DD,4E,00,DD [1230] 
fur 464 zug Ei 340 DATA 66,02,DD,6E,01,11,A4,AC [1843] 
EEE A 350 DATA 06,00,ED,B0,97,12,21,A4 [1143] 
100 ' [117] 360 DATA AC,CD,00,B9,CD,BC,E6,C9 [1730] 
110 '(c) 1987 by Michael Wessel . MW-Soft [2163] 370 DATA 00,00,00,00,00,00,00,00 [1005] 
29.5.1987 380 ' [117] 
120 ° [117] 390 "Einbinden [1017] 
130 ' [117] 400 ' [117] 
140 'Integer-Variablen [253] 410 svscr=adr+i1 [1302] 
150 ' [117] 420 CALL &5000 [668] 
160 DEFINT a-w [556] 430 ' [117] 
170 ' [117] 440 "Farben und Toene [2247] 
180 'Maschinenprogramm [1465] 450 ' [117] 
199° [117] 460 RESTORE 500 [775] 
200 MEMORY &4FFF [174] 470 DIM t (15) [178] 
210 FOR adr=&5000 TO &5078:READ a$:POKE ad [4376] 480 FOR i=15 TO 1 STEP -1:READ a:INK i,a:N [2565] 
r,VAL("&"+a$) :NEXT EXT 
220 DATA 01,09,50,21,24,50,C3,D1 [1331] 490 FOR i=0 TO 15:READ t (i) :NEXT [1196] 
230 DATA BC,14,50,C3,28,50,C3,3A [1070] 500 DATA 3,6,15,24,25,22,21,12,13,1,2,5,4, [1260] 
240 DATA 50,C3,4C,50,53,43,52,D3 [1020] 14,26 
250 DATA 53,43,52,CC,50,55,54,4C [1040] 510 DATA 478,451,426,402,379,358,338,319,3 [3632] 
260 DATA 49,4E,C5,00,FC,A6,09,50 [714] 01,284,268,253,239,225,213,201,190 
270 DATA FE,01,C0,DD,56,01,DD,5E [204] 520 INK 0,0:BORDER O0 [620] 
280 DATA 00,21,00,C0,01,FF,3F,ED [1152] S530.ENV 1,15,=1,.43ENV 2,.15,=-1,.10,7.15 [1882] 
290 DATA BO,C9,FE,01,C0,DD,66,01 [1518] 540 ' [117] 
300 DATA DD,6E,00,11,00,C0,01,FF [1062] 550 "Funktion definieren [1408] 
310 DATA 3F,ED,BO,C9,FE,01,C0,D5 [1917] 560 ' [117] 


| 
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Anwendungen 


570 MODE 2 [513] enmodus" 

580 WINDOW #1,1,80,5,13 [948] 1130 PRINT #2 [317] 

590 WINDOW #2,1,80,14,25 [1077] 1140 INPUT #2,"Alles korekt <J) <N> ";k$:I [3292] 
600 LOCATE 36,1:PRINT "COLFUNKT" [2139] F UPPERS(k$)<>"J" THEN 570 

610 LOCATE 20,2:PRINT "Programm zur Darste [5492] 1150 ' [117] 

llung von Funktionen ." 1160 "Zeichen-Modus setzen [1601] 
620 LOCATE 22,3:PRINT CHR$(164)+" 1987 by [3994] 1170 ' [117] 

Michael Wessel . MW-Soft ." 1180 IF mo>-1 THEN MODE mo [1053] 
630 WINDOW SWAP 0,1 [1031] 1190 ORIGIN 320,200 [215] 

640 PRINT "Bitte definieren Sie Ihre Funkt [4017] 1200 ' [117] 

ion %" 1210 "Ausschnitt und Vergroesserungsfaktor [2939] 
650 PRINT [361] berechnen 

660 b$="720 Def Fn" [601] 1220 ' [117] 

670 PRINT "z(x,y)=";:INPUT "",c$ [1524] 1230 st=4-(2*mo)+INT (mo/2) [1140] 
680 c$=" z(x,y)="+c$ [617] 1240 xrn=640/ (ROUND (1/ (4-n))+1) [2212] 
690 a$=b$+c$ [471] 1250 xn=ABS (xma-xmi)/ (xrn/st) [2189] 
700 }PUTLINE,@a$ [299] 1260 yrn=200/ (ROUND (n/2)) [1971] 
710 PRINT #2,"Funktion :"+c$ [1685] 1270 yn=ABS (yna-ymi)/yrn [1089] 
720 '** [175] 1280 na=(1-(1 MOD n))*319-((1 MOD n)*st) [966] 

730." [117] 1290 nb=(1 MOD (4-n))*199-(1-(1 MOD (4-n)) [1702] 
740 ‘Parameter eingeben [1031] ) 

750 ' [117] 1300 x=xmi:y=yni [950] 

760 CLS [91] 1310 ' [117] 

770 PRINT "Definition :"+c$ [2030] 1320 "Funktion darstellen [1394] 
780 PRINT [361] 1330 ' [117] 

790 INPUT "Geben Sie X-Minimum und X-Maxim [5411] 1340 IF a$="J" THEN POKE &B939,&C9 [1693] 
um an (Xmin,Xmax , wobei Xmin < Xmax) :",x 1350 FOR a=-320 TO na STEP st [2122] 
ni,xma 1360 FOR b=-200 TO nb STEP 2 [1233] 
800 IF xmid=xma THEN 790 [900] 1370 c=ABS(FN z(x,y) MOD 16) [1074] 
810 PRINT [361] 1380 IF so THEN IF c<)cc THEN cc=c:SOUND 1 [6032] 


820 INPUT "Geben Sie Y-Minimum und Y-Maxim [5702] 
um an (Ymin,Ymax , wobei Ymin < Ymax) :",y 


29,t(c),32767,0,2:SOUND 132,4,32767,15,1,, 
c:GOTO 1450 ELSE 1450 


ni,yma 1390 PLOT a,b,c [746] 
830 IF ymi)=yma THEN 820 [1557] 1400 IF n=1 THEN 1450 [872] 
840 PRINT #2 [317] 1410 PLOT -a-1,b [304] 
850 PRINT #2,"X-Bereich von "xmi"bis "xma [3129] 1420 IF n<>3 THEN 1450 [586] 
860 PRINT #2,"Y-Bereich von "ymi"bis "yma [2356] 1430 PLOT a,-b-1 [686] 
870 CLS [91] 1440 PLOT -a-1,-b-1 [164] 
880 PRINT "Darstellungsart der Funktion"+c [4408] 1450 y=y+yn [749] 
gt u 1460 NEXT:x=x+xn:y=ymi:NEXT [1942] 


8390 PRINT [361] 1470 IF so THEN CLS:PRINT "Das war's . END [4520] 
900 PRINT "1 = ...Ganzer Schirm ausgefuell [4031] E !":PRINT "<Taste druecken)":CALL &BBO6:R 

t (graphisch)" UN 

910 PRINT "2 = ....Einmal an Y=0 gespiegel [3849] 1480 ' [117] 

t (graphisch)" 1490 'Abspeichern [1169] 
920 PRINT "3 = An X=0 und an Y=0 gespiegel [3610] 1500 ' [117] 

t (graphisch) " 1510 POKE &B939,&F3 [487] 

930 PRINT A = euwesuume Als Computer-Soun [3965] 1520 !SCRS,svser [1397] 
d (akustisch)" 1530 MODE 2 [513] 

940 PRINT [361] 1540 PRINT "Ihre Funktion"+c$ [1937] 
950 INPUT "Waehlen Sie bitte :",n:IF n<1 O [3349] 1550 PRINT "ist nun vollstaendig im Bereic [4311] 
R n)4 THEN 880 h fuer" 

960 PRINT #2 [317] 1560 PRINT xmi"‘= X <= "xma"und "ymi"<= Y [4237] 
970 PRINT #2,"Darstellungsart Nr"n [2364] (= "yma"gezeichnet ." 

980 IF n=4 THEN n=1:so=1:mo=-1:G0T0 1130 [2504] 1570 PRINT [361] 

990 CLS [91] 1580 INPUT "Wollen Sie das erzeugte Bild a [5470] 
1000 PRINT "Screen-Modi :" [1787] bspeichern <J) <M ";a$ 

1010 PRINT [361] 1590 a$=UPPER$ (a$) [533] 


16 Farben , 32000 Pixels" [1760] 
1030 PRINT "1 = 4 Farben , 64000 Pixels" [2228] 
1040 PRINT "2 = 2 Farben , 128000 Pixels" [2761] 
1050 PRINT [361] 
1060 INPUT "Setzen Sie den Modus :",mo:IF [3743] 
mo>2 OR mo<O THEN 1000 


1020 PRINT "0 1600 IF a$<»"J" THEN MODE mo: !SCRL,svscr:C [2486] 

ALL &BBO6:RUN 

1610 PRINT [361] 
1620 INPUT "Geben Sie dann bitte den Namen [4469] 
des Bildes ein : ",‚name$ 


1630 MODE mo: |SCRL,svscr [1045] 


1070 PRINT #2 [317] 1640 IF LEN(nane$)=0 OR LEN(name$)>8 THEN [1908] 
1080 PRINT #2,"Screen-Modus"mo [1402] 1520 

1090 CLS [91] 1650 SAVE name$+".pic",b,&C000,&4000 [2495] 
1100 INPUT "Geschwindikeitssteigerung um 1 [9180] 1660 RUN [243] 


0% (kein Abruch durch ESC moeglich !) <J> 

«N ";a$:a$=UPPER$ (a$) 

1110 PRINT #2 [317] 
1120 IF a$="J" THEN PRINT #2,"Schneller Ze [8310] 
ichenmodus" ELSE PRINT #2,"Langsamer Zeich 
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Anwendungen 


Morse 


Ein (CW)-Code Lernprogramm... 


...nicht nur für angegehende Funkamateure der A bzw. B- 
Lizenz sondern auch für alle die Ihre Kenntnisse auffrischen 
wollen oder die ganz einfach Spaß an diesen Tönen haben. 


AMATEURFUNK DIE BRUECKE ZUR WELT 

so meldet sich der CPC nach Drücken der Funktionstaste ’f6 
und zwar sprichwörtlich in »Wort und Ton«. 

Die Morse-Telegrafie (CW), im Jahre 1837 von Samuel Morse 
entwickelt, ist selbst heute noch im internationalen Funkver- 
kehr nicht wegzudenken. Das Morsealphabet besteht aus un- 
terschiedlichen Kombinationen von kurzen und langen Impulsen 
mit dazwischenliegenden Pausen. Jede dieser Kombinationen 
entspricht einem bestimmten Buchstaben, einer bestimmten Zif- 
fer oder einem bestimmten Zeichen. Die Striche und Pausen ha- 
ben eine definierte Länge wobei ein Strich die 3fache Länge ei- 
nes Punktes, die Pause zwischen den Zeichen die Länge eines 
Punktes, die Pause zwischen Buchstaben die Länge eines Stri- 
ches und der Abstand zwischen zwei Worten 5 Punkte haben 
soll. 


Das Programm 


Nachdem Sie es gestartet haben, werden Sie nach dem Datum 
und der Uhrzeit gefragt. Dann können Sie auch schon mit dem 
Morsen loslegen. Außerdem sind die Funktionstasten fÜ bis f6 
mit veschiedenen Morsezeichen belegt. Die restlichen Funk- 


Festtext a: ZUM ERLERNEN DER MORSEZEICHEN 
UND HALTUNG DER MORSETASTE GIBT ES VER 
SCHIEDENE PUBLIKATIONEN WIE DIES RICHTIG 
GEHANDHABT WIRD. AUCH VERSCHIEDENE ME 
THODEN SOLLEN DIE LERNFAEHIGKEIT ERHOE 
HEN.ICH BIN ALL DIESEN METHODEN AUS DEM 
WEG GEGANGEN UND HABE MITTELS EINES ZU 
FALLGENERATORS DIE ZEICHEN ERMITTELT.EINS 
SOLLTEN SIE AUF JEDEN FALL BEDENKEN.DAS 
RICHTIGE ERLERNEN MIT DEM GROESSTMOEGLI 
CHEN RESULTAT KANN NUR IN EINER GRUPPE 
ERFOLGEN.DAS SELBSTERLERNEN WIRD ZWAR 
DURCH DEN COMPUTER WESENTLICH ERLEI 
CHERT.ZUSAETZLICH SOLLTEN SIE WENN SIE UN 
TERWEGS SIND VERSUCHEN DIE VERSCHIEDE 
NEN BUCHSTABEN DURCH PHONETISCHE 
UEBUNGEN ZU ERLERNEN,DAZU EIGNEN SICH 
ALLE TEXTE AUCH ORTSSCHILDER KOENNEN 
DAZU DEGRADIERT WERDEN Z.B.: HUNDSANGEN 
» DI DI DI DIT DI DI DAH DAH DIT DAH DI DIT DI DI DIT 
DI DAH DAH DIT DAH DAH DIT DIT DAH DIT « 
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tionstasten sind für den Umgang mit z.B. dem Diskettenlauf- 
werk bestimmt. Der Anschluß einer Morsetaste ist vorgesehen. 
Dazu wird eine Junkers an den Stift 6 und 8 der Joystick-Buchse 
angeschlossen. Alle eingegebenen Zeichen werden in Dezimal- 
zeichen umgewandelt und entsprechend auf die Diskette gelegt. 
So werden alle Zeichen oder nur vorgewählte 6 Zeichen mit ei- 
nem Zufallsgenerator sortiert und anschließend ausgegeben. Um 
die gleichen Zeichen immer wieder zu lernen, benutzt man die 
Taste ’f7 um diese auf die Diskette zu sichern. (Nicht im Ein- 
zelzeichenmodus vorgesehen, es wäre ja unsinnig. Dieser Me- 
nuepunkt dient zur Einprägung von Einzelzeichen wobei im- 
mer wieder die gleiche Taste gedrückt wird.) Nach einer gewis- 
sen Lernzeit kennt man die Zeichen auswendig. Um einen 
Selbstbetrug zu vermeiden, läßt man sich neue Zeichenfolgen 
sortieren und lernt diese auswendig. 


Die Festtexte sollten genau abgetippt werden. Natürlich kön- 
nen Sie sich eigene Texte aus Büchern entnehmen, abtippen und 
auf die Diskette legen. Unnötige Leerzeichen sollten vermie- 
den werden. Beim ’saven werden die Texte am Ende automa- 
tisch mit einem Stern gekennzeichnet. 


Das Abtippen 


Zuerst tippen Sie Listing 1 ab und legen es auf die Diskette mit 
»SAVE“MORSE« ab. (Anmerkung: Wird für den Programma- 
blauf nicht unbedingt benötigt. Wer Arbeit sparen will verzichtet 
einfach darauf.) 


Anschließend tippen Sie Listing 2 ab und legen es auf die Dis- 
kette mit »SAVE“CWLERN« ab. 


Viel Spaß beim Morsen 
(Hans J. Ziegler) 


Festtext b: DIE FRAGEN UND ANTWORTEN ZUR 
FACHLICHEN PRUEFUNG FUER FUNKAMATEU 
RE,ZUSAMMENGESTELLT UND HERAUSGEGE 
BEN VOM FERNMELDETECHNISCHEN ZENTRA 
LAMT DER DEUTSCHEN BUNDESPOST KANN 
MAN AN JEDER POSTDIENSTSTELLE ERHALTEN 
FUER NUR EIN PAAR MARK.DIESE ZUSAMMEN 
STELLUNG VON FRAGEN UND ANTWORTEN WEI 
CHER ALS DIENSTBEHELF WIE AUCH ALS HILFS 
MITTEL ZUR VORBEREITUNG AUF DIE AMATEUR 
FUNKPRUEFUNG DIENT,IST AUCH GRUNDLAGE 
DER PRUEFUNGSFRAGEBOGEN UND SOLL LEDIG 
LICH AUF DAS LERNZIEL HINWEISEN UND KANN 
SOMIT INHALTLICH DIE VIELSEITIGKEIT DER HAN 
DELSUEBLICHEN LEHRBUECHER NICHT ERSET 
ZEN. DER DEUTSCHE AMATEUR-RADIO-CLUB EV. 
HAT BEI DER GESTALTUNG DES FACHLICHEN BE 
REICHES MITGEWIRKT. PROGRAMM UND VORLA 
GEN VON DK9YPM IM DARC ORTSVERBAND WALL 
MEROD DOK K37 UND EISENBAHN-FUNKAMA 
TEUR-GRUPPE (EFA) LIMBURG.INFORMATIONEN 
VON JEDEM FUNKAMATEUR ODER VOM DARC. 
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10 MODE 1 

20 LOCATE 5,4:PRINT CHR$ (24) STRING$ (8,144) 
CHR$ (24) 

30 LOCATE 3,5:PRINT CHR$ (24) STRING$ (4,144) 
CHR$ (24) STRING$ (4,32) CHR$ (24) STRINGS (4,144 
)CHR$ (24) 

40 LOCATE 3,6:PRINT CHR$ (24) STRING$ (4,144) 
CHR$ (24) STRING$ (4,32)CHR$ (24) STRING$ (4,144 
)CHR$ (24) 

50 LOCATE 1,7:PRINT CHR$ (24) STRING$ (4,144) 
CHR$ (24) 

60 LOCATE 1,8:PRINT CHR$ (24) STRING$ (4,144) 
CHR$ (24) 

70 LOCATE 1,9:PRINT CHR$ (24) STRING$ (4,144) 
CHR$ (24) 

80 LOCATE 1,10:PRINT CHR$ (24) STRING$ (4,144 
)CHR$ (24) 

90 LOCATE 1,11:PRINT CHR$ (24) STRINGS (4,144 
)CHR$ (24) 

100 LOCATE 1,12:PRINT CHR$ (24) STRING$ (4,14 
4)CHR$ (24) 

110 LOCATE 3,13:PRINT CHR$ (24) STRING$ (4,14 
A)CHRS (24) STRING$ (4,32)CHRS (24) STRING$ (4,1 
44)CHR$ (24) 

120 LOCATE 3,14:PRINT CHR$ (24) STRING$ (4,14 
4)CHRS (24) STRINGS (4, 32)CHR$ (24) STRING$ (4,1 
44) CHR$ (24) 

130 LOCATE 5,15:PRINT CHR$ (24) STRING$ (8,14 
4)CHR$ (24) 

140 LOCATE 5,16:PRINT CHR$ (24) STRING$ (8,14 
A)CHR$ (24) 

150 LOCATE 20,7:PRINT CHR$ (24) STRING$ (4,14 
4)CHR$ (24) STRING$ (6,32) CHR$ (24) STRING$ (4,1 
44)CHR$ (24) 

160 LOCATE 20,8:PRINT CHR$ (24) STRING$ (4,14 
A)CHR$ (24) STRING$ (6,32)CHR$ (24) STRING$ (4,1 
44)CHR$ (24) 

170 LOCATE 20,9:PRINT CHR$ (24) STRING$ (4,14 
A)CHR$ (24) STRINGS (6,32)CHR$ (24) STRINGS (4,1 
A4)CHR$ (24) 

180 LOCATE 20,10:PRINT CHR$ (24) STRING$ (4,1 
44)CHR$ (24) STRING$ (6,32)CHR$ (24) STRING$ (4, 
144) CHR$ (24) 

190 LOCATE 21,11:PRINT CHR$ (24) STRING$ (3,1 
44)CHR$ (24) STRINGS (6,32) CHR$ (24) STRING$ (3, 
144) CHR$ (24) 

200 LOCATE 21.,12:PRINT CHR$ (24) STRING$ (3,1 
44)CHRS$(24)" "CHRS(24)STRING$ (2,144)CHR$ ( 
24)" "CHR$(24)STRING$(3,144)CHR$ (24) 

210 LOCATE 21,13:PRINT CHR$ (24) STRING$ (3,1 
44)CHRS(24)" "CHRS(24)STRING$ (2,144) CHR$ ( 
24)" "CHR$(24)STRING$(3,144)CHR$ (24) 

220 LOCATE 21,14:PRINT CHR$ (24) STRING$ (12, 
144) CHR$ (24) 

230 LOCATE 21,15:PRINT CHR$ (24) STRING$ (12, 
144) CHR$ (24) 

240 LOCATE 20,16:PRINT CHR$ (24) STRING$ (6,1 
4A)CHRS(24)" "CHRS(24)STRING$ (6,144) CHR$ ( 
24) 

250 LOCATE 20,17:PRINT CHR$ (24) STRING$ (6,1 
44)CHR$S(24)" "CHRS(24)STRINGS (6,144) CHR$( 
24) 

260 LOCATE 20,18:PRINT CHR$ (24) STRING$ (4,1 
A4)CHR$ (24) STRING$ (6,32)CHR$ (24) STRINGS (4, 
144)CHR$ (24) 

270 LOCATE 20,19:PRINT CHR$ (24) STRING$S (4,1 
44)CHRS (24) STRING$ (6,32) CHR$ (24) STRING$ (4, 
144)CHR$ (24) 

280 LOCATE 1,21:PRINT STRING$ (40,144) 

290 LOCATE 1,23:PRINT CHR$ (24) "oo0"CHR$ (24 
) "" CHRS(24)"o"CHR$ (24) al, [6 
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[2985] 
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[3911] 


[5391] 


[2287] 
[10737] 


Anwendungen 


HR$ (24) "ooo"CHR$ (24) in CHR$ (24) "0" 

CHRS$ (24) " "CHR$ (24) "o'"CHR$ (24) E, 

" CHR$ (24) "ooo"CHR$ (24) " "CHRS (24) " 
o00'"CHR$ (24) 

300 LOCATE 1,25:PRINT STRING$ (40,144); [1972] 
310 LOCATE 1,1:PRINT "MORSE - LERNPROGRAMM [5562] 
"STRING$ (12,32) CHR$ (24) CHR$ (164) "dk9pm"'CHR 

$(24) 


320 RUN"cwlern.bas" [813] 
330 '"cgegegegegegegegegegegegegegeg [2324] 
340 'cq Ziegler Hans Joachim cq [964] 
350 'cq DKAIPM <>» DARC-K3T cq [1065] 
360 'cgegegegegegegegegegegegegegeq [2324] 
310. ° [117] 


380 hz=800:ton=78:wpm=75:dauer=6.3:aut1=0 [2021] 


390 KEY DEF 66,0,0,0,0 [1054] 
400 KEY DEF 19,0,0,0,0 [839] 
410 KEY DEF 17,0,0,0,0 [866] 
420 KEY DEF 22,0,0,0,0 [1088] 
430 KEY DEF 26,0,0,0,0 [599] 
440 KEY DEF 24,0,0,0,0 [1113] 
450 KEY 128,"\i"+CHR$ (13) [1417] 
460 KEY 129,"\s"+CHR$ (13) [1289] 
470 KEY 130,"\a"+CHR$ (13) [751] 
480 KEY 131,"\k"+CHR$ (13) [749] 
490 KEY 132,"\e"+CHR$ (13) [1750] 
500 KEY 133,"\v"+CHR$ (13) [1090] 


510 KEY 134," AMATEURFUNK DIE BRUECKE ZUR [3661] 


520 KEY 135,"%*7"+CHR$ (13) [1397] 
530 KEY 136,"*8"+CHR$ (13) [700] 
540 KEY 137,"*9"+CHR$ (13) [1094] 
550 DIM m(96,12) [174] 


560 FOR z=38 TO 96:FOR zi=1 TO 9 :READ m(z [3669] 
rZzl)SNEXT 21,2 


570 DATA 5,0,0,0,0,0,0,0,0 [743] 
580 DATA 5,0,0,0,0,0,0,0,0 [743] 
590 DATA 3,1,3,3,1.5,0,0,0 577] 
600 DATA 3,1,3,3,1,3,5,0,0 [844] 
610 DATA 5,0,0,0,0,0,0,0,0 [743] 
620 DATA 1,3,1,3,1,5,0,0,0 [886] 
630 DATA, 3,3,1,1,3,3,5,0,0 [848] 
640 DATA 3,1,1,1,3,5,0,0,0 [763] 
650 DATA 1,3,1,3,1,3,5,0,0 [775] 
660 DATA 3,1,1,3,1,5,0,0,0 [718] 
670 DATA 3,3,3,3,3,5,0,0,0 [693] 
680 DATA 1,3,3,3,3,5,0,0,0 [1276] 
690 DATA 1,1,3,3,3,5,0,0,0 [791] 
700 DATA 1,1,1,3,3,5,0,0,0 [1211] 
710 DATA. 1,1,1,1,3,5,0,0,0 [780] 
720 DATA 1,1,1,1,1,5,0,0,0 [623] 
730 DATA 3,1,1,1,1,5,0,0,0 [757] 
740 DATA 3,3,1,1,1,5,0,0,0 [279] 
750 DATA 3,3,3,1,1,5,0,0,0 [859] 
760 DATA 3,3,3,3,1,5,0,0,0 [867] 
IV DATA, 3,.3,3,.1,.4,1,5,0,0 [939] 
7180 DATA 3,1,3,1,3,1,5.0,0 [555] 
790 DATA 5,0,0,0,0,0,0,0,0 [743] 
800 DATA 3,1,1,1,3,5,0,0,0 [763] 
810 DATA 5,0,0,0,0,0,0,0,0 [743] 
820 DATA 1,1,3,3,1,1,5,0,0 [1121] 
830 DATA 5,0,0,0,0,0,0,0,0 [743] 
840 DATA 1,3,5,0,0,0,0,0,0 [890] 
850.:DATA: 3,1,1,1,5,0,0,0,0 [566] 
860 DATA 3,1,3,1,5,0,0,0,0 [784] 
870 DATA 3,1,1,5,0,0,0,0,0 [801] 
880 DATA 1,5,0,0,0,0,0,0,0 [928] 
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890 DATA 1,1,3,1,5,0,0,0,0 [967] 
900 DATA 3,3,1,5,0,0,0,0,0 [922] 
910 DATA 1,1,1,1,5,0,0,0,0 [895] 
920 DATA 1,1,5,0,0,0,0,0,0 [1013] 
930. DATA 1,3,3,3,5,0,0,0,0 [1095] 
940 DATA 3,1,3,5,0,0,0,0,0 [762] 
950 DATA 1,3,1,1,5,0,0,0,0 [995] 
960 DATA 3,3,5,0,0,0,0,0,0 [585] 
970 DATA 3,1,5,0,0,0,0,0,0 [972] 
980 DATA 3,3,3,5,0,0,0,0,0 [645] 
990 DATA 1,3,3,1,5,0,0,0,0 [1038] 
1000 DATA 3,3,1,3,5,0,0,0,0 [733] 
1010 DATA 1,3,1,5,0,0,0,0,0 [1059] 
1020 DATA 1,1,1,5,0,0,0,0,0 [1032] 
1030 DATA 3,5,0,0,0,0,0,0,0 [674] 
1040 DATA 1,1,3,5,0,0,0,0,0 [1216] 
1050 DATA 1,1,1,3,5,0,0,0,0 [1274] 
1060 DATA 1,3,3,5,0,0,0,0,0 [1344] 
1070 DATA 3,1,1,3,5,0,0,0,0 [857] 
1080 DATA 3,1,3,3,5,0,0,0,0 [697] 
1090 DATA 3,3,1,1,5,0,0,0,0 [433] 
1100/DATA:1,1,1,3;1,3,5,0,0 [1231] 
1110 DATA 1,3,1,3,1,5,0,0,0 [886] 
1120’ DATA 3,1,351,3.5,0,0;0 [478] 
4130’DATA 1,3,1:.1,1,5,0,0,9 [1376] 
1140 DATA 1,1,1,3,1,5,0,0,0 [1221] 
1150 DATA 1,1,1,1,1,1,1:32,5 [914] 
1160 MODE 2 [513] 
1170 WINDOW #7,60,80,1,25 [1763] 
1180 WINDOW #0,1,56,5,25 [1169] 
1190 WINDOW#1,1,56,1,1 [1248] 
1200 WINDOW #2,1,56,3,4 [1390] 
1210 WINDOW#4,58,58,1,25:PRINT#4,STRING$(2 [2705] 
5127) 
1220 WINDOW#5,78,78,1,25:PRINT#5,STRING$(2 [3101] 
5,127); 
1230 PRINT#7,CHR$(24)" (c) DKYPM HJZ "CH [2349] 
R$ (24) 
1240 LOCATE#7,1,3:PRINT#7,"£0O = Irrung" [1462] 
1250 LOCATE#7,1,5:PRINT#7,"£f1 = Verkehrsen [2294] 
de" 
1260 LOCATE#7,1,7:PRINT#7,"£2 = Spruchende [2643] 
1270 LOCATE#7,1,9:PRINT#7,"£f3 = Spruchanfa [2791] 
ng" 
1280 LOCATE#7,1,11:PRINT#7,"f4 = Warten" [1741] 
1290 LOCATE#7,1,13:PRINT#7,"£5 = Verstande [3590] 
n" 
1300 LOCATE#7,1,15:PRINT#7,CHR$(24)" MORSE [4361] 
<>»  (CW) "CHR$(24) 

1310 LOCATE#7,1,16:PRINT#7,CHR$(24)" Lern [2578] 
- Programm "CHR$(24) 
1320 LOCATE#7,1,17:PRINT#7,CHR$(24)" BPM: [8824] 
ca. ";:LOCATE#7,10,17:PRINT#7,wpm:L 
OCATE#7,1,18:PRINT#7," TON: Hz 8 
LOCATE#7,10,18:PRINT#7,hz;CHR$ (24) 
1330 LOCATE#7,1,20:PRINT#7,"£7 = DISKETTE" [2843] 
1340 LOCATE#7,1,21:PRINT#7,"£8 = DRUCKEN" [1788] 
1350 LOCATE#7,1,22:PRINT#7,"£9 = MENUE" [2906] 
1360 LOCATE#7,1,23:PRINT#7,"DLE= Unterbrec [3575] 
hen" 
1370 LOCATE#7,1,25:dat1$="10.10.86":PRINT# [3070] 
7,CHR$ (24)dat1$+" 00:00 "CHR$(24); 
1380 SPEED KEY 30,2 [1207] 
1390 ON ERROR GOTO 5810 [1465] 
1400 GOSUB 5230 [909] 
1410 EVERY 3000 GOSUB 5300 [1306] 
1420 'cgcgegegegegegegegegegegcegcgcegcacacq [2488] 
cqcq 
1430 "cqcgcq Zeichen mit CW-Code cq [1154] 
cqcq 

38 EePE 


1440 "cgcegegegegegegegegegegegegegcgcegcagcq [2488] 


cqcq 


1450 CLS [91] 
1460 PRINT#1,"DRUECKEN SIE EIN BUCHSTABE O [2755] 
DER ZAHL !!ı" 
1470 LOCATE 1,1:PRINT" " [3986] 
:LOCATE 1,1:PRINT CHR$ (24)"? "CHR$(24)" >" 
1480 a$=INKEY$:IF a$="" THEN 1480 [1433] 
1490 IF a$="\" THEN £=1:G0TO 1470 [2154] 
1500 IF a$="*" THEN ff=1:G0TO 1470 [2391] 
1510 IF a$="s" AND £f=1 THEN 1=91:PRINT"SK" [2839] 
;:GOTO 1610 
1520 IF a$="a" AND £f=1 THEN 1=92:PRINT"AR" [2840] 
;:GOTO 1610 
1530 IF a$="k" AND £f=1 THEN 1=93:PRINT"KA" [4654] 
;:GOTO 1610 
1540 IF a$="e" AND £f=1 THEN 1=94:PRINT"EB" [2208] 
;:GOTO 1610 
1550 IF a$="v" AND £=1 THEN 1=95:PRINT"VE" [3660] 
;:GOTO 1610 
1560 IF a$="i" AND £f=1 THEN 1=96:PRINT"IRR [2413] 
UNG";:GOTO 1610 
1570 IF a$="7" AND ff=1 THEN 3190 [2005] 
1580 IF a$="9" AND ff=1 THEN 3210 [1255] 
1590 IF a$=" " THEN 1470 [639] 
1600 a$=UPPER$ (a$):PRINT a$;:1=ASC (a$) [1846] 
1610 IF 1>96 OR 1<38 THEN 1470 [2246] 
1620 PRINT" "; [673] 
1630 FOR a=1 TO 9 [767] 
1640 IF m(1,a)=5 THEN a=9:lae=3:G0T0O 1690 [2243] 
1650 IF m(l,a)=1 THEN PRINT CHR$ (144); [2889] 
1660 IF m(l,a)=3 THEN PRINT"-"; [1914] 
1670 IF m(1,a)>0 THEN toni=ton:lae=n(l1,a) [2150] 
1680 SOUND 1,toni1,lae*dauer ‚15 [2169] 
1690 SOUND 1,0,dauer,O [1409] 
1700 NEXT [350] 
1710 £=0:PRINT [505] 
1720 SOUND 1,0,3*dauer,O [1840] 
1730 GOTO 1470 [397] 
1740 "cqegegegegegegegegegegegegegegegcegcq [2488] 
cqcq 
1750 'cqcgeq Morseband cq [811] 
ceqcq 
1760 "cgqegegegegegegegegegegegegegegegegcq [2488] 
cgcq 
1770 aut1=0:ff=0:DIM zuf (16,56) [1951] 
1780 CLS:CLS#1:b$="":a$="" [557] 
1790 PRINT#1,CHR$ (24) STRING$ (56," ") [1927] 
1800 PRINT"-1- Ausgabe des CW "Zeichens je [3451] 
Tastendruck" 
1810 PRINT:PRINT"-2- Festtexte anfertigen" [3099] 
1820 PRINT:PRINT"-3- Festtext einlesen" [2165] 
1830 PRINT:PRINT"-4- Files umbenennen" [2178] 
1840 a$=INKEY$:IF a$="" THEN 1840 [1456] 
1850 IF a$="*" THEN £f=1:60T0 1840 [1641] 
1860 IF a$="9" THEN £f=0:0N ERROR GOTO O:ER [3532] 
ASE zuf:GOTO 3210 
1870 IF a$="1" THEN CLS:£7=0:aut1=0:PRINT# [4507] 
1,"Druecken sie eine Taste":GOTO 2880 
1880 IF a$="2" THEN 1920 [718] 
1890 IF a$="3" THEN 2250 [1013] 
1900 IF a$="4" THEN 5450 [766] 
1910 GOTO 1840 [395] 
1920 PRINT#1,"Name des Textes CWLERN*.555 [3681] 
'* A - Z ":CLS:CAT:LOCATE#1,40,1:INPUT#1 
ext 
1930 file$="cwlern"+txt$+".555" [1228] 
1940 PRINT#1,"Text bis 840 Zeichen":LOCATE [5729] 


#1,25,1:PRINT#1," ("£ile$")" 


1950 CLS:LOCATE 1,18:PRINT"Nach Texteingab [6567] 
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e Menue '£f7 oder 'f9 waehlen !!!" artet.":PRINT"Druecken Sie also die entspr 

1960 al=1:a2=1:£f=0 [606] echene Taste zu dem Code." 

1970 LOCATE#1,44,1:PRINT#1,"Z=";a2;:PRINT# [2850] 2550 IF best=1 THEN PRINT"Dieser wird ansc [10801] 

1,"B="sal hliessend geprueft und die Anzahl der":P 

1980 LOCATE al,a2:PRINT"." [1990] RINT"Fehler gezaehlt!":PRINT:PRINT"<ENTER)> 

1990 a$=INKEY$:IF a$="" THEN 1990 [1538] ":CALL &BBO6 

2000 a$=UPPER$ (a$) [533] 2560 b$=" ":GOSUB 2850 [1072] 

2010 IF a$="*" THEN £=2:G60TO 1990 [1651] 2570 auti=1:al=1:a2=1:a3=1:ff=0 [1562] 

2020 IF a$="7" AND £f=2 THEN f=0:zuf(a2,al) [2855] 2580 IF n=8 THEN PRINT#8:PRINT#8,"(c)DKIPM [3893] 

=42:60T0 2150 HJZ ";dat$;" Morsetext : "; 

2030 IF a$="9" AND £f=2 THEN £f=0:ERASE zuf: [3067] 2590 PRINT#n,"V";:1=86:G0SUB 3040:PRINT#n, [7298] 

PRINT#1,CHR$S (24) :GOTO 3210 "V";:1=86:G0SUB 3040:PRINT#n,"V";:1=86:608 

2040 IF NOT INKEY(79) THEN al=al-1:LOCATE [3532] UB 3040:PRINT#n,"KA":1=93:GOSUB 3040:PRINT 

al+1,a2:PRINT" ";:sa$=" ":f=1 #n,CHR$ (13) 

2050 IF al<1 THEN al=56:a2=a2-1 [1283] 2600 1=zuf(a2,al) [1013] 

2060 IF a2<1 THEN a2=1:al=1 [1023] 2610 IF n=8 THEN 2640 [738] 

2070 zuf (a2,al)=ASc(a$) [1711] 2620 IF 1=32 THEN SOUND 1,0,2*dauer,0:b$=b [4009] 

2080 IF zuf(a2,al)=127 THEN zuf(a2,al)=32: [3360] St" "ERRINT 56070 2730 

LOCATE al+1,a2:PRINT " ":a$=" " 2630 GOSUB 3040 [953] 

2090 LOCATE al,a2:PRINT a$; [1626] 2640 IF best=0 THEN PRINT#n,CHR$(zuf(a2,al [2688] 

2100 IF £=1 THEN £=0:G0T0 1970 [1943] IR 

2110 al=al+1 [536] 2650 best$="g":IF best=1 THEN best$=INKEY$ [4038] 

2120 IF al=57 THEN al=1:a2=a2+1 [958] :IF best$="" THEN 2650 

2130 IF a2=16 THEN a2=15:al=56 [755] 2660 IF best=1 THEN FOR a=1 TO 50:NEXT [2246] 

2140 GOTO 1970 [337] 2670 IF 1=42 AND best=1 THEN GOSUB 2860:60 [2420] 

2150 "Speichern [428] SUB 2840:G0T0O 2380 

2160 OPENOUT file$ [781] 2680 IF 1=42 THEN GOSUB 2860:G0SUB 2830:1= [5374] 

2170 al=1:a2=1 [444] 42:PRINT#n:PRINT#n:n=0:LOCATE 1,18:INPUT"C 

2180 PRINT#9,zuf (a2,al) [1122] W Code nochnal (j/n)";a$ 

2190 al=al+1 [536] 2690 a$=UPPER$ (a$) [533] 

2200 IF al=57 THEN al=1:a2=a2+1 [958] 2700 IF 1=42 AND a$="J" THEN CLS:n=0:60T0 [2058] 

2210 IF a2=16 THEN 2230 [614] 2490 

2220 GOTO 2180 [343] 2710 IF 1=42 AND a$="N" THEN n=0:aut1=0:60 [2850] 

2230 CLOSEOUT [902] TO 1780 

2240 GOTO 2390 [397] 2720 IF NOT INKEY(79) AND best=1 THEN GOSU [6997] 

2250 "Einlesen [1453) B 2860:aut1=0:best=0:G60SUB 2840:60T0 2380 

2260 CLS:CAT:INPUT#1,"filename CWLERN*.555 [5534] 2730 IF NOT INKEY(79) AND best=0 THEN GOSU [4647] 
"Buchstabe: A-Z ";txt$ B 2860:aut1=0:best=0:60SUB 2830:G0T0 2380 

2270 £file$="CWLERN"+txt$+".555" [1657] 2740 IF 1=32 THEN 2790 [1347] 

2280 OPENIN file$ [1062] 2750 IF best=1 THEN LOCATE 1,18 [1813] 

2290 al=1:a2=1 [444] 2760 IF best=1 AND best$="" THEN 2750 [1788] 

2300 INPUT#9,zuf (a2,al) [855] 2770 IF best=1 THEN best$=UPPER$ (best$):IF [5619] 

2310 IF zuf(a2,al)=42 THEN 2360 [1508] CHR$ (zuf (a2,al))<>best$ THEN feh=feh+1 

2320 al=al+1 [536] 2780 a3=a3+1 [697] 

2330 IF al=57 THEN al=1:a2=a2+1 [958] 2790 al=al+1 [536] 

2340 IF a2=16 THEN 2360 [461] 2800 IF al=57 THEN al=1:a2=a2+1 [958] 

2350 GOTO 2300 [351] 2810 IF a2=16 THEN 1800 [636] 

2360 CLOSEIN [752] 2820 GOTO 2600 [339] 

2370 £7=1 [326] 2830 IF n=0 THEN PRINT#1,"Es waren";a3-1;" [6250] 

2380 CLS [91] Zeichen in";FNUhr;" Sekunden"; :RETURN 

2390 "Ausgabe des Textes [2411] 2840 IF n=0 THEN PRINT#1,"Es waren";a3-1;" [7327] 

2400 IF £7=0 THEN 1780 [941] Zeichen und ";feh;"Fehler in";FNUhr;" Seku 

2410 LOCATE 1,18:PRINT"Text im CW - Code a [4324] nden"; :RETURN 

usgeben (j/n)" 2850 t=TIME/300:DEF FNUhr=INT(TIME/300-t): [2674] 

2420 a$=INKEY$:IF a$="" THEN 2420 [1516] CLS:RETURN 

2430 a$=UPPER$ (a$) [533] 2860 PRINT" AR*";::1=92:G0OSUB 3040:RETURN [1640] 

2440 IF a$="N" THEN 1780 [883] 2870 aut=1 [314] 

2450 IF a$="*" THEN f=1:CLS:GOTO 2420 [1757] 2880 a$=INKEY$S:IF a$="" THEN 2880 [1472] 

2460 IF a$="8" THEN £f=0:n=8:G0TO 2570 [1593] 2890 IF a$="*" THEN f=1 [1257] 

2470 IF a$="J" THEN 2490 [789] 2900 IF a$="\" THEN ff=1:G0TO 2880 [3008] 

2480 GOTO 2420 [343] 2910 IF £ff=1 THEN 2960 [583] 

2490 LOCATE 1,18:PRINT"Soll der Code best [3561] 2920 a$=UPPER$ (a$):PRINT a$;:LOCATE#4,1,1: [5869] 

aetigt werden (j/n)?" PRINT#4,CHR$ (24) a$CHRS$ (24) ;:1=ASC (a$) 

2500 a$=INKEY$:IF a$="" THEN 2500 [1516] 2930 IF 1=32 THEN SOUND 1,0,2*dauer,0:b$=b [4513] 

2510 a$=UPPER$ (a$) [533] $+"  ":GOTO 2880 

2520 best=0:CLS#1:LOCATE#4,1,1:PRINT#4,CHR [2864] 2940 IF NOT INKEY(79) THEN CLEAR INPUT:bes [2652] 

$(127) t=0:60T0 2380 

2530 IF a$="J" THEN best=1:feh=0 [1306] 2950 IF f=1 AND 1=57 THEN PRINT#1,CHR$(24) [2540] 

2540 IF best=1 THEN CLS:PRINT"Bei diesem M [16431] :ERASE zuf:GOTO 3210 

enuepunkt wird nach jeder Ausgabe des Code 2960 IF a$="s" AND £ff=1 THEN 1=91:ff=0 [2029] 

s":PRINT"auf die richtige Bestaetigung gew 2970 IF a$="a" AND ff=1 THEN 1=92:£ff=0 [2708] 
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2980 IF a$="k" 
2990 IF a$="e" 


AND ff=1 THEN 1=93:£ff=0 
AND ff=1 THEN 1=94:ff=0 
3000 IF a$="v" AND £f£f=1 THEN 1=95:£f=0 
3010 IF a$="i" AND £ff=1 THEN 1=96:£f£f=0 
3020 IF 1=42 AND £f=1 THEN a$=RIGHT$((a$) ‚1 
):GOTO 2880 

3030 IF 196 OR 1<38 THEN 2880 

3040 IF n=8 THEN RETURN 

3050 FOR a=1 TO 9 

3060 IF m(l1,a)=5 THEN a=9:lae=3:G0TO 3110 
3070 IF m(l,a)=1 THEN b$=b$+CHR$ (144) 
3080 IF m(1,a)=3 THEN b$=b$+"-" 

3090 IF m(l,a)>0 THEN toni=ton:lae=n(l,a) 
3100 SOUND 1,toni1,lae*dauer ‚15 

3110 SOUND 1,0,dauer,O 

3120 NEXT 

3130 IF LEN(b$) >55 THEN b$=RIGHT$((b$) ‚55 
) 

3140 PRINT#1,b$ 

3150 SOUND 1,0,3*dauer,O 

3160 b$=b$+" " 


3170 IF auti=1 THEN RETURN 

3180 GOTO 2880 

3190 END 

3200 "cgegegegegegegegegegegegegegegegegceq 
cqcq 

3210 "cgcgcq Einstellung cq 
egceq 

3220 'cgegegqeqegqegegegegegegegegegegegegeg 
cgcq 

3230 CLS:CLS#1:LOCATE#4,1,1:PRINT#4,CHR$ (1 


27) :aut1=1:wpm=0:ton=0 

3240 CLEAR INPUT:INPUT#1,"Programm beenden 
(j/n)";end1$ 

3250 IF endi1$="j" OR end1$="J" THEN END 

3260 PRINT"Bei <ENTER> Uebernahme der Stan 

dardwerte" 

3270 PRINT:CLEAR INPUT:PRINT#1,"BPM:20,30, 

40,50,60,";:PRINT#1,CHR$ (24) "75"CHR$ (24) ;: 

PRINT#1,",90,100,125,150,165,190,200 "; 

3280 INPUT#1,wpm 

3290 IF wpm=20 THEN dauer=23 

3300 IF wpm=30 THEN dauer=16 

3310 IF wpm=40 THEN dauer=12 

3320 IF wpm=50 THEN dauer=9 

3330 IF wpm=60 THEN dauer=8 

3340 IF wpm=75 THEN dauer=6.3 

3350 IF wpm=90 THEN dauer=5.3 

3360 IF wpm=100 THEN dauer=4. 

3370 IF wpm=125 THEN dauer=3. 

3380 IF wpm=150 THEN dauer=3. 

3390 IF wpm=165 THEN dauer=2. 

3400 IF wpm=190 THEN dauer=2 

3410 IF wpm=200 THEN dauer=1 

3420 IF wpm=0 THEN wpm=75:dauer=6.3 

3430 CLEAR INPUT 

3440 PRINT:PRINT#1,"Ton : ";:PRINT#1,CHR$( 

24)"800"CHR$ (24) ;:PRINT#1,",850,950,1000,1 

050 Hz"; :INPUT#1,hz 

3450 IF hz=800 THEN ton=78 

3460 IF hz=850 THEN ton=74 

3470 IF hz=900 THEN ton=69 

3480 IF hz=950 THEN ton=65 

3490 IF hz=1000 THEN ton=62 

3500 IF hz=0 THEN hz=800:ton=78 

3510 a$=" ":£f=0:CL$S 


wweaen 


3520 LOCATE#7,7,17:PRINT#7,CHR$ (24)"ca."wp 
m; :LOCATE#7,7,18:PRINT#7,"Hz "hz;CHR$ (24) 
3530 CLS#1:PRINT#1,CHR$(24)" Waehlen Sie!! 
! "CHRS$ (24) 

3540 PRINT:PRINT;CHR$ (24)"- 1 - "CHR$(24)" 


40 EPc 


[2744] 
[2106] 
[1433] 
[2111] 
[2297] 


[2300] 
[701] 

[767] 

[2462] 
[2124] 
[1765] 
[2150] 
[2169] 
[1409] 
[350] 

[2598] 


[424] 
[1840] 
[416] 
[1402] 
[315] 
[110] 
[2488] 


[1016] 
[2488] 
[2029] 
[2174] 


[2151] 
[3909] 


[7063] 


[373] 

[1224] 
[1359] 
[1068] 
[1144] 
[1578] 
[1444] 
[1607] 
[1687] 
[1227] 
[1181] 
[1397] 
[1150] 
[1489] 
[2486] 
[184] 

[5652] 


[837] 
[1017] 
[1838] 
[884] 
[737] 
[765] 
[1083] 
[3228] 


[3282] 
[2153] 


Morseband" 
3550 PRINT:PRINT;CHRS(24)"- 2 - "CHRS(24)" 
Buchstabe und Morseanzeige" 

3560 PRINT:PRINT;CHR$(24)"- 3 - "CHRS(24)" 
Fuenfer Gruppen (alle Zeichen)" 

3570 PRINT:PRINT;CHRS(24)"- 4 - "CHRS(24)" 
Fuenfer Gruppen (nach eigener Wahl)" 

3580 PRINT:PRINT;CHRS$(24)"- 5 - "CHRS(24)" 
Morsegenerator Junkerstaste" 

3590 IF NOT INKEY(64) THEN CLEAR INPUT:GOT 
0 1750 

3600 IF NOT INKEY(65) 
0 1450 

3610 IF NOT INKEY(57) 

0 3660 

3620 IF NOT INKEY (56) 

0 4280 

3630 IF NOT INKEY(49) 
0 5830 

3640 GOTO 3590 

3650 "cgegegegegegegegegegegegegegegegegceq 
cqcq 
3660 
cacq 
3670 
cacq 
3680 CLS 

3690 IF cw=1 THEN ERASE zuf 

3700 DIM zuf£f (676) :cw=1 

3710 PRINT#1,"5er Code Laden 'f7 
Erzeugen <ENTER>" 

3720 a$=INKEY$:IF a$="" THEN 3720 
3730 IF a$="*" THEN £f=2:60T0 3710 
3740 IF a$="7" AND £f=2 THEN n=9:G60T0 4190 
3750 IF a$="9" AND £f=2 THEN ERASE zuf:PRIN 
T#1,CHR$ (24) :GOTO 3210 

3760 CLS 


THEN CLEAR INPUT:GOT 
THEN CLEAR INPUT:GOT 
THEN CLEAR INPUT:GOT 


THEN CLEAR INPUT:GOT 


'ceqegegq 5er Gruppen alle Zeichen cq 


"cgegegegegegegegegegegeaegegegegegeq 


oder 


3770 PRINT"WARTEN : Es werden 5er Gruppen 
von A-Z,0-1 und Satzzei - chen erz 
eugt!!" 

3780 mi=38:ma=90 

3790 ii=675 


3800 FOR i=1 TO ii 

3810 z=INT((1+ma-mi)*RND(1)+mi) 

3820 IF z=38 OR z=39 OR z=42 OR z=60 OR z= 
62 OR z=64 THEN 3810 

3830 zuf(i)=z:LOCATE 1,1:PRINT#1,zu£f(i):NE 
xT 

3840 CLS:PRINT#1,"Drucken 'f8 oder Abspe 
ichern '£f7":PRINT:PRINT"Bei <ENTER> wird d 
er CW Code ausgegeben!":PRINT:PRINT"Mit <D 


EL) Programm unterbrechen" 

3850 n=0:CLEAR INPUT 

3860 a$=INKEY$:IF a$="" THEN 3860 

3870 n=0:PRINT#1,CHR$ (24) :b$="" 

3880 IF a$="*" THEN £f=1:G0TO 3860 

3890 IF a$="8" AND £f=1 THEN n=8 

3900 IF a$="7" AND £f=1 THEN n=9:PRINT#1,CH 


R$ (24) :GOTO 4090 

3910 IF a$="9" AND £f=1 THEN aut1=0:cw=0:ER 

ASE zuf:PRINT#1,CHR$ (24) :G0TO 3210 

3920 CLS#1 

3930 PRINT#1,"Alle Zeichen gemischt !!!" 
3940 CLS:b=1:c=1 

3950 FOR a=1 TO 200:NEXT 

3960 IF n=8 THEN PRINT#n:PRINT#n," (c)DKIPM 
HJZ ";dat$;" Morsetext : ; 

3970 PRINT#n,"V";:1=86:G0OSUB 3040:PRINT#n, 
"v",:1=86:G0OSUB 3040:PRINT#n,"V";:1=86:608$ 

UB 3040:PRINT#n,"KA":1=93:G0SUB 3040:PRINT 

#n,CHR$ (13) 


[5002] 
[4823] 
[5471] 
[5472] 
[2163] 
[2291] 
[2645] 
[2091] 
[3046] 


[491] 
[2488] 


[3653] 
[2488] 


[91] 
[882] 
[1002] 
[2601] 


[1480] 
[1565] 
[2214] 
[3352] 


[91] 
[6368] 


[543] 
[216] 
[562] 
[1895] 
[3862] 


[3628] 
[10857] 


[990] 

[1340] 
[1235] 
[1796] 
[2012] 
[3228] 


[3448] 


[373] 
[3139] 
[524] 
[1170] 
[3765] 


[7298] 
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3980 FOR i=1 TO 675 [603] 4500 FOR al=1 TO 9 [1085] 
3990 IF NOT INKEY(79) THEN CLEAR INPUT:aut [4653] 4510 PRINT;al") "; [551] 
1=0:cw=0:ERASE zuf:PRINT#1,CHR$ (24) :60TO 3 4520 FOR a2=1 TO 6 [1192] 
210 4530 PRINT CHRS(a(al,a2))" "; [1887] 
4000 IF b=6 THEN b=1:PRINT#n," ";:b$=b$+" [3220] 4540 NEXT a2 [460] 
":SOUND 1,0,3*dauer,O 4550 PRINT" <" [650] 
4010 PRINT#n,STRING$ (1,zu£f (i)); [2587] 4560 PRINT [361] 
4020 IF c=45 THEN b=0:c=0:PRINT#n,CHR$(13) [2282] 4570 NEXT al [461] 
4030 1=zuf (i) :G0OSUB 3040 [1813] 4580 PRINT" 0 > vom Benutzer zu definiere [3989] 
4040 b=b+1 [569] nt 7 
4050 c=c+1 [701] 4590 PRINT:PRINT:PRINT;" "CHR$(147);:INPUT [5109] 
4060 NEXT [350] "> Waehlen Sie 0 bis 9 ...... 2a] 
4070 PRINT#n,CHRS (13) :PRINT#n,"AR";:PRINT" [6794] 4600 IF al>O THEN 4700 [1254] 
<ENTER>":1=92:G0SUB 3040:PRINT#n,C 4610 CLS:PRINT"6 Buchstaben, Zeichen oder S [5465] 
HR$(13):CALL &BBO6:PRINT#1,CHR$ (24) atzzeichen eingeben :":PRINT 
4080 CLS:n=0:G0T0 3840 [955] 4620 a2=1 [426] 
4090 "Auf Diskette speichern [1063] 4630 a$=INKEY$:IF a$="" THEN 4630 [1546] 
4100 CLS:PRINT"WARTEN" [681] 4640 IF a$="*" THEN £f=1:G60TO 4630 [1810] 
4110 OPENOUT "cwlern.5 [1144] 4650 IF a$="9" THEN £f=0:ERASE zuf:PRINT#1, [5901] 
4120 FOR i=1 TO 675 [603] CHR$ (24) :G0TO 3210 
4130 PRINT#9,zu£f (i) [1079] 4660 a$=UPPER$(a$) :PRINT#O,a$; [1539] 
4140 NEXT [350] 4670 a(0,a2)=ASC(a$) [765] 
4150 zuf (676) =42 [821] 4680 a2=a2+1 [709] 
4160 PRINT#9, zuf (676) [1084] 4690 IF a2<7 THEN 4630 [974] 
4170 CLOSEOUT [902] 4700 CLS:PRINT"WARTEN : Es werden 5er Grup [6436] 
4180 CLS:n=0:£f=0:G0T0 3840 [1042] pen mit dem Zufallsgenerator nach 
4190 'Von Diskette lesen [1144] Ihrer Wahl erzeugt !!!" 
4200 PRINT"WARTEN" [1300] 4710 mi=1:ma=6 [669] 
4210 OPENIN "cwlern.5 [965] 4720 ii=675 [216] 
4220 FOR i=1 TO 676 [598] 4730 FOR i=1 TO ii [562] 
4230 INPUT#9,zuf (i) [808] 4740 z=INT((1+ma-mi)*RND(1)+mi) [1895] 
4240 NEXT [350] 4750 IF NOT INKEY(79) THEN CLEAR INPUT:PRI [3487] 
4250 CLOSEIN [752] NT#1,CHR$ (24) :GOTO 4300 
4260 CLS:n=0:£=0:60T0 3840 [1042] 4760 zuf(i)=a(al,z):LOCATE 1,1:PRINT#1,zuf [3865] 
4270 "cqegegegegegegegegegegegegegegcegcgcq [2488] (i) :NEXT 
ceqgcq 4770 CLS:CLS#1:PRINT#1,a1;" > "CHR$(a(lal,ı [5674] 
4280 'cqcgacq Fuenfer Code nach Wahl cq [2595] ))CHRS (a(al,2))CHR$(a(al,3))CHRS(a(lal,4))C 
cqcq HRS (a(al,5))CHR$(a(lal,6))" <" 
4290 'cqcegegegegegegegegegegegegegegegegeq [2488] 4780 CLS:PRINT#1,"Drucken 'f8 oder Abspe [10857] 
cqcq ichern '£f7":PRINT:PRINT"Bei <ENTER)> wird d 
4300 CLS:PRINT#1,CHR$ (24) [648] er CW Code ausgegeben!":PRINT:PRINT"Mit <D 
4310 IF cw=1 THEN ERASE zuf:ERASE a [1338] EL) Programm unterbrechen" 
4320 DIM zu£f(676):DIM a(9,6):cw=1 [1774] 4790 CLEAR INPUT:n=0:b$="" [509] 
4330 CLS [91] 4800 a$=INKEY$:IF a$="" THEN 4800 [1536] 
4340 PRINT#1,"5er Code Laden 'f7 oder [2601] 4810 IF a$="*" THEN £f=1:G0T0 4800 [1689] 
Erzeugen <ENTER>" 4820 IF a$="8" AND £f=1 THEN n=8 [2012] 
4350 CLEAR INPUT [184] 4830 IF a$="7" AND £f=1 THEN n=9:60T0 5010 [2312] 
4360 a$=INKEY$:IF a$="" THEN 4360 [1512] 4840 IF a$="9" AND £f=1 THEN aut1=0:cw=0:ER [3199] 
4370 IF a$="*" THEN £=2:G0TO 4360 [1658] ASE zuf:PRINT#1,CHR$ (24) :ERASE a:GOTO 3210 
4380 IF a$="7" AND £f=2 THEN n=9:60TO 5130 [2138] 4850 CLS:b=1:c=1 [524] 
4390 IF a$="9" AND £f=2 THEN aut1=0:cw=0:ER [5078] 4860 FOR a=1 TO 200:NEXT [1170] 
ASE zuf,a:PRINT#1,CHR$ (24) :G0TO 3210 4870 PRINT;CHR$(24)" > "CHR$(a(al,1))CHR$S( [5383] 
4400 "Vorgeschlagene 5er Gruppen 1-9 [1299] a(al,2))CHR$(a(al,3))CHR$(a(al,4))CHRS(ala 
4410 a(1,1)=65:a(1,2)=70:a(1,3)=75:a(1,4)= [3253] 1,5))CHR$(a(al,6))" < "CHRS(24)" "; 
80:a(1,5)=85:a(1,6)=90 4880 IF n=8 THEN PRINT#n:PRINT#n,"(c)DK9PM [3765] 
4420 a(2,1)=66:a(2,2)=71:a(2,3)=76:a(2,4)= [2527] HJZ ";:dat$;" Morsetext : ns 
81:a(2,5)=86:a(2,6)=69 4890 PRINT#n,"V";:1=86:G0SUB 3040:PRINT#n, [7298] 
4430 a(3,1)=67:a(3,2)=72:a(3,3)=77:a(3,4)= [3887] "V";:1=86:G0OSUB 3040:PRINT#n,"V";:1=86:608 
82:a(3,5)=87:a(3,6)=68 UB 3040:PRINT#n,"KA":1=93:GOSUB 3040:PRINT 
4440 a(4,1)=68:a(4,2)=74:a(4,3)=78:a(4,4)= [29832] #n,CHR$ (13) 
| 83:2(4,5)=88:2(4,6)=65 4900 FOR i=1 TO 675 [603] 
| 4450 a(5,1)=69:a(5,2)=73:a(5,3)=79:a(5,4)= [2763] 4910 IF NOT INKEY(79) THEN CLEAR INPUT:PRI [3487] 
| 84:2(5,5)=89:a2(5,6)=66 NT#1,CHR$ (24) :GOTO 4300 
| 4460 a(6,1)=49:a(6,2)=51:a(6,3)=53:a(6,4)= [2645] 4920 IF b=6 THEN b=1:PRINT#n," ";:b$=b$+" [3220] 
| 55:4(6,5)=57:a(6,6)=50 ":SOUND 1,0,3*dauer,O 
| 4470 a(7,1)=50:4(7,2)=52:a4(7,3)=54:a(7,4)= [3437] 4930 PRINT#n,STRING$ (1,zu£ (i)); [2587] 
| 56:2(7,5)=48:2(7,6)=49 4940 IF c=45 THEN b=0:c=0:PRINT#n,CHR$ (13) [2282] 
| 4480 a(8,1)=46:a(8,2)=44:a(8,3)=63:a(8,4)= [3370] 4950 1=zuf(i):GOSUB 3040 [1813] 
| 61:a(8,5)=58:a(8,6)=63 4960 b=b+1 [569] 
| 4490 a(9,1)=40:a(9,2)=41:a(9,3)=43:a(9,4)= [3285] 4970 c=c+1 [701] 
| 47:2(9,5)=45:a(9,6)=59 4980 NEXT [350] 
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Anwendungen 


PD [3 
4990 PRINT#n,CHR$ (13) :PRINT#n,"AR";:PRINT" [6794] umbennen" 
<ENTER)":1=92:G0OSUB 3040:PRINT#n,C 5530 PRINT:PRINT"-3- file loeschen" [1779] 
HR$ (13) :CALL &BBO6:PRINT#1,CHR$ (24) 5540 PRINT:PRINT"-4- Morseband zurueck" [2089] 
5000 CLS:n=0:G0TO 4780 [946] 5550 a$=INKEY$:IF a$="" THEN 5550 [1530] 
5010 "Diskette speichern [1739] 5560 IF a$="1" THEN file1$="cwlern.5" [2172] 
5020 CLS:PRINT"WARTEN" [681] 5570 IF a$="2" THEN filel$="cwlern.55" [2146] 
5030 OPENOUT "cwlern.55 [1231) 5580 IF a$="3" THEN 5720 [1117) 
5040 PRINT#9,al [917] 5590 IF a$="4" THEN 1780 [565] 
5050 PRINT#9,a(al,1),a(al,2),a(al,3),a(al, [2162] 5600 LOCATE#1,24,1:PRINT#1,file1$ [1231] 
4) ,a(al,5),a(al,6) 5610 CLS:CAT [140] 
5060 FOR i=1 TO 675 [603] 5620 LOCATE 1,18:INPUT"Neuer Filename 'cw [5248] 
5070 PRINT#9,zu£(i) [1079] lern#.555 * a bis z ";file2$ 
5080 NEXT [350] 5630 file2$="cwlern"+file2$+".555":LOCATE [3157] 
5090 zuf (676)=42 [821] El 1, LSPRINTEL "Teen, rl Teasnrt nun 
5100 PRINT#9, zuf (676) [1084] 5640 LOCATE #1,36,1:PRINT#1,"0K? (j/n)" [2129] 
5110 CLOSEOUT [902] 5650 a$=INKEY$:IF a$="" THEN 5650 [1502] 
5120 CLS:n=0:f=0:G0T0 4780 [823] 5660 a$=UPPER$ (a$) [533] 
5130 ' Diskette lesen [1141] 5670 IF a$="J" THEN 5700 [929] 
5140 CLS:PRINT"WARTEN" [681] 5680 IF a$="N" THEN 5450 [835] 
5150 OPENIN "cwlern.55 [1164] 5690 GOTO 5650 [409] 
5160 INPUT#9,al [566] 5700 !REN,file2$,filei1$ [1766] 
5170 INPUT#9,a(al,1),a(al,2),a(al,3),a(al, [3006] 5710 GOTO 5450 [353] 
4),a(al,5),a(al,6) 5720 CLS:CAT [140] 
5180 FOR i=1 TO 676 [598] 5730 LOCATE 1,18:INPUT"Filename";file$ [1504] 
5190 INPUT#9,zu£(i) [808] 5740 IF file$="" THEN 5450 [747] 
5200 NEXT [350] 5750 LOCATE 30,18:PRINT"Wirklich loeschen [2663] 
5210 CLOSEIN [752] (j/n)" 
5220 CLS:n=0:£=0:60TO 4780 [823] 5760 a$=INKEY$:IF a$="" THEN 5760 [1456] 
5230 "Uhr [500] 5770 a$=UPPER$ (a$) [533] 
5240 INPUT#0,"Datun: xx.xx.xx ";dat$ [2029] 5780 IF a$="J" THEN |ERA,file$:G0OTO 5450 [1995] 
5250 IF dat$="" THEN dat$=dat1$ [2428] 5790 GOTO 5450 [353] 
5260 IF LEN(dat$)>8 OR LEN(dat$)<8 THEN 52 [2303] 5800 'Fehlerabfangroutine [1642] 
40 5810 PRINT:PRINT"Programm wird neu gestart [4175] 
5270 PRINT:INPUT#O,"Uhrzeit in UT/GMT (Stu [5633] et (ENTER)":CALL &BBO6 
nde ‚Minute)";stunde ‚minute 5820 CLS:RUN [342] 
5280 minute=minute-1 [719] 5830 'Morsetaste Junkers [1254] 
5290 CLS [91] 5840 CLS#1:PRINT#1,"'"Morsegenerator zur B [6006] 
5300 PRINT#7,CHR$ (24) [812] enutzung einer Junkers-Taste''" 
5310 minute=ninute+l [676] 5850 CLS:PRINT"Taste an Joystick-Buchse 6 [6850] 
5320 IF minute >59 THEN minute=0:stunde=st [2488] und 8 anschliessen !!!":PRINT:PRINT" (ENTER 
unde+1 )":CALL &BBO6:CLS 
5330 IF stunde >23 THEN stunde=0 [825] 5860 CLS [91] 
5340 LOCATE#7,1,25:PRINT#7,CHR$(91)dat$CHR [3424] 5870 PRINT"Tasthaltung!Gewoehnen Sie sich [5075] 
$(93); von Anfang an eine rich-" 
5350 IF stunde<10 THEN PRINT #7,USING " 0# [4076] 5880 PRINT"Tasthaltung an.Dazu nehmen Sie [6538] 
";stunde;:GOTO 5370 den Tastknopf zwischen" 
5360 PRINT #7,USING " ##";stunde; [1877] 5890 PRINT"Daumen (links vorne etwas un [5736] 
5370 IF minute<10 THEN PRINT #7,":";USING [2487] terhalb ), Zeigefinger" 
"0# ";minute;::G0TO 5420 5900 PRINT"(links hinten) und Mittelfinger [5655] 
5380 PRINT#7,":"; [619] (rechts hinten) ." 
5390 PRINT #7,USING "## ";minute; [678] 5910 PRINT [361] 
5400 stunde$=STR$ (stunde) [1369] 5920 PRINT"Jede unnatuerliche Haltung und [5804] 
5410 minute$=STR$ (minute) [1229] jegliche Verkrampfung" 
5420 PRINT#7,CHRS (24); [873] 5930 PRINT"ist zu vermeiden.Ellenbogen auf [8621] 
5430 RETURN [555] den Tisch auflegen und" 
5440 'Files umbenennen zum bestaetigen [1901] 5940 PRINT"im Rhytmus der Zeichen schwinge [6223] 
5450 CLS:CLS#1:file1$="":file2$="" [69] n.Wobei der Daumen alle" 
5460 PRINT"Dieser Menuepunkt dient zum [4334] 5950 PRINT"Bewegungen mitzumachen hat." [3860] 
umbenennen von Files" 5960 PRINT:PRINT"Weitere Informatioen gibt [6053] 
5470 PRINT"vom Typ (cwlern.5) (cwlern.55) [10535] Ihnen sicherlich jeden Funk -" 
in (cwlern.555) deren":PRINT"Dateninhal 5970 PRINT"amateur !":PRINT:PRINT"(ENTER)" [4165] 
t mit dem Zufallgenerator erzeugt wurden.! :CALL &BBO6:CLS 
nm 5980 SPEED KEY 1,2 [1274] 
5480 PRINT:PRINT"Diese Umbenennung soll da [6173] 5990 IF JOY(0)=16 THEN SOUND 1,69,1,15 [1644] 
s Einlesen unter Menuepunkt" 6000 IF JOY(O)<>16 THEN SOUND 1,0,1,0 [1528] 
5490 PRINT"Festtext ermoeglichen um sich s [4428] 6010 IF NOT INKEY(79) THEN SPEED KEY 30,2: [1904] 
elbst zu testen." GOTO 3510 
5500 PRINT:PRINT"<ENTER)":CALL &BBO6 [1823] 6020 GOTO 5990 [331] 
5510 CLS:PRINT"-1- cwlern.5 (alle Zeichen) [3141] 
umbenennen" 
5520 PRINT:PRINT"-2- cwlern.55 (6 Zeichen) [2973] 
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Tilgungsplan 


Noch nie war es so leicht, von der Bank oder sonstigen Geldin- 
stituten Geld zu bekommen, selbst wenn das Konto nicht die 
nötige Deckung aufweist. Kredite werden häufig in Anspruch 
genommen, doch wie sieht es mit der monatlichen Belastung 
aus? Damit Sie Ihre Kosten bis ins letzte Kalkül übersichtlich 
berechnen können, folgt nun unser CPC-Tilgungsplan. 


Nach dem Starten des Programmes erscheint das Hauptmenü. Hier 
können Sie zunächst Adresseinträge vornehmen. Sie haben anschlie- 
Bend die Wahl zwischen einer Berechnung der gesamten Darlehens- 
kosten oder der Erstellung eines kompletten Tilgungsplanes. Dazu ge- 
ben Sie nur Ihre Schuldsumme, den Jahreszins sowie die gewünsch- 
te Zahlungsweise (monatlich oder vierteljährlich) an. In kürzester Zeit 
erhalten Sie den kompletten Tilgungsplan mit Ihren regelmäßigen Be- 
lastungen. Natürlich können Sie sich das Ganze auch auf Drucker aus- 
geben lassen und archivieren. Ansonsten ist das Programm selbster- 
klärend. (G.Renius/sr) 


für 464-664-6128 


EEE = = = 2 2 > 2 2 2 = = = = 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2. [1285] 

20 '%*% TILGUGSPLAN *%* 01091) 

30 'xk VON G.RENIUS 1987 xx [1654] 

LI Eu > > = = 2 2 2 2 2 2 2 > 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 [1285] 

50 CLS: MODE 2: BORDER 12 [1009] 

60 ' {117) 

70 ' XKk*HAUPTMENUEXXX*% [825] 

80 ' 63171 

90 LOCATE 20,8: PRINT" KRERRRRKRIGKKSHKIOKRRIKKKK [2622] 

KKKKKKKKKKKKKKKKKK KU" 

100 LOCATE 20,9: PRINT'"xxx TILGUNG VON G [3651] 

.RENIUS 1987 Krr' 

110 LOCATE 20, 10: PRINT" KRERRRERKIGKKRRKIKKKKKK [2698] 

KRKKKKKKKKKKKKKKKKK N" 

120 LOCATE 20,11: PRINT"xxx [2734] 
xxx" 

130 LOCATE 20,12: PRINT"*%*%k ADRESSE EINGEB [3498] 

EN =a xxx" 

140 LOCATE 20,13: PRINT"xx*x [1903] 
xxx" 

150 LOCATE 20,14: PRINT"%%Xk TILGUGS-PLAN E [3320] 

RSTELLEN = Kr" 

160 LOCATE 20,15: PRINT"x%% (2712) 
xxx" 

170 LOCATE 20,16: PRINT"%*%Xk DARLEHNS-KOSTE [3757] 

N BERECHN. = xxx" 

180 LOCATE 20,17: PRINT" xxx [2789] 
xxx 

190 LOCATE 20,18: PRINT"%%Xk PROGRAMM-ENDE [2148] 

= xxx" 

200 LOCATE 20,19: PRINT"x%*x (2432) 
xxx" 

210 LOCATE 20, 20: PRINT" KRERRRRKIOKHKRKKKKK [3370] 

KKKKKKKKKKKKKKKKKKKK KU" 

220 LOCATE 39, 23: PRINT'"'xxx" [1778] 

230 LOCATE 35,24: PRINT">>> SELT [1908] 

240 LOCATE 39, 25: PRINT" xxx" [1378] 

250 LOCATE 39,24: INPUT; go$ [1654] 

260 IF go$="a” THEN CLS:nr=0:zs=0:sua=0:G0 [2928] 

TO 320 

270 IF go$="b" THEN nr=0:zs=0:sua=0:CLS:GO [2471] 

TO 530 

280 IF go$="c’" THEN CLS: zs=0:sua=0:CLS:GOT [2438] 

O 2020 

290 IF gos$="x'" THEN CLS:GOTO 2500 [1120] 

300 IF go$<>"a/b/c/x" OR go$="" THEN GOTO L[2700] 

250 

310 ' £1171 

320 'x%%k%*k ADRESSE EINGEBEN *Xx%*x [1220] 

330 ’ (117) 

340 LOCATE 20,7: PRINT"Adresse eingeben ? [4969] 

(Weiter mit ENTER)" 

350 LOCATE 10,9: PRINT" Anrede u [1927] 


360 LOCATE 30,9: INPUT; ans: IF ans="" THEN G [2619] 
OTO 50 
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Anwendungen 


LOCATE 10,11: PRINT"Name 
LOCATE 30,11: INPUT; nams 
LOCATE 10,13: PRINT"Str.-Platz 
LOCATE 30,13: INPUT; st$ 
LOCATE 10,15: PRINT’Haus- Nr. :" 
LOCATE 30,15: INPUT; hn 
LOCATE 10,17: PRINT"Postleitzahl 
LOCATE 30, 17: INPUT; plz$ 
10,19: PRINT"Wohnort :" 
30,19: INPUT; wo$ 
10,22: PRINT"Eingabe richtig 


935,22: INPUT; eig$ 
IF eig$="j" THEN GOTO 550 
IF eig$="n" THEN CLS:GOTO 320 
IF eig$s<>”j/n’" OR eigs="" THEN GOTO 48 


"X%%*%* DRUCKER ABFRAGE Xx%*x 


LOCATE 10,24: PRINT"Tilgugsplan drucken 

ee 
560 LOCATE 45,24: INPUT; td$s 
570 IF tds="j" THEN CLS:GOSUB 1440:GOSUB 1 
560:GOTO 610 
580 IF tds="n" THEN CLS:GOTO 610 
590 IF tds<>"j/n”" OR tds="" THEN GOTO 560 
600 ' 
610 '%%k%k%k DATEN EINGABE *xxx 
620 ' 
630 LOCATE 10,7: PRINT'"Monatl. 
aehrl. Zinsabrechnung ? (mv)"” 
640 LOCATE 60,7: INPUT; abrs 
650 IF abrs="m" THEN GOSUB 1280:G0OTO 680 
660 IF abrs="v" THEN GOSUB 1280:G0TO 680 
670 IF abrs<>"m/v" OR abrs="" THEN GOTO 64 
0 
680 LOCATE 20, 11: PRINT"Schuldsumme 

DM” 
690 LOCATE 45,11: INPUT; sua 
700 IF sua=0 THEN CLS:GOTO 70 
710 IF abr$="m' THEN GOTO 730 
720 IF abrs="v" THEN GOTO 740 
730 LOCATE 20,13: PRINT"Monatl. 
8 DM':GOTO 750 
740 LOCATE 20,13: 
1.DM”’:GOTO 750 
750 LOCATE 45,13: 
760 IF rz<1 THEN 
Bitte etwas mehr 
770 LOCATE 20,15: 

y" 
780 LOCATE 45,15: 
790 LOCATE 20,20: 


oder 1/4 - j 


Rueckzahlun 
PRINT" 1/4-Jaehrl. Rueckzah 


INPUT; - 72 

PRINT: LOCATE 63, 13: PRINT” 
1":GOTO 750 

PRINT" Zinssatz in 


INPUT; zs 
PRINT"Eingabe richtig (j/ 


LOCATE 45,20: INPUT; er$ 
IF ers="j'" THEN GOSUB 1280:GOTO 840 
IF er$="n" THEN zs=0:GOSUB 1280:GO0TO 6 


IF er$<>"j/n’" OR er$="" THEN GOTO 800 
IF td$="j" THEN GOSUB 1610 
nr=1 
IF abrs="m" 
*zs/12) 
870 IF abrs="v" 
*%zs/4) 
880 t=sua-sun 
890 z=rz-t 
900 IF sun?>sua OR sun=sua THEN PRINT: LOCAT 
E 10,25: PRINT"Rueckzahlung zu gering ! 
Darlehns-Konto nimmt zu !":FOR n=1 TO 
1500: NEXT: nr=0: zs=0: sua=0:dur$=INKEYS$:GOS 
UB 1300:GOTO 610 
910 LOCATE 1,7: PRINT"Lfd.Nr."; 
920 LOCATE 10,7: PRINT Alter Saldo"; 
930 LOCATE 29,7: PRINT" Zahlung"; 
940 LOCATE 43,7: PRINT" Tilgung”; 
950 LOCATE 57,7: PRINT"Zinsen"; 
960 LOCATE 69,7: PRINT’Neuer Saldo” 
970 LOCATE 1,8: PRINT STRING$(80,"-") 
980 LOCATE 3,9: PRINT; nr; 
990 LOCATE 8,9: PRINT USING” #######.## DM’; 
sua; 
1000 LOCATE 24,9: PRINT USING’ ######.## DM' 
‚tz; 


THEN sun=sua-rz+((sua/100) 


THEN sun=sua-rz+((sua/100) 


[1031] 
[1369] 
[2436] 
[1780] 
[2200] 
[1572] 
[3521] 
[915] 

[2298] 
[1526] 
[3636] 


[1406] 
[842] 

[2136] 
[1685] 


{117)] 
[1432] 
(117) 
[3571] 


[1345] 
13383) 


[2293] 
[1955] 
[117) 
[886] 
[117] 
(5629) 


[1247] 
[1818] 
[2402) 
[1690] 


[2880] 


[1102] 
[2233] 
[1223] 
[2197] 
[3656] 


[3704] 


[1980] 
15286] 


(2171) 


[1605] 
[3765] 


[1393] 
(1960) 
[1935] 


[1452] 
[1163] 
(327) 

[1967) 


[2217] 


1557) 
[858] 
(12681) 


[1698] 
[2847] 
(2212) 
[1388] 
[2450] 
(1921) 
[2596] 
[2357] 
[1794] 


[1402] 


epc 43 


Anwendungen 


LOCATE 38,9: PRINT USING’ ######.## DM' 
LOCATE 51,9: PRINT USING’ ######.## DM' 
LOCATE 68,9: PRINT USING” ######.## DM’ 


IF tds="j" THEN GOSUB 1690 

IF abr$="v”" THEN GOTO 1070 

IF sun<=rz THEN PRINT: PRINT STRING$(8 
0,”"-"): PRINT TAB(3) nr+1;".und letzte Rate 
"; TAB(58)" Restschuld” ; USING” ######.## DM’; 
sua-t+((sun/100)%zs/12): PRINT TAB(58)STRIN 
G$(22,”"="):GOTO 1210 
1070 IF sun<=rz THEN PRINT: PRINT STRING$<8 
0,"-"):PRINT TAB(3) nr+t1;".und letzte Quar 
tals-Rate” ; TAB(58)"Restschuld" ; USING" ##### 
#.## DM’; sua-t+((sun/100)%zs/4): PRINT TAB( 
S8ISTRINGS$(22,”="):GOTO 1210 
1080 THEN sua=sun: nr=nr+1:GOTO 
860 
1090 IF dur$="e” THEN GOTO 1150 
1100 LOCATE 2,24: PRINT"Moechten Sie die na 
echsten Raten einzeln oder im Schnelldurch 
lauf berechnen ?” 
1110 LOCATE 30,25: PRINT’ (e/s)'":LOCATE 40,2 
5: INPUT; dur$ 
1120 IF dur$="s"” 
1130 IF dur$="e" 
1140 IF dur$<>"e/s"” 
100 
1150 
1160 
hnen 
1170 
1180 
860: 
1190 
1200 
1210 
1220 


IF dur$="s" 


THEN GOTO 1080 
THEN GOTO 1090 
OR durs="" THEN GOTO 1 


LOCATE 1,24: PRINT STRING$(80,"-") 

LOCATE 1,25: PRINT’"naechste Rate berec 
<]/n) 2. 

LOCATE 40,25: INPUT; nms$ 

IF nm$="j" THEN sua=sun:nr=nr+t1:GOSUB 

RETURN 

IF nm$="n" 

GOTO 1170 

LOCATE 1,24: PRINT STRING$(80,'-") 

LOCATE 1,25: PRINT"Neue Berechnung 

(j/n) ? 

1230 LOCATE 40,25: INPUT; nb$ 

1240 IF nb$="j" THEN nr=0:zs=0:sua=0:dur$= 

INKEY$: CLS: GOTO 530 

1250 IF .nb$="n’" THEN CLS:GOTO 70 

1260 GOTO 1230 

1270 

1280 

1290 

1300 

1310 

1320 


THEN GOTO 1210 


"%%%% BILDSCHIRM - AUFBAU xxxx 


CLS 

LOCATE 1,1:PRINT STRING$(80,'"=") 

IF go$="b" THEN GOTO 1340 

1330 IF go$="c" THEN GOTO 1350 

1340 LOCATE 26,3: PRINT" %* TILGUNGS-PLAN %* 

":GOTO 1360 

1350 LOCATE 22,3: PRINT” 
x ” 

1360 LOCATE 32,4: PRINT" Jahres-Zinssatz ";z 

Ss; ” Ad 

1370 IF abrs="m" THEN GOTO 1390 

1380 IF abrs$="v" THEN GOTO 1400 

1390 LOCATE 2,4: PRINT"Darlehen = "; USING"# 
#HHHH#.## DM',;sua: LOCATE 59,4: PRINT"Monatl 
.Zinsabrechnung”:GOTO 1410 

1400 LOCATE 2,4: PRINT"Darlehen = ";USING"# 
Hehe. ## DM';sua: LOCATE 59,4: PRINT"1/4-Ja 
ehrl. Zinsabrechnung"”:GOTO 1410 


% DARLEHENS-KOSTEN 


1410 LOCATE 1,5:PRINT STRING$(80,"=") 


RETURN 


"x%%% ADRESSE DRUCKEN *x%x%x 
LOCATE 22,25: PRINT” 
W:S:6 HB -A7L T-B 5 x" 
FOR N=1 TO 1500 
NEXT 
IF anname$="" THEN RETURN 
PRINT#8, CHR$ (18); CHR$ (27); "3" ;CHR$S(24 

); TAB(6);an$ 

1500 PRINT#8, TAB(5); nams 

1510 PRINT#8, TAB(5);st$; hn 

1520 PRINT#8, TAB(5); plz$; TAB(10); wo$ 

1530 PRINT#8 

1540 RETURN 

1359: 


XDRUCKER 
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[2481] 
[3134] 
[2403] 


[1083] 
[2197] 
[11589] 


[14862] 


[2917] 


[1137] 
[8063] 


[3385] 


[1615] 
(1141) 
[2898] 


(1721) 
[4011] 


[1360] 
(2173) 


[1194] 
[305] 

(1721) 
12805) 


[1366] 
[4182] 


[1331] 
[365] 
(117) 
{2003) 
(117) 
[91] 
[955] 
[1016] 
[768] 
[3021) 


[2670] 
[2658] 


(1371) 
[2219] 
[7646] 


(7947) 


[2090] 
1555] 
[117] 
[1786] 
[117) 
[4629] 


[950] 
[350] 
[937] 
13875] 


[1348] 
[1186] 
[2538] 
[343] 
1555] 
[117] 


1560 'x%k%%*k KOPF DRUCKEN X%*x%x [710] 
1570-*° [117] 
1580 PRINT#8, CHR$(18); CHR$(27);"3”";CHRS$S(12 [6071] 
Y: TAB(25),” 7% DT LILI6G U N.G.8Sl-.PiL. AH |K* 

: PRINT#8 

1590 RETURN (555) 
1600 °* [117] 
1610 'x*kk ZINSSATZ DRUCKEN xXXxx%* [2274] 
1620 *' [117] 
1630 PRINT#8,CHR$(27);"3”;CHR$(12); TAB(33) [3490] 
"Jahreszins :";zs;” %' 

1640 IF abr$="m" THEN GOTO 1660 [1381] 
1650 IF abr$="v’" THEN GOTO 1670 [2316) 
1660 PRINT#8, TAB(30);"Monatl. Zinsabrechnu [3308] 
ng": RETURN 

1670 PRINT#8, TAB(25);"Vierteljaehrl. Zinsa [5120] 
brechnung” : RETURN 

1680 ' (117) 
1690 'x%%%*%k DATEN DRUCKEN Xx%*%x [904] 
1700 *' [1172 
1710 PRINT#8,CHR$(15), TAB(15);STRING$(115, [3599] 
_" } 

1720. PRINT#8, TABC17); "Lfd. Nr.: "; [1975] 
1730 PRINT#8, TAB(31);"Alter Saldo "; [2128] 
1740 PRINT#8, TAB(50);"Zahlung "; [2017] 
1750 PRINT#8, TAB(65); "Tilgung ”; 12342] 
1760 PRINT#8, TAB(81);"Zinsen "; [2805] 
1770 PRINT#8, TAB(96);"Neuer Saldo "; [2929] 
1780 PRINT #8, TAB(120);"Bezahlt am " [1790] 
1790 PRINT#8: [532] 
1800 PRINT#8, TAB(15);nr;". Rate”; [1620] 
1810 PRINT#8, TAB(29); USING’ #######.## DM " [2029] 
;sua; 

1820 PRINT#8, TAB(45); USING” ######.## DM "; [1910] 
r2; 

1830 PRINT#8, TAB(60); USING" ######.## DM "; L1550] 
t; 

1840 PRINT#8, TAB(75); USING’ ######.## DM " [3485] 
2; 

1850 PRINT#8, TAB(95); USING’ ######.## DM " [2530] 
;sun 

1860 IF abr$="m" THEN GOTO 1880 [1385] 
1870 IF abr$="v" THEN GOTO 1890 [2256] 
1880 IF sun <=rz THEN PRINT#8, TAB(15);STRI [12445] 
NG$(115,"-"): PRINT#8, CHR$(18): PRINT#8, TABC 
9)nr+1;". und letzte Monats-Rate” ; TAB(54)" 
Restschuld” ; USING” ######.## DM" ;sua-t+((su 
n/100)%zs/12): PRINT#8, TAB(54)STRING$ (22, "=" 
"):GOTO 1900 

1890 IF sun <=rz THEN PRINT#8, TAB(15);STRI [11854] 


NG$(115,'"-"): PRINT#8,CHR$(18): PRINT#8, TAB( 
9)nr+t1;". und letzte Quartals-Rate"” ; TAB(54 
)"Restschuld"” ; USING” ######.## DM’; sua-t+(( 
sun/100)%zs/4): PRINT#8, TAB(54); STRING$ (22, 


IF sun <=rz THEN GOSUB 1920 ELSE RETU [2158] 

1910 ’ 

PRINT#8: PRINT#8: PRINT#8, TAB(24)"D AH 
RLEHENS-KOSTE N":PRINT#8, TAB( 

9) STRING$(66,"-"): PRINT#8 

1930 IF abr$="m’ THEN GOTO 1950 

1940 IF abr$="v" THEN GOTO 1970 

1950 IF abr$="m' THEN gesumsnr*rz + sun + 

€ € sun / 100 ) X zs / 12): PRINT#8, TAB(18) 

nr;"Monatsrate(n) a."”; TAB(45) USING’ #HH### 

.## DM"; rz: PRINT#8: PRINT#8; TAB(16)" + 1 

Rate = Rest ="; TAB(45) USING” #HHHHH. ## 

DM” ;sun+((sun/100)*zs/12): PRINT#8:GOTO 19 

60 

1960 PRINT#8, TAB(25)"Gesamtkosten ="; TAB(4 

A)USING' #HHHHHH.## DM; gesum: PRINT#8, TAB(2 

5) STRING$(32,"="):GOTO 1050 

1970 IF abr$="v" THEN gesumsnrirz + sun + 

€ € sun / 100 ) X zs / 4): PRINT#8, TAB(18); 

ar,” Quart.Rate(n) a.”"; TAB(45) USING” #### 

##.## DM';rz: PRINT#8: PRINT#8; TAB(18)" + 1 
Rate = Rest ="; TAB(A5) USING” HHHHHH. ## 

DM" ;sun+((sun/100)%zs/4): PRINT#8: GOTO 1980 

1980 PRINT#8, TAB(25)"Gesamtkosten ="; TAB( 

AS)USING" A#HHHHHH.#H DM’; gesum: PRINT#8, TABC 

25) STRING$(32,”"="):GOTO 1050 

1990 *' 

2000 '%%*%%* DARLEHENS-KOSTEN Xx%xx*% 

2010 

2020 '%*x%*k%* DATENEINGABE XX%xx 


[117] 
15637) 


[1419) 
[2232] 
[16319] 


[7255] 


[13113] 


[7887] 


E31T3 
[608) 
[117] 
[886] 
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2030 ' [117] I%zS/4):GOTO 2320 

2040 LOCATE 10,7:PRINT"Monatl. oder 1/4-Ja [5674] 2320 IF sun?>sua OR sun=sua THEN LOCATE 10, [8881] 

ehrl.Zinsabrechnung ? (mwv)" 25: PRINT"Rueckzahlung zu gering ! 

2050 LOCATE 60,7: INPUT; abr$ [1247] Darlehenskonto nimmt zu !":GOTO 2020 

2060 IF abr$="m" THEN GOSUB 1280:G0TO 2090 [1778] 2330 LOCATE 33,9: PRINT"Bitte Warten !":PRI [3159] 

2070 IF abr$="v"” THEN GOSUB 1280:G0TO 2090 [2114] NT: PRINT 

2080 GOTO 2050 [361] 2340 t=sua-sun [557] 

2090 LOCATE 20,11: PRINT"Gewuenschte Darleh [4191] 2350 z=rz-t [858] 

enssumme DM :" 2360 IF sun>=rz THEN sua=sun:nr=nr+l:gesum [3925] 

2100 LOCATE 55,11: INPUT; sua [15519 =nr*rz+z:GOTO 2290 

2110 IF sua=0 THEN CLS:GOTO 70 [2233] 2370 IF abr$="m’ THEN GOTO 2390 [1443] 

2120 IF abr$="m" THEN GOTO 2140 [1333] 2380 IF abr$="v'" THEN GOTO 2410 [2280] 

2130 IF abr$="v" THEN GOTO 2150 [2260] 2390 gesum=nr*krz+sun+((sun/100)%zs/12):PRI L12727) 

2140 LOCATE 20,13: PRINT"Monatl.Rueckzahlun [3969] NT TAB(18) nr;” Monats-Rate(n) a."; TAB(4 

8g DM:":GOTO 2160 SIUSING "######.## DM’;rz: PRINT: PRINT TABC 

2150 LOCATE 20,13: PRINT"Vierteljaehrl.Ruec [5423] 18)"+ 1 Rate = Rest = ";TAB(45) USING "## 

kzahlung DM: ":GOTO 2160 ###R#.## DM’; sun+((sun/100)%zs/12): PRINT:GO 

2160 LOCATE 55,13: INPUT; rz [1287] TO 2400 

2170 IF rz<1 THEN LOCATE 63,13: PRINT"Bitte [3971] 2400 PRINT TAB(25)"Gesamtkosten = ";TAB(44 [4061] 

etwas mehr !'":GOTO 2160 > USING” ##H#####.## DW’; gesum: PRINT:GOTO 2 
2180 LOCATE 20,15: PRINT"Zinssatz in [2401] 430 
ee 2410 gesum=nr*krz+sun+((sun/100)%zs/4): PRIN [15198] 

2190 LOCATE 55,15: INPUT; zs [1125] T TAB(18) nr;” QUART.-Rate(n) a.”; TAB(45 

2200 LOCATE 10,22: PRINT"Eingabe Richtig (j [2097] USING "##H####.## DM’;rz: PRINT: PRINT TAB<(1 

N 8)"+ 1 Rate = Rest = ";TAB(45) USING "#### 

2210 LOCATE 35,22: INPUT; eings [1503] ##.## DM’ ;sun+((sun/100)%zs/4): PRINT: GOTO 

2220 IF eings$="j" THEN CLS:GOSUB 1280:G0TO [21451 2420 

2260 2420 PRINT TAB(25)"”Gesamtkosten = ";TAB(44 [4061] 

2230 IF eing$="n" THEN CLS:GOSUB 1280:G0TO [1643] >» USING’ #######.## DM’; gesum: PRINT:GOTO 2 

2020 430 

2240 GOTO 2210 [361] 2430 PRINT TAB(25) STRING$(32,"=") [845] 

2250 ' [117] 2440 LOCATE 1,24: PRINT STRING$(80,"-") [1721] 

2260 '%*%%*%*%* DATEN FUER DARLEHENSOKOSTEN BER [2110] 2450 LOCATE 1,25: PRINT”Neue Berechnung (j/ [2841] 

ECHNEN Xx%xx n) ? „ 

2270 (117) 2460 LOCATE 40,25: INPUT; nb$ [1366] 
| 2280 nr=1 [327] 2470 IF nb$="j" THEN CLS:nr=0:zs=0:sua=0:G [1803] 
| 2290 IF zs=0 THEN sun=sua-rz:GOTO 2340 [1851] OTO 2020 

2300 IF abr$="m" THEN sun=ssua-rz+((sua/100 [2090] 2480 IF nb$="n" THEN CLS:GOTO 70 [1331] 

I%*%zs/12):G0OTO 2320 2490 GOTO 2460 [367] 

2310 IF abr$="v" THEN sun=ssua-rz+((sua/100 [3018] 2500 LOCATE 36,13: PRINT’"Ende ": END [1069] 


Analle | Spieler uns Ihre Lösungen miit- 
. | teilen, können wir zusammen 
Sternenkrieger | allen Hilfesuchenden helfen. 


Labyrinthspezialisten | Also, halten Sie Ihre Spieletips 
und | nicht hinter dem Berg. 


sonstige Spiele-Fans 


Schreiben Sie uns 


DMV 
Daten & Medien 
Verlaggesellschaft mbH 
Postfach 250 : Fuldaer Str. 6 
3440 Eschwege 


Z.H. Herrn Stiller 


Wer kennt das nicht, nach lan- 
gen Stunden intensiven Spie- 
lens ist es gelungen, alle Pro- 
bleme zu knacken, und das 
Spiel bis zum Schluß zu mei- 
stern. 


Viele andere Spieler waren 
nicht so clever wie Sie und 
hängen irgendwo fest. Eine Si- Wir freuen uns 
tuation, in der man, wie Sie sSi- 
cherlich wissen, nur zu leicht schon heute —_ Ihren Brief, 
verzweifelt. und mit uns 


Wenn Sie als erfolgreicher _._Vviele, viele Spiele-Fans. 
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Anwendungen 


DEFPRINT 


DEFPRINT ist eine Kombination aus Zeicheneditor und 
Druckertreiber. Das Programm dient dazu, eigene Zeichen- 
sätze zu entwerfen, zu speichern, zu überarbeiten und in den 
Drucker zu laden. 


Ohne ein solches Hilfsprogramm ist das kaum zu schaffen. In vie- 
len Handbüchern fehlen die nötigen Informationen. Im übrigen ist 
die Definition eigener Druckerzeichen schwieriger als das Entwer- 
fen von Bildschirmzeichen, wegen der Regel, daß nicht zwei Na- 
deln überlappend gesetzt werden dürfen. Aus diesem Grunde gibt 
es auch keinen Algorithmus zum Invertieren von Druckerzeichen; 
man muß verschiedene Möglichkeiten durchprobieren und nach 
künstlerischen Gesichtspunkten entscheiden. Diesem Zweck dient 
der Editor DEFPRINT. Er erlaubt Probedrucke und Veränderun- 
gen des Entwurfs, bevor ein Zeichen in den erzeugten Zeichensatz 
übernommen wird. Vorhandene Zeichensätze können wieder ein- 
geladen und editiert werden. 

Das Programm ist getestet auf den Druckern Epson FX-85 und 
STAR SG-I5. Es sollte daher auf den meisten 9-Nadel-Druckern 
laufen. Die beiden Drucker unterscheiden sich in den Grafiksteu- 
erzeichen. Für den STAR muß eine markierte Programmzeile ge- 
löscht oder die Variable »dr« auf Null gesetzt werden. Diese 
Druckerkennung wird mit den erzeugten Zeichensätzen abgespei- 
chert. Ein Epson-File läuft demnach nur auf einem Epson Drucker 
richtig. Vollständig ausnutzen kann man es nur, wenn der Centro- 
nics-Ausgang des CPC-Computers auf 8 Bit erweitert ist, wie es 
in zahlreichen Bastelanleitungen beschrieben wurde. Sonst lassen 
sich nur die Zeichen mit den ASCII-Codes < 128 umdefinieren und 
man kann nur 8 Nadeln des Druckkopfs ansprechen. DEFPRINT 
ist auf dem Schneider 464 geschrieben. Nach meiner Absicht soll 
es auf allen Computern der CPC-Reihe laufen. Ich weiß aber nicht, 
ob der im Programm verwendete Patch für den 8-Bit-Betrieb auf 
dem CPC664/6128 richtig arbeitet. Wie im Programm vermerkt, 
entstammt er der Zeitschrift CPC International Nr. 11/86. Als Er- 
gänzung des Programms ist die Routine DEFINST zu betrachten. 
Sie lädt einfach einen gespeicherten Zeichensatz in den Drucker, 
ohne ihn zu bearbeiten. Man kann sie als Vorspann zu Program- 
men verwenden, die einen anwenderdefinierten Zeichensatz benö- 
tigen. 


Die Programme 


DEFPRINT 

1. Drucker und Computer aus- und wieder einschalten 

2. RUN« defprint 

Der Benutzer wird vom Programm geführt. Neben der programm- 
internen Bedienungsanleitung, die man sich auch ausdrucken las- 
sen kann, bedarf es keiner weiteren Erläuterungen. Auf die Fra- 
ge nach der Proportionalbreite eines definierten Zeichens sollte in 
der Regel der voreingestellte Wert (volle Breite) übernommen wer- 
den. Zur Realisierung von Proportionalschrift muß das Drucker- 
handbuch zu Rate gezogen werden. 

Erläuterungen zum Programm und Hilfen für eventuelle Anpas- 
sungen an andere Drucker finden sich im Listing. Beim Abtippen 
können sämtliche REMarks weggelassen werden. 


DEFINST 


1. RUN« definst 

Das Programm ruft eine Symboldatei mit dem Namen DEFDAT 

auf. Natürlich kann in Zeile 240 auch ein anderer Name eingesetzt 

werden. Selbstdefinierte Zeichen können nicht im NLQ-Modus ge- 

druckt werden. Jedenfalls ist das bei Epson Druckern so. 
(Dieter Taube) 


46 EPE 


100 ra [1543] 
* 


110 'x* [1175] 

* 

120 '* DEFPRINT V.1.1 [1761] 
* 

130 '* SE2=2S322z2z222=2=2= [175] 

* 

140 '* Druckerzeichen definieren [1870] 
* 

150 '* [175] 

Br 

160 '* fuer Schneider CPC [1497] 
* 

170 '* und EPSON FX-85 oder STAR SG-10/15 [2275] 
%* 

180 '* (C) Dieter Taube, Rinteln [1628] 
* 

190 '* [175] 

* 

200 "Ak [1543] 
* 

210 ' [117] 

220 DEFSTR b:DEFINT i-z [458] 

230 ° [117] 

240 '"------------------- [1051] 
250 ' Drucker-Anpassung [1913] 
260 '---------------- --- [1051] 
2710 * [117] 

280 dr=1:' Fuer Star-Drucker diese Zeile 1 [2496] 
oeschen 

290 ' [117] 

300 name$ (1)="EPSON":name$(0)="STAR " [2838] 


310 kop$ (1)=CHR$ (27)+":"+STRING$(3,0):kop$ [3785] 


(0)=CHR$ (27) +"*"+CHR$ (0) 


320 user$=CHR$ (27)+CHR$ (36+dr)+CHR$ (1) [2047] 
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330 defi$(1)=CHR$ (27) +"&"+CHR$ (0) :defi$ (0) 
=CHR$ (27) +"*"+CHR$ (1) 

340 stz$(1)=CHR$ (27) +"6":stz$(0)="" 

350; ? 


380 '-------- 

390 ' 

400 '8.Bit-Patch von A.Hartmeier, aus CPC- 
International 11/86: 

410 FOR i=&B072 TO &BOSA:READ j:POKE i,j:N 
EXT 

420 POKE &BD2B,195:POKE &BD2C,114:POKE &BD 
2D,176 

430 DATA 254,128,56,18,197,213,1,0,246,17, 
0,32,237,81,205,136,176,237,89,209,193,201 
‚207,242,135 

440 "vorgeschlagene Anpassung an CPC664/61 
28 (nicht getestet): 

450 IF PEEK(6)<>128 THEN POKE &BO8A,136 EL 
SE 480 

460 IF PEEK(6)=123 THEN POKE &B089,11 ELSE 
POKE &B089,27 

470 ' 

480 MODE 1:PRINT CHR$(23)CHRS$ (0) 

490 SYMBOL AFTER 123 

500 SYMBOL 123,108,0,120,12,124,204,118 
510 SYMBOL 124,102,0,60,102,102,102,60 

520 SYMBOL 125,102,0,102,102,102,102,62 
530 SYMBOL 126,12,50,50,62,50,60,48,48 

540 SYMBOL 254,0,0,34,20,0,20,34 

550 SYMBOL 255,0,0,28,62,62,62,28 

560 e$=" "+CHR$(8)+CHR$ (242) +CHR$ (9) +CHR$ ( 
243) +CHR$ (11)+CHR$ (240) +CHR$ (10)+CHR$ (241) 
+"X"+CHR$ (224) +CHR$ (127) +CHR$ (17) 

570 DIM z(12,8) ,d(11) ,dat (255,11) 

580 BEEP=CHR$ (7) :GET=&BB4B 

590 LOCATE 13,16:PRINT BEEP"Anleitung ? 
n"CHR$ (8); 

600 GOSUB 1060:CALL GET:IF NOT INKEY(45)TH 
EN GOSUB 2140 ELSE CLS 

610 WINDOW#1,10,15,7,14 

620 WINDOW#2,17,40,7,14:PEN#2,2 

630 WINDOW#3,2,40,23,25 

640 ' 
650 '---------------- 
660 
670 
680 ' 

690 IF INP(&F500)=90 THEN LOCATE 9,12:PRIN 
T CHR$(24)" Drucker einschalten ! "CHR$(24 

)BEEP 

700 PRINT#8,kop$ (dr); :' 

satz in RAM kopieren 

710 PRINT#8,user$;:' 
einschalten 

720 PRINT#8,stz$(dr);:' 

usdrucken, nur Epson 

730 CLS:a$=STRING$ (40,154) 

740 PRINT a$"* SELBST-DEFINIERTE ZEICHEN F 

VER "name$(dr)" *"a$ 

750 LOCATE 2,23:PRINT BEEP"Alten Zeichensa 

tz laden (j/n) ? n'CHR$(8); 

7160 GOSUB 1080:IF q$="j"THEN GOSUB 1950 

770 CLS#2:CLS#3 

780 PRINT#2,TAB(7)"Nadeln setzen","mit Pfe 
iltasten und COPY oder Joystick & Fire":P 

RINT#2:PRINT#2,TAB(4) "Matrix invertieren": 
PRINT#2,TAB(8)"mit CTRL Q 

790 PRINT#2:PRINT#2,TAB(6)BEEP"Beenden mit 
DEL 

800 GOSUB 1160:' Raster zeichnen 

810 TAG:GOSUB 1000:' Markierung setzen 


._—_—..nnnnn 


Drucker-Zeichen 
RAM-Zeichensatz 


Steuerzeichen a 
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[2850] 


[1844] 
[117] 

[1051] 
[1441] 
[1051] 
[117] 

[3817] 


[2539] 
[2626] 
[4526] 


[3960] 
[3004] 
[3162] 


[117] 

[2060] 
[1457] 
[2198] 
[1824] 
[2270] 
[1645] 
[1962] 
[1903] 
[7473] 


[1153] 
[991] 
[3084] 


[4645] 


[1435} 
[1640] 
[906] 
[117] 
[874] 
[1101] 
[874] 
[117] 
[5699] 


[2739] 
[2821] 


[3371] 


[1702] 
[4373] 


[6355] 
[2054] 


[637] 
[10650] 


[1584] 


[2505] 
[2229] 


820 CALL &BBT7E:' Cursor aus 
830 ' 

840 ' Beginn Eingabeschleife: 
850 ' 


860 CALL GET:a=INSTR (e$, INKEY$) 

870 IF a<2 THEN 860 ELSE GOSUB 1040:' Curs 
orkreuz loeschen 

880 ON a-1 GOTO 890,890,900,900,910,910,92 
0,920,930,930,1300,1100 


890 x=MAX(x-1,1):G0TO 950: ' links 
900 x=MIN(x+1,11):G0TO 950:' rechts 
910 y=MAX(y-1,1):60TO 950: ' hoch 
920 y=MIN(y+1,8):60T0 950: ' runter 


930 IF z(x-1,y)+z(x+1,y)<>0 THEN SOUND 1,9 
00:G0SUB 1040:G0T0 860:' Ueberlappung 

940 SOUND 1,90,10:z(x,y)=1-SGN(z(x,y)):GOS 
UB 1030:G0T0 860:' Nadel ein/aus 


950 GOSUB 1000:G0T0 860 
960 ' 

970 ' Unterroutinen: 
980 ' 


990 "Cursor bewegen: 

1000 MOVE (x-1)*8+1,-(y-1)*16-1:IF z(x,y)=0 
THEN PRINT CHR$ (254); 

1010 RETURN 

1020 'Nadel ein/aus, Cursorkreuz: 

1030 MOVE(x-1)*8+1,-(y-1)*16-1:PRINT CHR$( 

255); 

1040 IF z(x,y)=0 THEN MOVER-16,0:PRINT CHR 

$(254); 

1050 "Ton halten: 

1060 WHILE SQ(1)>127:WEND:RETURN 

1070 'Ein-Zeichen-Eingabe: 

1080 WHILE SQ(1)>127:WEND:CALL GET:q$=LOWE 

RS (INKEY$) :PRINT q$; :RETURN 

1090 "Matrix invertieren: 

1100 ERASE z,d:TAGOFF:PRINT CHR$(23)CHR$ (0 
):DIM z(12,8),d(11):GOSUB 1160 

1110 PRINT CHR$(23)CHR$ (1) :LOCATE 1,1:TAG 

1120 FOR y=1 TO 8:FOR x=1 TO 11 STEP 2 
1130 z(x,y)=1:MOVE (x-1) *8+1,-(y-1)*16-1:PR 

INT CHR$ (255); 

1140 NEXT x,y:x=1:y=1:G0T0 860 

1150 "Pin-Raster zeichnen: 

1160 ORIGIN 16,306,16,112,306,178:CLG 

1170 FOR i=0 TO 96 STEP 16:MOVE i,0:DRAW i 
‚-128:NEXT 

1180 FOR i=-128 TO 0 STEP 16:MOVE 0,i:DRAW 
96,i:NEXT k 

1190 "Cursor-Anfangsposition: 


1200 x=1:y=1 

1210 "XOR-Grafikmodus setzen: 

1220 PRINT CHR$(23)CHR$ (1) ; :RETURN 
1230' 

1240 '----------------- ------- 
1250 ' Drucker-Programmierung 

1260 '--------------------- --- 
1270: * 

1280 ' fehlende Parameter berechnen 
1290 ' 

1300 TAGOFF:CALL &BB7B 


1310 
des 
1320 


CLS#3:PRINT BEEP; :INPUT#3,"ASCII-Code 
neuen Zeichens : ",a0 

IF a0<1 OR a0>255 THEN 1310 

1330 LOCATE 2,24:PRINT BEEP"Hat es Unterli 
nge (j/n) ? n"CHR$ (8); 

1340 GOSUB 1080:u=-(q$<)"j") 

1350 LOCATE 2,25:PRINT BEEP"Proportionalbr 
eite Standardwert ? j"CHR$(8); 

1360 GOSUB 1080:IF q$<>"n"THEN a=0:e=11:60 
TO 1380 

1370 LOCATE 2,25:PRINT CHR$ (20) BEEP; : INPUT 
"erste,letzte Spalte (0...11): ",‚a,e 


Anwendungen 


[1960] 
[117] 
[1625] 
[117] 
[1775] 
[2770] 


[3033] 


[3555] 
[2509] 
[2074] 
[2200] 
[2931] 


[4898] 


[1350] 
[117] 
[1239] 
[117] 
[956] 
[5027] 


[555] 
[2526] 
[3501] 


[3803] 


[952] 

[1992] 
[2244] 
[4731] 


[2348] 
[3127] 


[3057] 
[2536] 
[2588] 


[1344] 
[1526] 
[1298] 
[2782] 


[2206] 


[725] 
[850] 
[1157] 
[2523] 
[117] 
[1287] 
[2366] 
[1287] 
[117] 
[1701] 
[117] 
[1607] 
‚[4344] 


[1423] 
[5416] 


[1682] 
[5856] 


[2729] 


[5930] 


ePpc 47 


BIER TEN nn eg 


1380 £f=128*u+16*ate:' Code fuer Hoehe und 
Breite des Zeichens 

1390 CLS#3 

1400 'Spaltensumnen: 

1410 sum=0:FOR x=1 TO 11:d(x)=0 

1420 FOR y=1 TO 8:d(x)=d(x)+z(x,y)*2" (8-y) 
:NEXT:' gesetzte Nadeln in 11 Spalten 
1430 sum=sumtd (x) :NEXT 

IF sum=0 THEN dat (a0,0)=0:G0T0O 1630 
1450 GOSUB 1480:G60T0 1560 


"Zeichen plotten als Merkhilfe: 

1480 vtab=YVPOS (#1) :PRINT#1,USING"###";a0 
1490 CALL &BBBA:ORIGIN 208,321-vtab*16 
1500 FOR x=1 TO 11:FOR y=1 TO 8:IF z(x,y)= 
1 THEN PLOT x,-2*y 

1510 NEXT y,x 

1520 RETURN 

1530 ' 

1540 ' Definition an Drucker 

1550 ' 

1560 GOSUB 1570:60SUB 1760:G0TO 1600 

1570 PRINT#8,defi$(dr)STRING$(2,a0)CHR$(f) 
;:' Definition eines Zeichens 

1580 FOR i=1 TO 11:PRINT#8,CHR$(d(i));:NEX 

T 

1590 RETURN 

1600 LOCATE 2,24:PRINT BEEP"Probeausdruck 
(j/n) ? n"CHR$(8); 

1610 GOSUB 1080:IF q$<>"j"THEN 1630 

1620 PRINT#8,STRING$(5,a0);:FOR i=1 TO 5:P 

RINT#8," "CHRS (a0) ;:NEXT:PRINT#8,"Test 
1630 CLS#3:LOCATE 5,24:PRINT BEEP"Ergebnis 
speichern (j/n) ? n"CHRS (8); 

1640 GOSUB 1080:IF q$="j"THEN GOSUB 1800 
1650 CLS#3:LOCATE 5,24:PRINT BEEP"Neues Ze 
ichen (j/n) ? j"CHR$ (8); 

1660 GOSUB 1080:IF q$="n"THEN x=1:y=1:0RIG 
IN 16,306,16,112,306,178:G0TO 810 

1670 CLS#3:LOCATE 1,1 

1680 PRINT CHRS(23)CHR$(O) :ERASE z,d:DIM z 
(12,8) ,4(11):G0TO 800 

1690 ' 


1720 men ne 

1730 ' 

1740 ' 1. Datenpuffer des Progranns: 

1750: * 

1760 dat(a0,0)=f:FOR i=1 TO 11:dat(a0,i)=d 
(i) :NEXT:RETURN 


1970 ° 

1780 ' 2. Sicherung auf Diskette: 
1790 ' 

1800 IF datei$<>""THEN 1820 


1810 CLS#3:LOCATE 5,24:PRINT BEEP; :INPUT"U 
nter welchem Dateinamen ? ",‚datei$ 

1820 OPENOUT datei$ 

1830 PRINT#9,dr 

1840 FOR ascii=1 TO 255 

1850 IF dat(ascii,0)=0 THEN 1880:' keine A 
enderung 

1860 PRINT#9,ascii 

1870 FOR i=0 TO 11:PRINT#9,dat (ascii,i):NE 


1880 NEXT ascii 
1890 CLOSEOUT:RETURN 


1920 ' 


[3252] 


[371] 
[1198] 
[902] 
[5690] 


[1065] 
[1602] 
[1402] 
[117] 

[3120] 
[1687] 
[1773] 
[3800] 


[397] 
[555] 
[117] 
[503] 
[117] 
[2495] 
[3164] 


(2191] 


[555] 
[4960] 


[2252] 
[6511] 


[4275] 


[2060] 
[3072] 


[4075] 


[316] 
[3735] 


[117) 
[1177] 
[823] 
[1177] 
[117] 
[2176] 
[117] 
[4699] 


[117] 
[1788] 
[117] 
[917] 
[6082] 


[738] 

[1038] 
[1056] 
[1776] 


[1315] 
[3512] 


[989] 
[1447] 
[117] 
[1409] 
[923] 
[1409] 
[117] 
[3999] 


Datei laden ? ",‚altdat$ 

1960 LOCATE#2,2,2:PRINT#2,"Anzeige unterdr 
Icken 

1970 PRINT#2," mit niedergehaltener":PRINT 
#2," Leertaste ... 

1980 OPENIN altdat$ 

1990 INPUT#9,i 

2000 WHILE NOT EOF 

2010 INPUT#9,a0,£:dat(a0,0)=f 


2020 FOR i=1 TO 11:INPUT#9,d(i):dat(a0,i)= 
d(i) :NEXT 

2030 GOSUB 1570:' Zeichen an Drucker 

2040 IF NOT INKEY(47)THEN 2070:' ueberspri 
ngen mit Leertaste 

2050 FOR x=1 TO 11:FOR y=1 TO 8:z(x,y)=-(( 
d(x)AND 2° (8-y))<>0):NEXT y,x 

2060 GOSUB 1480:' eingelesene Zeichen anze 
igen 

2070 WEND 

2080 ERASE z:DIM z(12,8) :RETURN 

2090 ' 


2120 '----------- 

2130 " 

2140 MODE 2:INK 1,20:LOCATE 1,3:d=0 

2150 RESTORE 2190:FOR i=1 TO 20:READ a$:PR 
INT#d,a$:NEXT 

2160 LOCATE 1,25:PRINT CHR$(24)SPC(24)"* C 
OPY: Diesen Text zum Drucker *"SPC(22)CHR$ 
(24)BEEP; 

2170 GOSUB 1060:CALL GET:IF NOT INKEY(9)TH 
EN d=8:WIDTH 255:6G0T0 2150 

2180 MODE 1:INK 1,24:RETURN 

2190 DATA " DEFPRINT ist ein Zeichenedito 
r £f}r EPSON- und STAR-Drucker. Besitzer ei 
nes"," STAR-Druckers m}ssen vor dem Progr 
ammstart die Basic-Zeile 280 l!ischen.", 
2200 DATA Bei jedem Speicher- oder Ladevor 
gang wird der gesamte Vorrat an definierte 
n,Zeichen gesichert und der Drucker entspr 
echend programmiert. Das Programm kann 
2210 DATA deshalb jederzeit mit ESC oder R 
ESET abgebrochen werden. Danach stehen auf 
dem,Drucker die neuen Zeichen zur Verf}gu 
ng. 

2220 DATA "Definierte Zeichen k!nnen nacht 
riglich geindert werden. Die }bernahne ein 
es","Leerzeichens mit DEL restauriert die 
urspringliche Form. Beachten Sie, da” nich 
tjeder ASCII-Code mit einem druckbaren Zei 
chen belegt werden kann. Hier hilft" 

2230 DATA Probieren oder das Studium des D 
ruckerhandbuchs. Ohne das 8.Bit des Centro 
nics-,"Ausgangs k!nnen Zeichen mit ASCII-C 
odes)127 nicht definiert werden. So bleibt 
",‚der Befehl ESC'6' (Epson) zum Ausdruck de 
r Steuerzeichen 128-159 wirkungslos. 

2240 DATA "Wenn Sie Ihren Schneider noch n 
icht umgelitet haben und nur }ber eine 7-B 
it-","Schnittstelle verf}gen, dann wird au 
ch die obere Nadelreihe nicht ausgedruckt. 
2250 DATA Au’erdem werden alle Zeichen zwe 
i Pixelreihen zu tief gesetzt (Unterlinge) 
.‚Das mu” beim Setzen der Nadeln bericksic 
htigt werden., 

2260 DATA " Die mit DEFPRINT erstellten D 
ruckercodes werden auf Diskette abgelegt. 
Zur"," Einbindung in eigene Programme die 
nt die kurze Routine DEFINST, welche dem", 


[3938] 
[4402] 
[605] 
[683] 


[1840] 
[1333] 


[2762] 


[1823] 
[4284] 


[3390] 
[1944] 
[390] 
[1201] 
[117] 
[597] 
[439] 
[597] 
[117] 
[2669] 
[2797] 


[6119] 


[4926] 


[1717] 
[15054] 


[10765] 


[7834] 


[21306] 


[14477] 


[12443] 


[8209] 


[18780] 


" eigentlichen Programm einfach vorangest 
ellt wird." 
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Anwendungen 


245 INPUT#9,dr [815] 
250 IF dr=0 THEN 320 [335] 
260 'Druckbefehle fuer Epson: [1796] 
270 PRINT#8,CHRS(27)":"STRING$(3,0);:' Dru [4884] 
cker-Zeichensatz in RAM kopieren 
100 ' DEFINST V.1.1 [649] 280 PRINT#8,CHRS(27)"6";:' Ste [3648] 
110 ' ============== [1050] uerzeichen als Druckzeichen behandeln 
112 ' [117] 290 PRINT#8,CHRS (27)"%1";:' def [2898] 
115 ' fuer Schneider CPC [494] inierten Zeichensatz einschalten 
120 ' [117] 300. GOTO 350 [470] 
130 DEFINT a-z:DIM d(11) [763] 310 'Druckbefehle fuer Star: [2106] 
140 ' [117] 320 PRINT#8,CHRS (27)"*"CHRS(0);:" Dru [2904] 
BSD een ee [3711] cker-Zeichensatz in RAM kopieren 
Eu EEE TEE 330 PRINT#8,CHR$ (27)"$1";:' def [3607] 
160 ! 8.Bit-Patch von A.Hartmeier, veroeff [4809] inierten Zeichensatz einschalten 
enlicht in CPC-Intern. 11/86 S.24 : 340 ' t1ı7] 
170: [117] 350 WHILE NOT EOF [1840] 
180 FOR i=&B072 TO &BOSA:READ j:POKE i,j:N [2539] 360 "Einlesen: [1385] 
EXT 370 INPUT#9,a0,f:' Ascii-Code und Informat [5279] 
190 POKE &BD2B,195:POKE &BD2C,114:POKE &BD [2626] ion ueber Hoehe & Breite des Zeichens 
2D,176 380 FOR i=1 TO 11:INPUT#9,d(i):NEXT:' gese [4558] 
200 DATA 254,128,56,18,197,213,1,0,246,17, [4526] tzte Nadeln in 11 Spalten 
0,32,237,81,205,136,176,237,89,209,193,201 390 'Uebergabe an den Drucker: [1866] 
-2071,242,135 400 IF dr=0 THEN PRINT#8,CHR$(27)"*"CHR$(1 [4008] 
202 "eventuell anpassen an CPC664/6128: [2424] )CHR$ (a0) CHRS (a0) CHRS(£) ;:GOTO 410 
203 IF PEEK(6)<>128 THEN POKE &B08A,136 EL [2878] 405 PRINT#8,CHRS (27)"&"CHRS(O)CHRS(a0)CHRS [3611] 
SE 230 (a0)CHRS (£); 
204 IF PEEK(6)=123 THEN POKE &B089,11 ELSE [3162] 410 FOR i=1 TO 11:PRINT#8,CHRS(d(i));:NEXT [2191] 
POKE &B089,27 420 WEND [390] 
a a TE EEE 730 Sr [3711] 430 CLOSEIN [752] 
Fe ee 440 ' [117] 
220 ' [117] 450 '--- RUN"programm --- [2299] 
230 IF INP(&F500)=90 THEN CLS:PRINT CHR$(7 [4849] 460 ' [117] 
)"Drucker einschalten ! 470 WIDTH 255:FOR i=128 TO 255:PRINT#8,CHR [5038] 
240 OPENIN"defdat [1510] $(i);:NEXT:PRINT#8," * TESTAUSDRUCK * 
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Anwendungen 


Timeout 


Automatisches Abschalten des Bildschirms bei längerer 
Nichtbenutzung zur Schonung der Bildröhre 


Es gibt eine Reihe von Computeranwendungen, bei denen das 
System stunden- oder auch tagelang läuft. Das dürfte für viele 
Anwendungen im Bürobereich zutreffen, aber auch etwa für 
Mailboxen. Falls nun am System zum Beispiel eine Stunde lang 
nichts gearbeitet wird (Mittagspause!), zeigt der Bildschirm die 
ganze Zeit dasselbe an. Das kann, vor allem bei größerer Hel- 
ligkeit zu Schäden führen, weil sich der Elektronenstrahl »ein- 
brennt«. Professionelle Terminals schalten daher nach einigen 
Minuten Untätigkeit die Bildröhre ab; bei der ersten Aktivität 
ist sie aber wieder »voll da«. 

Das gleiche Verhalten ist nun auch auf den CPCs verfügbar. Die 
RSX-Befehlsgruppe TIMEOUT sorgt mit folgenden drei Befeh- 
len dafür: 


'TIMEOUT,n 
'DARK 
!NORMAL 


'TIMEOUT,n setzt die Wartezeit, nach der der Bildschirm ab- 
zudunkeln ist. Der Bildschirm wird automatisch dunkel, sobald 
seit dem letzten Tastendruck, seit der letzten Bildschirmausgabe, 
seit dem letzten TIMEOUT-Befehl sowie seit dem letzten NOR- 
MAL -Befehl mindestens n Sekunden verstrichen sind. (1 <= 
n <=65535. 65535 Sekunden = ca. 18 Stunden). n = 0 stell- 
te den Effekt wieder ab. 

Der Bildschirm wird wieder hell durch 


10 VAR a a a a a a a a a a a a a a a a a a a a [1460] 

15 '%* * [175] 

20 '* * [175] 

25 '* EB EDOUT * [550] 

30 '* * [175] 

35. 9% C 1987 * [71) 

40 '* * [175] 

15 '* Georg Beran * [596] 

;0 '* * [175] 

ELRE 2 2 202 2022 27272 272 27202727272 7272 7272727272 272.272 2272.22 73 [1460] 

60 ' [117] 

65 'REM-Statements brauchen nicht abge- [4730] 
tippt werden 

70 'Vorliegendes Programm legt MC-Code [7067] 
direkt unter HIMEM ab (vgl. Zeile 

110). Ablage an anderen Stellen ist mo 

eglich: 

75 'Zeile 120: Ablage von h+1 bis inkl. [8434] 
h+552. Bereich h+1 bis inkl. h+&67 

ist nach der Initialisierung wieder fr 

ei (vgl. Zeile 530). Nettoplatzbe- darf 

daher 552 - &67 = 449 Byte. 

80 'Diese m}ssen zwischen &4000 und [3063] 
&BFFF liegen. 

85° [117] 

100 SYMBOL AFTER 256 [1408] 

110 MEMORY HIMEM-552:h=HIMEM [1025] 

120 FOR i=h+1 TO h+552:READ a$:POKE i,VAL( [3130] 

"&"+a$) :NEXT 

130 DATA 3E,07,11,92,A0,21,61,A0,4E,23,46, [3572] 

23,E5,69,60,01,03,00,ED,BO 

140 DATA E1,3D,20,F0,06,05,21,6B,A0,11,83, [3678] 


AO,1A,13,4F,1A,13,D5,59,57 


50 epe 


einen Tastendruck, eine Bildschirmausgabe oder einen 
TIMEOUT- oder NORMAL -Befehl. 


'DARK schaltet den Bildschirm dunkel. Über das Hellwerden 
siehe oben. Falls Sie DARK nicht vom Programm ausführen las- 
sen, sondern direkt eingeben, so wird der Befehl zwar durch- 
geführt, die folgende Ausgabe des »Ready« schaltet aber den 
Bildschirm sofort wieder hell, so daß keine Wirkung zu erken- 
nen ist. Das läßt sich umgehen durch eine Verzögerungsschleife: 


!IDARK: FOR i=1 TO 5000:NEXT 


!INORMAL schaltet den Bildschirm wieder hell. Die Anwen- 
dung von DARK und NORMAL ist wohl nur aus einem Pro- 
gramm heraus sinnvoll, etwa zum verdeckten Zeichnen von Gra- 
phiken. 


Eingabe des Programms 


Tippen Sie das Listing ab und SAVEn Sie es ab. 


Starten Sie es mit RUN. Der Maschinencode wird geladen und 
initialisiert. Ab jetzt sind die Befehle verfügbar. Das Programm 
löscht sich selbst. 


Diese Version legt den Maschinencode unmittelbar unter 
HIMEM ab. Sie können das ändern, indem Sie die Zeilen 110 
und 530 umbauen. 


Sie können auch den reinen Maschinencode abspeichern, in- 
dem Sie eine Zeile 


515 PRINT h+1:SAVE»TIMEOUT.BIN«,B,h+1,552,h+1 


150 DATA 13,4E,23,7E,23,E5,69,67,23,ED,AO, [3801] 
03,7E,E6,3F,12,E1,D1,10,E4 

160 DATA 06,07,21,61,A0,11,75,AO,E5,4E,23, 
66,69,36,C3,23,1A,77,23,13 

170 DATA 1A,77,13,E1,23,23,10,EC,21,89,AO, [3701] 
01,D3,A0,C3,D1,BC,D3,BD,06 

180 DATA BB,09,BB,18,BB,1B,BB,38,BC,32,BC, 
32,BC,35,BC,3B,BC,00,00,00 

190 DATA 00,00,00,00,00,00,00,00,00,00,00, [1962] 
00,00,00,00,00,00,00,00,00 

200 DATA 00,00,00,00,00,00,00,00,00,00,00, [1962] 
00,00,00,00,00,00,00,00,00 

210 DATA 00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,81,4A,A1,00 

220 DATA 00,00,00,00,00,00,00,00,00,81,61, 
A1,00,54,49,4D,45,4F,55,D4 

230 DATA 44,41,52,CB,4E,4F,52,4D,41,CC,00, 
C1,A0,18,14,00,18,09,00,F3 

240 DATA CD,44,A1,28,37,18,2D,F3,CD,44,Al, 
20,4E,18,6E,3D,C0,DD,7E,00 

250 DATA DD,46,01,21,8F, oe 77,23,70,B0,20, 
0E,F3,CD,44,A1,28,03,CD, 

260 DATA A1,CD,31,A1,18, 35, F3,CD,44,A1,28, 
03,CD,B9,A1,CD,3F,A1,18,00 

270 DATA 21,8F,A0,11,8D,AO,TE,ED,A0O,B6,28, 
OD,ED,A0,21,A7,A0,11,32,00 

280 DATA 42,4B,C3,E9,BC,21,A7,A0,C3,EC,BC, 
21,B4,A0,11,05,00,18,ED,21 

290 DATA B4,A0,18,FO,AF,21,91,AO,BE,C9,ED, 
4B,8D,AO,ED,A1,ED,43,8D,AO 

300 DATA E8,CD,44,A1,C0,CD,85,A1,CD,31, Al, 
18,D6,CD,44,A1,28,D9,3E,15 

310 DATA CD,1E,BB,20,A3,3E,17,CD,1E,BB,C8, 
18,9B,32,91,A0,F3,D9,51,CB 

320 DATA 91,ED,49,D9,21,67,AO,AF,C9,3E,FF, [2975] 
CD,75,A1,F5,E5,CD,00,00,E1 


330 DATA 70,23,71,23,F1,F5,E5,01,00,00,CD, [3509] 
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[2400] 


[2289] 


[1488] 


[2811] 
[2940] 
[2720] 
[3283] 
[3627] 
[3525] 
[3667] 
[3373] 


[3772] 
[3025] 


einfügen. Das können Sie dann laden mit LOAD“ TIME- 
OUT.BIN:CALL h+1,h+1 ist der Wert vom SAVE her. Sie müs- 
sen ihn aufschreiben. 


Unter der »Bildschirmausgabe« ist jede Ausgabe zu verstehen, 
die über die Firmware-Indirection TXT WRITE CHAR 
(BDD3) geleitet wird. Aus BASIC ist das vor allem das PRINT- 
Kommando (ausgenommen reine Steuerzeichensequenzen). 
Graphikbefehle zählen in diesem Zusammenhang nichtals 
Bildschirmausgabe. Sie können also »verdeckt« zwar Linien 
zeichnen, aber keine Texte ausgeben (außer mit TAG; das zählt 
dann als Graphik). 

Der Bildschirm wird abgedunkelt, indem die derzeit gültigen 
Werte für die 16 Inks und den Border abgefragt und gespeichert 
werden. Anschließend werden die Inks auf 0 (schwarz) gesetzt. 


Entsprechend wird der Bildschirm hell geschaltet, indem die 
Ink-Werte aus dem Zwischenspeicher geholt und neu gesetzt 
werden. Auf diese Art wird der Inhalt des Bildschirmspeichers 
durch die Abdunklung überhaupt nicht verändert. Auch Hard- 
copyroutinen arbeiten daher korrekt (Ausnahme: wenn eine 
Hardcopyroutine zur Ermittlung der Grautöne auf die gelten- 
den Ink-Werte zugreift, wird sie nur schwarz in schwarz 
drucken; in diesem Fall sollten Sie vorher !'TIMEOUT® setzen). 


Falls während einer Dunkelperiode INK- oder BORDER-Kom- 
mandos gegeben werden (von einem Programm aus), dann wer- 
den die neuen Werte einfach in den Zwischenspeicher geschrie- 
ben und beim späteren Hellschalten von dort geholt. Das Kom- 
mando wirkt also verdeckt. 


Bekanntlich kann am CPC jede Ink als blinkend definiert wer- 
den. Tatsächlich aber blinken ständig alle Inks. Normalerwei- 
se sind aber beide Blinkfarben gleich, so daß das Blinken nicht 
auffällt. Nun führt aber die Firmware die Anderung einer Ink 
nicht sofort durch, sondern erst beim nächsten Blinken. Falls 
Sie daher die Blinkperiode (mit SPEED INK) verlängert haben, 
kann sich auch das Abdunkeln bzw. Hellschalten des Bild- 
schirms entsprechend verzögern. 


Während Kassettenoperationen ist TIMEOUT lahmgelegt, weil 
dabei der interne Zeitgeber stillsteht. 


Für den Assemblerprogrammierer 


TIMEOUT arbeitet mit zwei Ereignissen, EV und EV2 ge- 
nannt. Ereignisse sind das Maschinencodeäquivalent zu den 
BASIC-Befehlen EVERY und AFTER. 


EVI wird einmal pro Sekunde aufgerufen und zählt einen Zähler 
herab. Wenn dieser auf Null kommt, wird der Bildschirm ver- 
dunkelt, EV1 abgestellt und EV2 gestartet. 


00,00,E1,F1,3C,FE,10,38,E6 
340 DATA E5,CD,00,00,E1,70,23,71,01,00,00, 
CD,00,00,D9,4A,ED,49,D9,FB 

350 DATA C9,AF,CD,75,A1,F5,46,23,4E,23,E5, 
CD,00,00,E1,F1,3C,FE,10,38 

360 DATA F0,46,23,4E,18,DD,CD,95,A0,F5,C5, 
D5,E5,F3,CD,44,A1,28,03,CD 

370 DATA B9,A1,CD,3F,Al,CD,18,A1,FB,E1,D1, 
C1,F1,37,C9,CD,9B,A0,18,E1 

380 DATA CD,98,A0,DO,18,DB,CD,92,A0,18,D6, 
CD,9E,AO,18,F3,F3,CD,44,Al 

390 DATA CA,A1,A0,21,87,A0,70,23,71,FB,C9, 
F3,57,CD,44,A1,7A,CA,A4,AO 

400 DATA 21,67,AO,E6,0F,87,5F,16,00,19,18, 
E6 

410 RESTORE 430:n=64: "Eintragen der ab- 
soluten Adressen. Beim Abtippen Auf- 


[3371] 
[3127] 
[4020] 
[3442] 
[4005] 
[3072] 
[1240] 
[8838] 
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Anwendungen 


E\V« läuft immer, wenn der Bildschirm dunkel ist. Die Routi- 
ne wird zehnmal je Sekunde aufgerufen und fragt die SHIFT- 
und CTRL-Tasten ab, da diese Tasten von den normalen Firm- 
warefunktionen KM WAIT CHAR etc. nicht erfaßt werden. 
Falls eine gedrückt ist, wird der Bildschirm hell geschaltet, EV2 
abgestellt und EV gestartet. 


Zur automatischen Aufhellung werden die Firmwareroutinen 
KM WAIT CHAR (BB06), KM READ CHAR (BB09), KM 
WAIT KEY (BBl8), KM READ KEY (BBiB) sowie IND TXT 
WRITE CHAR (BDD3) auf Ersatzroutinen umgeleitet. Die Er- 
satzroutinen führen die Originalroutine der Firmware durch, 
hellen den Bildschirm auf, stellen EV2 ab und schalten EVl ein. 


Wenn bereits bei der Initialisierung von TIMEOUT eine Ersatz- 
routine für eine dieser fünf Funktionen vorliegt, dann wird statt 
der Originalroutine diese aufgerufen. 


Damit INK- und BORDER-Befehle auch im abgedunkelten Zu- 
stand korrekt durchgeführt werden, sind die Firmwareroutinen 
SCR SET INK (BC32) und SCR SET BORDER (BC38) eben- 
falls umgeleitet. Die Ersatzroutine prüft, ob der Bildschirm ge- 
rade dunkel oder hell ist, und führt je nach dem Ergebnis die 
Original-Firmewareroutine aus oder schreibt die neuen INK- 
Werte in den Zwischenspeicher, der beim Abdunkeln angelegt 
wurde. Beim (irgendwann folgenden) Aufhellen werden daher 
automatisch die neuen Werte verwendet. 


Die Firmwareroutinen SCR GET INK und SCR GET BORDER 
sind nicht auf entsprechende Art umgeleitet. Dadurch liefern 
sie während einer Abdunklung falsche Werte. Die Implemen- 
tierung ist zwar leicht, kostet aber Speicherplatz und ist mei- 
nes Erachtens unnötig, weil es derartige Funktionen, etwa eine 
Farbe=INK(2), in BASIC ohnehin nicht gibt. 


Sie dürfen vor der Initialisierung von TIMEOUT keine Ersatz- 
routinen für diese vier Firmwarefunktionen eingestellt haben. 
TIMEOUT geht nämlich davon aus, daß diese Routinen im un- 
teren ROM liegen, was bei einem Ersatz nicht der Fall sein wird. 


DARK dunkelt den Bildschirm ab und schaltet EV2 ein sowie 
EVl aus. 


NORMAL hellt den Bildschirm auf und schaltet EV1 ein so- 
wie EV2 aus. 


Bei jedem »Einschalten« von EV1 wird zunächst der Zähler auf 
den Anlaufwert gesetzt (der mit; TIMEOUT,n übergeben wur- 
de). Falls dieser nicht O ist, wird EV1 danach eingeschaltet. 
Wenn er 0 ist, also TIMEOUT abgestellt ist, wird EV1 ausge- 
schaltet. 


(G. Beran) 


passen auf Abfolge von Hex- und De- zi 

malzahlen. 

420 FOR i=1 TO n:READ ad,w:ad=sad+h:w=w+h+1 
:hi=INT (w/256) :lo=w-hi*256:POKE ad,1lo:POKE 
ad+1,hi:NEXT 

430 DATA 4,&92,7,&61,28,&6b,31,&83,64,&61, 

67,&75,90,&89,93,&43,118,&1fa 

440 DATA 120,&1d2,122,&1f4,124,&1ef,126,&1 

ff,128,&204,130,&213,132,&1af 

450 DATA 134,&19a,136,&1c3,138,&18c,140,&1 

a5,178,&14a,191,&161,212,&c1 

460 DATA 222,&144,230,&144,245,&8£,255,&14 

4,260,&1b9,263,&131,269,&144 

470 DATA 274,&1b9,277,&13f,282,&8£,285,&8d 
,296,&37,307,&47,313,&b4,321,&b4 

480 DATA 327,&91,333,&84,339,&8d,343,&144, 

347,&185,350,&131,355,&144 


[4041] 


[3505] 
[4407] 
[3169] 
[2765] 
[4098] 
[3033] 
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Anwendungen 


490 DATA 375,&91,386,&67,393,&175,444,&175 [2572] De Rss peoe 
‚468,&95,476,&144,481,&1b9 DE ee een Then an Eran Eu iNaTns 
500 DATA 484,&13f,487,&118,497,&96,502,&98 [2708] De 
‚508,&92,513,&9e,519,&144 E20 INCIKG. Samkgt jeufnäsihstun jEidtran ar HENTaM 


830 DIN?! 1LOOPT 


510 DATA 522,&41,525,&87,535,&144,539,&a4, [1706] e 


’ 
850 ;RSX Einloggen 


542,&67 860 LD HL,BYTE4 
870 ‚Ta I 
520 CALL h+1 [203] 00 ur loben 
530 MEMORY h+&67:'h+1 bis h+&67 wird [3243] ums \nlasnlocee Garni die Adtfgen Inkeranktonen enthartans ILL TNLTIEUENT ER | 


886 ;auch nıchts anderes, als die ubergebenen Werte ın den Bloch zu schreiben. 


nicht mehr benoetigt 80 ; 
540 NEW: 'Dient zur Vermeidung einer [7728] Ba tar ent enen line Mean heRTanlgekzerante WelenalEraerägeren Kane 
zweifachen Initialisierung. Daher a Isprungtebelim:zu Kopieren sınd. Sıe werden kopiert nach JPTAB, JPTAB+S,... 
00 
vor dem RUN unbedingt SAVEen! 


910 DEFW WAITCH 

920 DEFW READCH 

930 DEFW WAITH 

740 DEFW READH 

950 ;HERTAB+10. Dıe 5 Eıntrage ab jetzt geben an, welche Einträge der Haupt- 
952 ;jsprungtabelle ım ROM aufgerufen werden (teilweise überlappung mit oben) 
60 DEFW SETBOR 


970 DEFW SETINI 

980 DEFW SETINK ;2 Mal 

99% DEFW GETIN I 
1000 DEFW GETBOR I 
1010 5 

1015 ;Adressen der Ersatzroutinen für die 1. sieben Routinen aus HERTAB 

1020 INDTAB DEFW IND I 
1030 DEFW INDI 

1050 DEFW Inb2 

1060 DEFW IND" 

1070 DEFW IND 

1080 DEFW INDS 

1090 DEFW IND& 

1100 5 


1110 ;Adressen der Stellen im Code, von denen die 5 Routinen ab HERTAB+10 
1115 jaufgerufen werden | 
1120 SETTAB DEFW SETBOI 
1130 DEFW SETINI 
1140 DEFW SETINZ2 
1150 DEFW GETINI 
1160 DEFW GETBOI 


; 

1180 COUNT DEFW 0 ;Enthalt Anzahl der Sekunden bis zu einem Abdunkeln 
1190 BYTE4 EOU COUNT-4 ;4-Byte Bereich für RSX 

1200 NOMTAB EOU BYTE4-34 ;jenthält nach Abdunkeln die Werte für 16 Inks + 
1210 5 Border (34 Byte = t16+1)e2 :7 Farben je Ink) 
1220 ; (beides liegt parallel zu INIT #.) 


1240 HIGHCT DEFW O jenth. Anlaufwert, auf den (COUNT) nach Ablauf gesetzt wird 
1250 DKFLAG DEFB O ;ist O, wenn Bildschirm Hell; ist FF, wenn dunkel 

1260 JFTAB DEFS 21 ; 7e3 

1268 3; 

1270 EVIBLK DEFS & ;jbraucht die Firmware zur Ereignisverwaltung 

1280 DEFS 2 

1290 DEFB 0 

1300 DEFB BIH ; = 1000 0001 

1310 DEFW EVIRT 

1320 DEFB 0 I 


’ 
330 EVZ2BLK DEFS 8 
1340 DEFB 0 
1350 DEFB 81H ;s.o. 


10 ;TIMEOUT. Abdunkeln des Bildschirms bei längerer Untätigkeit 1360 DEFW EVORT 
120 5 1370 DEFB © 


130 ORG OAOOOH 1375 5 
132 ;Initialisierung: 1377 ;3RSX- Namenstabelle 


134 jKopieren von 7 Einträgen der Hauptsprungtabelle 1380 NTABLE DEFM "TIMEOU" 


140 INIT LD A,7 1390 DEFB OD4H ;T 
150 LD DE,JPTAB ;Dort kommen sıe hin 1400 DEFM "DAR" 
160 LD HL,HERTAB ;Hier steht, welche Einträge 2410 DEFB xCBH »* 
170 LOOPi LD C, (HL) 142 DEFM "NORMA 
180 INC HL 1830 DEFW OCCH ;L defW, daher Abschluß mit 00 
190 LD B, (HL) 1432 ; 
200 INC HL 1434 ;RSX - Befehlstabelle 
210 PUSH HL ;zeigt auf nächsten Eıntrag in HERTAB 1440 TABLE DEFW NTABLE 
220 LD L,c 1450 JR TIMOUT ;Sprung zur I. Routine 
23 LD H,B ;Adresse des Eintrags in der Sprungtabelle 1460 NOP ;Lückenfüller, weil die Firmware 7 Byte lange Sprünge erwartet 
240 LD B6,3 1470 JR DARK 
LDIR ;3 Byte kopieren 1480 NOP 
POP HL 1485 ;Beginn der 3. Routine 
DEC A 1490 NORMAL DI jzwischen FLGTST und NORMEX soll kein TIMEOUT "zuschlagen" 
JR NZ,LOOPI ;näachster Eintrag 1500 CALL FLGTST ;Bildschirm hell? 
1510 JR Z,EVION ; Ja 
Einige Routinen werden später direkt ım ROM aufgerufen. Herausziehen 152 IR WI 
der Adressen und Eıntragen an den Stellen ım Code, wo sie später 1530 ’ 
aufgerufen werden. 1540 DARK DI ;vgl. NORMAL 
LD 8,5 1550 CALL FLETST 
LD HL,HERTAB+10 ;Hier steht, welche Routinen 1560 JR NZ,EVZON jist dunkel 
LD DE,SETTAB ;enthalt die Adressen, von wo sie später aufgerufen werden 1570 JR W2 
LOOP2 LD A, (DE) 1580 ’ # 
Inc DE 1590 TIMOUT DEC A ; 1 Parameter 
LD C,A 1600 RET NZ ;nein 
LD A, (DE) ;AC enthält Eintrag von SETTAB 1610 LD A, (1X+0) 
InC DE 1620 LD B,(Ix+1) ;Parameter in AB 
PUSH DE ;zeigt auf nächsten Eintrag im SETTAB 1630 LD HL,HIGHET 
LD E,C 1640 LD (HLI,A 
LD D,A ;= Adresse des CAllLs 1650 INC HL 
INC DE ; 1 Byte weiter 1660 LD (HLI,B ;Eintragen 
LD C, (HL) 1670 OR B ;0? 
INC HL e- 1680 JR NZ, WZ ;Nein 
LD A, (HL) ;AC enthalt Eintrag von HERTAB 1690 DI zvgl. NORMAL 
INC HL 1700 CALL FLETST 
PUSH HL ;zeigt auf nächsten Eıntrag in HERTAB 1710 JR zZ, W4 zist heil 
LD L,Cc 1720 CALL NORMEX ;hell schalten 
LD H,A ;= Adresse des Eintrags in der Hauptsprungtabelle 1730 W4 CALL EvIOFF jweil der Parameter OÖ war 
INC HL ; 1 Byte weiter 1740 ws JR EV2OFF 
LDI ;Low-Byte übertragen 1750 w3 DI 
INC BC ;LDI hat BC dekrementiert 1760 CALL FLGTST 
LD A, (HL) ;High-Byte 1770 JR Z,W6 ;ist hell 
AND SFH ;ROMstate-Bits loschen 1780 W9 CALL NORMEX 


LD (DE),A ;Adresse ist übertragen 1790 W& CALL EV2OFF \ 
POP HL 1800 JR EVION ;Farameter war © 
POP DE un 
DINZ LOOP2 ;nächster Eintrag 1812 ; schaltet EVi ein 
1820 EVION LD HL,HIGHET ; Anlaufwert übertragen 

Eintragen von Indirections: 183 LD DE,COUNT 

LD B,7 ;Anzahl 1840 LD A, HL) 

LD HL,HERTAB ;Dort steht, welche 1850 LDI ; 1.Byte. HL zeigt aufs 2. 

LD DE, INDTAB ;enthält die Adressen der Ersatzroutinen 18640 OR (HL) ; 07 
LOOPS3 PUSH HL ;zeigt auf Eintrag in HERTAB 1870 JR Z,EVIOFF ;ja; EVi sicherheitshalber abschalten 

LD C, (HL) 1880 LDI ; 2. Byte übertragen 

INC HL 1890 LD HL,EVIBLK 

LD H, (HL) 1900 LD DE,SOD ;i mal je Sekunde 

LD L,C ;HL enthalt Eintrag von HERTAB 1910 W7 LD B,D 

LD (HLIJ,ÖCHH ;JP .. eintragen 1920 LD C,E 

INC HL 1930 JP ADDTIC ; Ereignis eintragen 

LD A, (DEI 1940 ; 

LD (HLI,A ;1.Byte 1945 ; EVI ausschalten 

INC HL 1950 EVIOFF LD HL,EVIBLK 
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Pk 


1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2105 
2110 
2120 
| 2130 

2140 
2150 
2155 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2225 


223 


2240 
| 2245 
2250 
2260 
2270 
2280 
2290 
2300 
310 
2320 
2325 


2330 


2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2495 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 


2800 
2810 
2820 
2830 
2840 
2850 


2860 


WB JP DELTIC 


’ 

EV2ON LD HL,EV2BLK ;EV2 einschalten 
LD DE,S ;alle 5/50 = 1/10 sec 
JR W7 


; 
EVZ2OFF LD HL,EV2BLK ;EV2 ausschalten 


JR WB 
; 
FLGTST XOR A ;Testet Dkflag. Z, wenn hell 
; NZ, wenn dunkel 
LD HL,DKFLAG 
CP HL) 
RET 


; 
;Ereignisroutine von EVi. Wird 1 mal je Sekunde aufgerufen 
EVIRT LD BC, (COUNT) 


CPI ;Ersatz für DEC BC. (DEC BC setzt keine Flags) 
LD (COUNT),BC 
RET FE ;Zähler <> 0 
’ 
;Zähler=0; Bildschirm abdunkeln 
CALL FLGTST 
RET NZ ;ist eh dunkel 


W2 CALL DARKEX 
CALL EVIOFF 


;Abdunklung durchführen 


JR EV2ON ; DI wie bei DARK und NORMAL ist überflüssig, weil die 
’ Routine sich nicht selbst unterbricht 
; 
;Ereignisroutine von EV2. wird 10 mal je Sekunde autgerufen. 


EV2RT CALL FLETST 

JR Z,EVZOFF ;ist hell. 
; müßte. 

LD A,21D ;SHIFT 

CALL TESTK 

IR NZ,W9 ;gedrückt 

LD A,23D ;CTRL 

CALL TESTK 

RET Z ;auch nicht gedrückt 


JR W9 


EV2 abschalten, obwohl es abgeschaltet sein 


; 
;Teil von DARKEX und NORMEX 
ROM LD (DKFLAG),A ;Bildschirmstatus abspeichern 
DI ;Unterbrechungen müssen bis auf weiteres gesperrt bleiben. 
EXX 
LD D,C jalten ROMstate sichern 
RES 2,C ;L-ROM freischalten 
OUT <C),C 
EXX 
LD HL,NOMTAB ; Tabelle mit den Ink-Werten 
XOR A z;Ink Nr. 0 
RET 


;Abdunkeln des Bildschirms 
DARKEX LD A,OFFH ; neuer Status 


CALL ROM 
LDOP4 PUSH AF ; INK Nr. 
PUSH HL 
GETINI CALL O0 ;Get Ink (hier wird von INIT die Rom-Adresse von SCR GET INK 


$ eingetragen) 


POP HL 

LD (HL),B ;1.Farbe 

INC HL 

LD (HL),C ;2.Farbe 

INC HL 

POP AF ;Ink Nr. 

PUSH AF 

PUSH HL 

LD BC,O ;Ink auf schwarz setzen 
SETINI CALL O ;set ink (s.o.) 

POP HL 

FOP AF 

INC A ;nächste Int 


CP 10H ;schon fertig”? 
JR C,LOOP4 jnein 
PUSH HL 
GETBOL CALL 0 ;Get Border 
FOP HL 
LD (HL),B 
INC HL 
LD (HLI,C 
LD BC,O ;5.0. 


SETBO1 CALL O ;Set Border 


EXX ;ROMstate wiederherstellen 

LD C,D ;alter RDMstate 

OUT <c),Cc 

EXX 

EI ;jerst jetzt sind Unterbrechungen wieder zulässig 
RET 


2790 ; 


;schaltet den Bildschirm hell 
NORMEX XOR A ;vgl. DARKEX 
CALL ROM 
LOOFS PUSH AF 
LD B, (HL) 
INC HL 
LD C, (HL) 
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2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
2995 
2997 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3185 
3190 
3200 
3210 
3215 
3220 
3230 
3240 
3250 
3255 
3260 
3270 
3280 
3285 
3290 
3300 
3310 


5 


3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 


Anwendungen 


INC HL 

PUSH HL 
SETIN2 CALL 0 ;Set Ink 

POP HL 

POP AF 

INC A 

CP 10H 

JR C,LOOFS 

LD B, (HL) 

INC HL 

LD C, (HL) 

JR SETBO1 
; 
; Ersatzroutinen: 
; für KM Wait Char 
INDi CALL JPTAB+3 
W1O PUSH AF 

PUSH BC 


PUSH DE 
PUSH HL 
DI z;vgl. NORMAL 
CALL FLGTST 
IR Z,Wil zist hell 
CALL NORMEX 
wii CALL EV2OFF 
CALL EVION 


;Driginal Firmware-Routine 


;KM Wait Char kehrt mit C zurück 


für KM Wait Key 

NDS CALL JPTAB+9 
IR WIO 

’ 

jfür KM Read Char 

IND2 CALL JPTAB+6 


Wi2 RET NC 
JR WIO 


jkein Zeichen 


; 

;für IND TXT Write Char 

INDO CALL JPTAB ;Zeichen ausgeben 
JR WIO 

; 

sfür KM Read key 

IND4 CALL JFTAB+12 
IR wı2 


;für SCR Set Border 
INDS DI 
CALL FLETST 


JP Z,JFTAB+15 ;ist hell; SCR Set Border 
LD HL,NOMTAB+32 

LD (HLI,B ;1.Farbe 

INC HL 

LD (HL),C ;2.Farbe 

EI 

RET 


; 
;für SCR Set Ink 


INDs DI 
LD D,A ;Ink Nr. 
CALL FLETST 
LD A,D 


JP Z,JPTAB+18 
LD HL,NOMTAB 
AND OFH ;auf gültigen Wert bringen 
ADD A,A ;*2 

LD E,A 

LD D,06 

ADD HL,DE ;+NOMTAB 

JR W173 jeintragen 


;SCR Set Ink 


; 
sverwendete Firmware-Routinen 
LOGEXT EOU OBCDIH ;KL Log Extension 
WAITCH EQU OBBO6H ;KM Waıt Char 
READCH EQU OBBOFH ;KM Read Char 


WAITK EQU OBBISH ;KM Wait Key 
READK EOU OBBiBH ;KM Read Key 
TESTK EOU OBBIEH ;KM Test Key 
SETBOR EQU OBCI8H ;SCR Set Border 
GETBOR EQU OBCIBH ;SCR Get Border 


SETINK EQU OBCS2H ;SCR Set Ink 

GETINK EQU OBCISSH ;SCR Get Ink 

ADDTIC EQU OBCE9H ;KL Add Ticker 
DELTIC EQU OBCECH ;KL Del Ticker 
TXTIND EQU OBDDSH ; IND T«t Write Char 


; 


END INIT 


Anwendungen 


Bei diesem Programm dreht es sich um die Berechnung der 
Tabelle der 1. Fußballbundesliga während oder nach dem 
Spieltag. 


Die Tabellenberechnung 


Bei jedem Spiel werden 2 Plus- und 2 Minuspunkte vergeben. 
Der Gewinner des Spiels erhält 2 Pluspunkte, der Verlierer 2 
Minuspunkte. Bei einem Unentschieden teilen sich die Mann- 
schaften die Punkte: jede erhält einen Plus- und einen Minus- 
punkt. 

Für den Tabellenplatz ist in erster Linie das Punktekonto ent- 
scheidend. Je mehr Pluspunkte eine Mannschaft hat, um so 
mehr Siege kann sie verzeichnen und um so höher steigt sie in 
der Tabelle. Haben zwei Mannschaften den gleichen Punkte- 
stand(Plus- und Minuspunkte der beiden Mannschaften sind 
gleich), so ist für den Tabellenplatz die Tordifferenz entschei- 
dend. Die Tordifferenz wird gebildet aus der Summe der ge- 
schossenen Tore und der Summe der bekommenen Tore einer 
Mannschaft. Die Mannschaft mit der höheren Tordifferenz be- 
legt dann den vorderen Platz. Sind Punktekonto und Tordiffe- 
renz von zwei Mannschaften gleich, so belegt die Mannschaft 
den vorderen Tabellenplatz, die mehr Tore geschossen hat. Au- 
Berdem führt das Programm eine Bilanz, die aufzeigt, wie sich 
die Punkte aufteilen. Aus der Bilanz läßt sich auch der Punk- 
testand der jeweiligen Mannschaft folgendermaßen berechnen: 
Pluspunkte = 2 * Siege + 1 * Unentschieden 

Minuspunkte = 2 * Niederl. + 1 * Unentschieden 


Das Programm 


...läßt sich in drei Teile gliedern: In den Anfang, in dem Varia- 
blen definiert, Farben eingestellt und Zeichen definiert werden, 
in das Hauptmenü, von wo aus die 7 verschiedenen Optionen 
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aufgerufen werden, und in die Unterprogramme. 

Hinweis: Wer das Programm ein zweites Mal durch »Run« star- 
ten möchte wird Pech haben, denn der Computer protestiert ge- 
gen das SYMBOL AFTER in der Zeile 20. Dies liegt an den 
Zeilen 240-260 die die Ausgabe von Daten auf Cassette be- 
schleunigen. Besitzer von Diskettenlaufwerken können sich die- 
se Zeilen sparen. Wer das Programm also ein zweites Mal star- 
ten will, sollte »RUN 20« oder »GOTO 500« eingeben, wobei 
bei dem GOTO sämtliche Daten erhalten bleiben. 


Die 7 Optionen 


Mannschaftsnamen eingeben: 
jede Mannschaft besitzt eine Nummer, damit beim Abfragen 
der Spielpaarungen nicht so viel eingegeben werden muß. Je- 
der Nummer kann nun ein Name zugeordnet werden, der dann 
auch in der Tabelle auftaucht. Die Namen können jederzeit ver- 
ändert werden. Dies hat keinen Einfluß auf das Programm. 
Beim Eingeben der Mannschaftsnamen ist folgende Form ein- 
zuhalten: 

Nummer<:>Name<ENTER> 
Durch <ENTER> kommt man ins Menue zurück. 


Spieltag eingeben: 

Als erstes werden die Spielpaarungen (Begegnungen) abgefragt. 
Es werden die Mannschaftsnummern erwartet (nicht die Na- 
men!!), die durch den Doppelpunkt getrennt werden. Zur Kon- 
trolle werden nach jeder Eingabe die bisher eingegebenen Be- 
gegnungen angezeigt. Danach werden die Ergebnisse eingege- 
ben. Diese können anschließend verändert oder gelöscht wer- 
den. Auch die Ergebnisse müssen durch den Doppelpunkt 
getrennt werden. Danach wird die Tabelle berechnet. 


Die Einzeleingabe: 

ist ähnlich aufgebaut wie die Option »Spieltag eingeben«. Auch 
hier geht es um das Eingeben von Ergebnissen. Man muß je- 
doch nicht alle Ergebnisse eingeben, sondern kann zwischen- 
durch die Tabelle berechnen, sie ausdrucken, sowie die bishe- 
rigen Eingaben abspeichern. 
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Daten Laden / Abspeichern: 

Beim Abspeichern werden die Daten der Tabelle, sowie der mo- 
mentane Stand der Einzeleingabe abgespeichert. Anhand des 
Punktekontos der Mannschaft Nr. 1 wird der Spieltag ermittelt. 
Daraus ergibt sich der Dateiname: » < Spieltag>. SPT«. Beim 
Laden wird nach dem Spieltag gefragt, damit die richtige Da- 
tei geladen wird. Dabei ist am 18. Spieltag eine 17 einzugeben, 
da der 17. Spieltag der zuletzt gespeicherte sein muß. 


Tabelle ausgeben: 

Die Tabelle kann auf dem Bildschirm und auf dem Drucker aus- 
gegeben werden. Es werden Platz, Name, Punkte, Tore, Tor- 
differenz und Bilanz jeder Mannschaft ausgedruckt. 


Werte der Tabelle korrigieren: 

Hier können die Zahlenwerte der Tabelle verändert bzw. neu ein- 
gegeben werden. Punkte und Tore sind wie üblich durch den 
Doppelpunkt, die Werte der Bilanz jedoch durch das Komma 
zu trennen. 

Wer das Programm nach eigenen Vorstellungen erweitern oder 
verändern will kann das gerne tun. Er kann dabei auf einige Un- 
terprogramme zurückgreifen, die ihm das Leben leichter ma- 
chen: 

3700 Ja-Nein-Abfrage 

Die Tasten <J> und <N> werden solange abgefragt, bis eine 
von ihnen gedrückt wird. Die Variable jn erhält dann den Wert 
0 für »Ja« und den Wert 1 für »Nein«. 


4000 Windows definieren 

Der Bildschirm wird in 3 Windows eingeteilt: #2 ist die erste 
Zeile (für eine Überschrift) #1 sind die Zeilen 2-11 (zum Aus- 
drucken von Ergebnissen, Mannschaftsnamen o.ä.) #0 sind die 
Zeilen 12—25 


4100 String zerpflücken 

Nach Aufruf des Unterprogrammes erwartert der Computer ei- 
nen String, der anschließend in den Teil vor und in den Teil nach 
dem ersten Doppelpunkt geteilt wird. Ist bei Einsprung die Va- 
riable se< >0, so läßt er auch Strings als Eingabe zu, die er als 
b$ und d$ zurückgibt. Anderenfalls akzeptiert er nur Zahlen, 
die er als e% und 2% zurückgibt. 

Das Hauptmenue kann durch beliebig viele neue Optionen er- 
weitert werden. 


für 464-664-6128 25 Ei 
ken EE 
10 ' [117] 
20 ° [117] 
30 ' PROGRAMM ZUR BE [2694] 
RECHNUNG DER 

40 'TABELLE DER 1 Eu”B [1212] 
ALLBUNDESLIGA 

50 ' [117] 
60 ' [117] 
710 SYMBOL AFTER 90 [1214] 
80 SYMBOL 123,72,0,120,12,124,204,118 [2137] 
90 SYMBOL 124,36,0,60,102,102,102,60,0 [1575] 
100 SYMBOL 125,36,0,102,102,102,102,62,0 [2369] 
110 SYMBOL 126,28,34,98,110,98,98,108,96 [2459] 
120 MODE 2 [513] 
130 "INK 0,0:BORDER 0:INK 1,13:'Nur £f}r Fa [2376] 
rbmonitore 

140 BORDER 0:INK 1,26:PAPER O:'Nur £f}r Gr} [3025] 
nmomitore 

150 PRINT" Bundesligaprogramm":PRINT [2449] 
160 PRINT " geschrieben von : [1300] 
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Anwendungen 


Hinweis zum Eintippen des Programms 

Zeilen die mit »PRINT #2,« anfangen sind Überschriften. Sie 
können invers dargestellt werden indem man gleich nach dem 
ersten und vor dem letzten Anführungszeichen ein Steuerzei- 
chen einfügt, das man über die Tastenkombination 
<CTRL>+<X>erhält. 


Variablenliste 


Dimensionierte Variablen: 
Name$ Name einer Mannschaft 


ppu Pluspunkte einer M. 

mpu Minuspunkte einer M. 

gto Geschossene Tore einer Mannschaft 

bto Bekommene Tore einer M. 

bs Anzahl der Siege einer Mannschaft (für die Bi- 
lanz) 

bu Anz. der Unentschieden einer Mannschaft 

bn Anz. der Niederlagen einer Mannschaft 

platz Nummer einer Mannschaft die einen bestimmten 
Tabellenplatz belegt. 
platz(l) enthält z.B. die Nummer der Mannsch. 
die den ersten Platz in der Tabelle belegt. 

epu Bezieht sich auf die Einzeleingabe. epu(l) ist 1, 
wenn für die Mannschaft Nr. 1 ein Ergebnis ein- 
gegeben wurde. 

kon Hängt mit der Eingabe der Spielpaarungen zusam- 
men. kon (1) enthält die Nummer der Mannschaft 
die im ersten Spiel als erste eingegeben wurde, 
kon (2) diejenige, die als zweite eingegeben wurde 

tg+tb enthalten die Ergebnisse der Spiele. tg (kon (1)) 


wären die Tore die die Mannschaft Nr. 1 in ihrem 
Spiel geschossen hätte. tg steht für die geschosse- 
nen, tb für die bekommenen Tore. 


Wichtige nicht dimensionierte Variablen: 


ez% = 1, wenn die Spielpaarungen eingegeben wur- 
den. =0, wenn sie noch nicht eingegeben wurden. 
mnr% Mannschaftsnummer 
(Peter Kannowade) 
170 PRINT:PRINT [743] 
180 PRINT! xx ke [1876] 
ik! 
190 PRINT"** [1579] 
xx 
200 PRINT"** Peter Kannowade [3514] 
ax" 
210 PRINT"** [1579] 
ix" 
220 PRINT!" % ae aka ak ke ecke ee ke ke ke ee eek [1876] 
sikkkkk6%" 
230 PRINT:PRINT:PRINT "Herzlichen Dank an [7824] 
Markus Ortloff £f}r seine Unterst}tzung !!" 
240 ' Achtung !!!!l Programm kann nach [6763] 
dem Laden nur einmal durch "Run" ge- 
startet werden . Danach mit " 
goto 500" oder "run 20" beginnen . 
250 FOR a=1 TO 3000:NEXT [1580] 
260 ' [117] 
270 ' [117] 
280 ' deutsche tastatur : Umlaute durch [3584] 
contol+ta,o oder u 
290 ° sz durch [518] 
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T—— 


contol+" UF BILDSCHIRM (B) ";e$:e$=UPPER$(e$):IF e 

300 KEY DEF 69,1,97,65,123 [1068] $="D" THEN aggnr=8 

310 KEY DEF 34,1,111,79,124 [1227] 860 IF e$="B" THEN aggnr=0 [361] | 
320 KEY DEF 42,1,117,85,125 [1767] 870 IF e$<»"D" AND e$<>"B" THEN RETURN [1535) 
330 OPENOUT "dummy" [987] 880 CLS #0 [374] 
340 MEMORY HIMEM-1 [259] 890 IF aggnr=8 THEN PRINT #8,CHR$ (14) ;"Tab [6396] 
350 CLOSEOUT [902] elle des ";(ppu(1)+mpu(1))/2;".Spieltags" 

360 DIM name$(18),ppu(18),mpu(18),gto(18), [7430] 900 PRINT "Tabelle des ";(ppu(i)+mpu(1))/2 [3192] 
bto(18),bs(18),bu(18),bn(18) ‚platz (18),epu ;".Spieltags 

(18),kon(18),tg(18),tb(18) 910 a$="" [388] 
370 FOR a=1 TO 18 [950] 920 PRINT "Platz Mannschaft [5545] 
380 '  Startwerte fuer Tabelle [781] p) '=P GT BT si U 

390 platz(a)=a [353] ni Ni” 

400 NEXT [350] 930 IF aggnr=8 THEN PRINT #8,"Flatz Manns [6039] 
410 KEY 138,":":"Punkttaste auf dem Ziffer [3716] chaftsname Punkte 

nblock mit dem Doppelpunkt belegen Tore diff. Si Un NI" 

420 ' [117] 940 FOR a=1 TO 18 [950] 
430 '}berschriften k!nen invers dargestell [10783] 950 z=platz(a) [1040] 
t werden „ indem man nach dem An- f}hr 960 IF aggnr=8 THEN PRINT #8,USING "##\ \\ [11199] 
ungszeichen am Anfang und vor dem am Schlu \NONHHN\ 

ss das Steuerzeichen ctrl+X einf}gt AV 2 DER 2 2 Da 2 7 Due 2 20 VEN NEBEN \E" 

; ;a,a$,name$(z),a$,ppu(z)," : "‚mpu(z),a$,g 

440 ' [117] to(z)," : ",bto(z),a$,gto(z)-bto(z) ,‚a$,bs( 

450 ' [117] z),a$,bu(z),a$,bn(z) 

460 ' [117] 970 PRINT USING "##\ \\ [10100] 
470 ' MENUE [1057] NEE \NHRN \RRRN \ERR\\HERN 

480 ' [117] \HR\\BR\\HR";a,a$,name$(z),a$,ppu(z)," : " 

490 ' [117] ‚mpu(z) ,a$,gto(z)," : "‚bto(z) ,a$,gto(z)-b 

500 MODE 2 [513] to(z),a$,bs(z),a$,bu(z),a$,bn(z) 

510 PRINT CHR$(24)" [6737] 980 NEXT [350] 
Fu’ball-Tabellen Berechnung 990 CALL &BB18 [389] 

"CHR$ (24) 1000 RETURN [555] 

520 LOCATE 1,4 [620] 1010 ' [117] 
530 PRINT:PRINT "Tabelle ausgeben -------- [3558] 1020 ' [117] 
------------- T" 1030 ' Einzeleingabe [1648] 
540 PRINT:PRINT "Einzeleingabe ----------- [3725] 1040 ' [117] 
ann nn nn E" 1050 ' [117] 
550 PRINT:PRINT "Mannschaftsnamen eingeben [3141] 1060 MODE 2 [513] 
nn M" 1070 GOSUB 2760 [899] 
560 PRINT:PRINT "Spieltag eingeben ------- [3505] 1080 GOSUB 3300 [965] 

------------- gr 1090 PRINT #2,CHRS (24)" Einzeleingabe [1575] 

570 PRINT:PRINT "Daten abspeichern ------- [3460] "CHR$ (24) 

ERRRRREELSE N? A" 1100 PRINT CHR$(24)" Eingabe der Begegnun [4195] 

580 PRINT:PRINT "Daten laden ------------- [3465] gen "CHR$(24) 

Bee L" 1110 IF ez%=1 THEN GOTO 1140 [1277] 

590 PRINT:PRINT "Werte der Tabelle korrigi [4432] 1120 ez%=1:ERASE tg,tb,kon,epu:DIM tg(18), [2770] 

eren --------- K" tb(18),kon(18),epu(18) 

600 a$=INKEY$:a$=UPPER$ (a$) [1404] 1130 GOSUB 1600 [859] 

610 IF a$="" THEN GOTO 600 [699] 1140 CLS [91] 
620 IF a$="T" THEN GOSUB 780 [1849] 1150 PRINT:PRINT " Ergebnis einer Begegnun [4228] 

630 IF a$="E" THEN GOSUB 1020 [1637] g eingeben ------- Er 

640 IF a$="M" THEN GOSUB 1310 [1416] 1160 PRINT:PRINT " Momentanen Tabellenstan [5167] 

650 IF a$="S" THEN GOSUB 1490 [1162] d berechnen ------- B" 

660 IF a$="A" THEN GOSUB 2360 [1253] 1170 PRINT:PRINT " Tabelle ausgeben [3948] 
670 IF a$="K" THEN GOSUB 3760 Ma | Do Te nn q" 

680 IF a$="L" THEN GOSUB 2550 [1909] 1180 PRINT:PRINT " Rickkehr ins Menue [3903] 
690 GOSUB 3300 61-1: 7 Base Be ee R" 

700 GoTO 500 [401] 1190 PRINT:PRINT " Neue Spielpaarungen ein [5122] 
710 ' [117] geben 5" 

7120 ' [117] 1200 IF INKEY(58)=0 THEN up=1:CLS:CLS #1:6 [3278] 
730 ' AB HIER UNTERPROGRAMME [1757] OSUB 2970 

740 ' {117] 1210 IF INKEY(54)=0 THEN up=1:G0SUB 2070 [2194] 
750 " [117] 1220 IF INKEY(51)=0 THEN up=1:G0SUB 780 [894] 
760 ' [117] 1230 IF INKEY(60)=0 THEN up=1:e2%=0:60T0 1 [1358] 
7710, ° 137 020 

780 ' [117] 1240 IF INKEY(50)=0 THEN RETURN [840] 
790 ' [117] 1250 IF up=0 THEN GOTO 1200 [1228] 
800 ' Tabelle drucken [1023] 1260 up=0 [212] 
810 ' [117] 1270 GOSUB 3450 [1039] 
820 ' [117] 1280 GOSUB 3330 [975] 
830 MODE 2 [513] 1290 PRINT #2,CHR$ (24) " Einzeleingabe [1575] 
840 GOSUB 3300:' Tastenpuffer loeschen [2309] "CHRS (24) 


850 INPUT "DRUCKEN AUF DRUCKER (D) ODER A | 1300 GOTO 1140 [311] 
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1310 
1320 
1330 
1340 
1350 
1360 ' 

1370 GOSUB 3300 

1380 CLS 

1390 GOSUB 2760:' Mannschaftsnamen ausgebe 

n 

1400 PRINT #2,CHR$ (24) " 

n Indern "CHR$ (24) 
1410 PRINT "Geben Sie die Mannschaftsnamen 
bitte in der Form NUMMER:NAME [Enter] ein 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 ' 

1510 ' Spieltag eingeben 
1520 ' 
1530 ' 

1540 ERASE kon:DIM kon (18) :ez%=0 

1550 MODE 2 

1560 GOSUB 3300 

1570 GOSUB 2760:' Mannschaftsnamen darstel 
len 

1580 PRINT #2,CHR$ (24)" 
en "SCHRS (24) ," 

ge Eingeben der Begegnungen 
) 

1590 PRINT "Geben Sie alle Spielpaarungen 
ein,indem Sie die oben angegebenen Nummern 
verwen- den . Trennen Sie bitte durch den 
Doppelpunkt .":CALL &BB18 

1600 FOR a=1 TO 17 STEP 2 

1610 GOSUB 1720 

1620 GOSUB 3550 


Mannschaftsnamen eingeben 


Mannschaftsname 


PRINT "Zum Menue zurueck mit [ENTER]" 
se=1 

GOSUB 3550 

IF le=0 THEN RETURN 

IF e%>18 THEN GOTO 1310 

name$ (e%)=d$ 

GOTO 1310 


Spieltag eingeb 
";CHRS$ (24) 
"CHR$ (24 


1630 IF e%<1 OR e%>18 OR z%<0 OR z%>18 OR 
e%=z% THEN PRINT "Eingabefehler !!":GOTO 
1620 

1640 b=0 


1650 b=b+1:IF b=19 THEN GOTO 1680 
1660 IF kon(b)=e% OR kon(b)=z% THEN PRINT 
"Eine der Mannschaften wurde schon einmal 
eingegeben.Wiederholen Sie bitte die Ein 
gabe":GOTO 1620 
1670 GOTO 1650 
1680 kon (a)=e% 
1690 kon (a+1)=z% 
1700 NEXT 
1710 a=17 
1720 CLS 
1730 FOR c=1 TO a STEP 2 
1740 PRINT USING "\ 
\ AN 

\";name$(kon(c))," ",‚name$(ko 
n(c+1)) 
1750 NEXT 
1760 IF kon(18)=0 THEN RETURN 
1770 PRINT "eingabe richtig 
1780 GOSUB 3200:' ja/nein-Abfrage 
1790 IF jn=1 THEN GOTO 1490 
1800 ' 
1810 IF ez%=1 THEN RETURN: 'Ende der Mannsc 
hafteseingabe ; wenn ez%=1 , dann 

Ricksprung 


9" 


zur Einzeleingabe 
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[117] 
[117] 
[117] 
[3004] 
[117] 
[117] 
[965] 
[91] 
[3908] 


[3106] 


[6451] 


[2807] 
[283] 
[979] 
[1251] 
[464] 
[585] 
[436] 
[117] 
[117] 
[391] 
[117] 
[117] 
[775] 
[513] 
[965] 
[3468] 


[6329] 


[11462] 


[965] 
[819] 
[979] 
[3508] 


[312] 
[1366] 
[12530] 


[313] 
[795] 
[668] 
[350] 
[535] 
[91] 
[1319] 
[4590] 


[350] 
[875] 
[1344] 
[1902] 
[907] 
[117] 
[5053] 


1820 ' 
1830 PRINT #2,CHR$ (24)" 
n ":CHRS (24) ;" 
rgebnisse Eingeben 
1840 CLS 
1850 FOR b=1 TO 17 STEP 2 
1860 a=kon (b) 
1870 c=kon (b+1) 
1880 PRINT USING "\ 

RN; AN \\ 
\";name$(a),":",name$(c); 
1890 GOSUB 3550 
1900 a%=e%:b%=z% 
1910 tg(a)=a%:tb(a)=b%:tg(c)=b%:tb(c)=a% 
1920 gto(a)=gto(a)+a% 
1930 gto(c)=gto(c)+b% 
1940 bto(a)=bto(a)+b% 
1950 bto(c)=bto(c)+a% 
1960 IF a%)b% THEN ppu(a)=ppu(a)+2:mpu(c)= 
mpu (c)+2:bs (a)=bs (a)+1:bn(c)=bn(c)+1 
1970 IF a%<b% THEN mpu(a)=mpu(a)+2:ppu(c)= 
ppu(c)+2:bn(a)=bn(a)+1:bs(c)=bs (c)+1 
1980 IF a%=b% THEN ppu(a)=ppu(a)+l:ppu(c)= 
ppu (c)+1:mpu(a)=mpu (a)+1:mpu (c)=mpu (c)+1:b 
u(a)=bu(a)+1:bu(c)=bu(c)+1 
1990 NEXT 
2000 FOR a=1 TO 18:epu(a)=1:NEXT 
2010 CLS 
2020 PRINT #2,CHR$ (24) ;"*trrxkxuex 

Die Ergebnisse 
KAKKKRAKKKUCHRS (24) 


Spieltag Eingebe 
"SCHRS (23), " E 
"CHR$ (24) 


2030 GOSUB 3330 

2040 PRINT "Eingabe richtig ? " 

2050 GOSUB 3200 

2060 IF jn=1 THEN PRINT #2:G0SUB 2920 

2070 ' 

2080 ' 

2090 ' ordnen 

2100 ' 

2110 ' 

2120 ' Bubblesort 

2130: 

2140 CLS #1:CLS 

2150 PRINT " Aktuelle Tabelle wird berechn 
et" 

2160 PRINT " Bitte warten Sie einen Moment 
2170 ' 

2180 'teil 1 :Nach Punkten 

2190 ' 

2200 FOR b=17 TO 1 STEP -1 

2210 FOR a=1 TO b 

2220 IF ppu(platz(a))<ppu(platz(a+1)) THEN 


tr=platz(a):platz(a)=platz(a+1l):platz(a+l 
)=tr 
2230 NEXT a,b 
2240 ' 
2250 ' teil 2 : 
Tordifferenz 
2260 ' 
2270 ' und bei gleicher Differenz nach ges 
chossenen Toren 
2280 ' 
2290 FOR b=17 TO 1 STEP -1 
2300 FOR a=1 TO b 
2310 tdiff=(gto(platz(a))-bto(platz(a)))-( 
gto(platz(a+1))-bto(platz(a+1))):IF ppu(pl 
atz(a))=ppu(platz(a+1)) AND tdiff<O THEN t 
r=platz(a):platz(a)=platz(a+l):platz(a+1l)= 
er 

2320 IF tdiff=0 AND ppu(platz(a))=ppu(plat 
z(a+l)) AND gto(platz(a+tl))>gto(platz(a)) 
THEN tr=platz(a):platz(a)=platz(a+1):platz 


Bei Punktgleichstand nach 
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[117] 
[5982] 


[91] 

[1349] 
[1192] 
[1551] 
[4728] 


[979] 
[710] 
[2041] 
[978] 
[221] 
[700] 
[1169) 
[4584] 


[2658] 
[6250] 


[350] 
[1469] 
[91] 
[5123] 


[975] 
[2220] 
[953] 
[1889] 
[117] 
[117] 
[445] 
[117] 
[117] 
[857] 
[117] 
[554] 
[4026] 


[2875] 


[117] 
[1591] 
[117] 
[1651] 
[626] 
[5295] 


[355] 
[117] 
[2309] 


[117] 
[2665] 


[117] 
[1651] 
[626] 
[10117] 


[6780] 
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2960 GOSUB 3300 [965] 
2970 GOSUB 3330 [975] 
2980 INPUT "Nummer der Begegnung deren Erg [8396] 
ebnis geindert werden soll [ ENTER ] wenn 


(atl)=tr 
2330 NEXT a,b [355] 
2340 IF ez%=0 THEN FOR a=1 TO 18:epu(a)=0: [2603] 
NEXT 


2350 RETURN [555] fertig ";n 
2360 ' [117] 2990 IF n<O OR n»9 THEN PRINT "Eingabefehl [3366] 
2370 ' 117] er":GOTO 2980 
2380 ' Daten abspeichern [1712] 3000 IF n=0 THEN RETURN [681] 
2390 ' 117] 3010 a=kon(n*2-1):b=kon (n*2) [1099] | 
2400 ' [117] 3020 PRINT name$(a);" : ";name$(b);" ";t [1684] 
2410 MODE 2: GOSUB 3450 [1498] b(b);" : ";tg(b) 
2420 PRINT #2,CHR$(24)" Daten abspeichern [2753] 3030 IF epu(a)=0 THEN epu(a)=1:epu(b)=1:60 [2043] 
"CHR$ (24) To 3090 | 
2430 spt=(ppu(1)+mpu(1))/2 [1253] 3040 IF tg(a)>tb(a) THEN bs(a)=bs(a)-1:bn( [3436] 
2440 a$=STR$ (spt)+".Spt" [827] b)=bn (b)-1:ppu(a)=ppu(a)-2:mpu(b)=mpu(b)-2 | 
2450 OPENOUT a$ [765] 3050 IF tg(a)<tb(a) THEN bn(a)=bn(a)-1:bs( [6316] 
2460 FOR a=1 TO 18 [950] b)=bs (b)-1:ppu(b)=ppu(b)-2:mpu (a)=mpu(a)-2 | 
2470 PRINT #9,Nane$ (a) [1400] 3060 IF tg(a)=tb(a) THEN bu(a)=bu(a)-1:bu( [5434] 
2480 NEXT [350] b)=bu(b)-1:ppu(a)=ppu(a)-1:mpu(a)=mpu(a)-1 | 
2490 PRINT #9,ez% [1127] :ppu(b)=ppu(b)-1:mpu(b)=mpu (b)-1 | 
2500 FOR a=1 TO 18 [950] 3070 gto(a)=gto(a)-tg(a):bto(a)=bto(a)-tb( [5272] 
2510 PRINT #9,ppu(a),mpu(a),gto(a),bto(a), [6515] a):gto(b)=gto(b)-tg(b) :bto(b)=bto(b)-tb(b) 
bs(a),bu(a),bn(a),platz(a),tg(a),tb(a),kon 
(a) ,epu(a) 3080 PRINT "Zum Lischen des alten Ergebnis [4268] 
2520 NEXT [350] ses nur [ Enter ] är}cken !" 
2530 CLOSEOUT [902] 3090 PRINT "Richtiges Ergebnis (a:b)" [2930] 
2540 RETURN [555] 3100 GOSUB 3550 [979] 
2550 ' [117] 3110 a%=e%:b%=z% [710] 
2560 ' [117] 3120 IF le=0 THEN epu(a)=0:epu(b)=0:G0T0 2 [1290] 
2570 ' Daten laden [1528] 920 
2580 ' [117] 3130 tg(a)=a%:tb(a)=b%:tg(b)=b%:tb(b)=a% [1922] 
2590 ' [117] 3140 gto(a)=gto(a)+ta%:bto(a)=bto(a)+b%:gto [4864] 
2600 MODE 2:G0SUB 3450 [1498] (b)=gto(b)+b%:bto(b)=bto(b) +a% 
2610 PRINT #2,CHR$(24)" Daten laden "CHR [1802] 3150 IF a%X>b% THEN bs (a)=bs(a)+1:bn(b)=bn( [3648] 
$(24) b)+1:ppu(a)=ppu(a)+2:mpu(b)=mpu(b) +2 
2620 INPUT "Der wievielte Spieltag";spt [2804] 3160 IF a%<b% THEN bn(a)=bn(a)+1:bs(b)=bs( [3952] 
2630 spt=INT(spt) [1361] b)+1:mpu (a)=mpu (a)+2:ppu(b)=ppu(b)+2 
2640 a$=STR$ (spt)+".spt" [828] 3170 IF a%=b% THEN bu(a)=bu(a)+1:bu(b)=bu( [5913] 
2650 PRINT "searching for ";a$ [2233] b)+1:ppu(a)=ppu(a)+1:mpu(a)=mpu(a)+1:ppu(b 
2660 OPENIN a$ [715] )=ppu (b)+l:mpu (b)=mpu (b) +1 
2670 FOR a=1 TO 18 [950] 3180 CLS [91] 
2680 LINE INPUT #9,name$ (a) [1480] 3190 GOTO 2920 [339] 
2690 NEXT [350] 3200 ' [117] 
2700 INPUT #9,ez% [805] 3210 ' [117] 
2710 FOR a=1 TO 18 [950] 3220 "ja-nein Abfrage [1368] 
2720 INPUT #9,ppu(a),mpu(a),gto(a),bto(a), [6988] 3230 ' [117] 
bs(a),bu(a),bn(a),platz(a),tg(a),tb(a),kon 3240 ' [117] 
(a) ,‚epu(a) 3250 ' jn=0 £}r "Ja" ; jn=1 £f}r "Nein [2306] 
2730 NEXT [350] " 
2740 CLOSEIN [752] 3260 ' [117] 
2750 RETURN [555] 3270 IF INKEY(45)=0 THEN jn=10:60T0 3300 [1552] 
2760 ' [117] 3280 IF INKEY(46)=0 THEN jn=1:G0TO 3300 [1252] 
2770 ' [117] 3290 GOTO 3200 [441] 
2780 ' Unterprogramm : Ausgabe der Mannsc [4609] 3300 a$=INKEY$ [278] 
haftsnamen auf den Bildschirn 3310 a$="" [388] 
2790 ' t117] 3320 RETURN [555] 
2800 ' [117] 3330 ' [117] 
2810 GOSUB 3450:' Windows [1457] 3340 ' [117] 
2820 CLS #1 [373] 3350 ' Ausdrucken der Ergebnisse [798] 
2830 FOR a=1 TO 18 STEP 2 [1336] 3360 ' [117] 
2840 x=x+1 [853] 3370 ' [117] 
2850 LOCATE #1,1,x [816] 3380 CLS #1 [373] 
2860 PRINT #1,a;" ";name$(a) [1298] 3390 FOR a=1 TO 18 STEP 2 [1336] 
2870 LOCATE #1,40,x [696] 3400 IF epu(kon(a))=0 THEN a$=" --":b$=" - [1958] 
2880 PRINT #1,a+1;" ";name$(a+1) [1312] Br 
2890 NEXT [350] 3410 IF epu(kon(a))=1 THEN a$=STR$(tg(kon( [3336] 
2900 x=0 [351] a))):b$=STR$(tb(kon(a))) 
2910 RETURN [555] 3420 PRINT #1,USING "#\\\ [6089] 
2920 ' [117] NN NN 
2930 ' Behandlung von Eingabefehlern bzw. [3703] \\V\V NN \" 5 (a+1)/2,".)",name$(kon(a)) 
Einzeleingabe ." :",name$(kon(a+t1)),"",a$," : ",b$ 
2940 ' 117] 3430 NEXT [350] 
2950 CLS [91] 3440 RETURN [555] 
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3450 ' 

3460 ' 

3470 ' Windows definieren 
3480 ' 

3490 ' 

3500 MODE 2 

3510 WINDOW #0,1,80,12,25 
3520 WINDOW #1,1,80,2,11 
3530 WINDOW #2,1,80,1,1 


3540 RETURN 
3550 ' 

3560 ' 

3570 ' string "zerpflicken" 

3580 ' 

3590 ' e$ in der Form e%:z% wird in e% und 
z% zerlegt 

3600 ' 

3610 LINE INPUT e$ 

3620 d$="":p$="" : a$=" ” 

3630 le=LEN(e$) 

3640 FOR p=1 TO le 

3650 a$=MID$(e$,p,1) 

3660 w%=ASC (a$) 

3670 IF se=0 THEN IF w%<48 OR w%>59 THEN P 
RINT "Zahleneingabe nicht in der Form erla 

ubt 1!1!":G0TO 3610 

3680 IF a$=":" THEN b$=d$:d$="":G0TO 3710 
3690 IF a$="" THEN GOTO 3720 

3700 d$=d$+a$ 

3710 NEXT p 

3720 e%=VAL(b$) 

3730 z%=VAL(d$) 


3740 se=0 

3750 RETURN 

3760 ' 

2210: 

3780 ' Tabelle korrigieren 
3790 ' 

3800 ' 

3810 MODE 2 


3820 GOSUB 3300 

3830 GOSUB 3450 

3840 GOSUB 2760 

3850 PRINT #2,"Korrektur der Tabelle 

3860 PRINT "Geben sie die Nummer der Manns 
chaft ein deren Tabellenwerte ge{ndert wer 
den sollen (0 bzw. ENTER £f}r Rickkehr 
ins Menue)":INPUT mnr% 

3870 IF mnr%<0O OR mnr%>18 THEN PRINT "Numm 
er unzulissig . Bitte Eingabe wiederholen 
.":GOTO 3860 

3880 IF mnr%=0 THEN RETURN 

3890 CLS 

3900 CLS #1 

3910 PRINT #2,"Korrektur der Werte von ";n 
ane$(mnr%) 

3920 PRINT:PRINT "Tore {ndern 
= br 

3930 PRINT:PRINT "Punkte Indern ---------- 
is p" 

3940 PRINT:PRINT "Bilanz {ndern ---------- 
rn B" 

3950 PRINT:PRINT "Ende der Korrektur ----- 
- [Enter]" 

3960 IF INKEY(51)=0 THEN GOTO 4020 

3970 IF INKEY(27)=0 THEN GOTO 4120 

3980 IF INKEY(54)=0 THEN GOTO 4230 

3990 IF INKEY(18)=0 THEN GOTO 3760 

4000 GOSUB 3300 

4010 GOTO 3960 

4020 ' 

4030 ' Tore {ndern 

4040 ' 
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[117] 
[117] 
[933] 
[117] 
[117] 
[513] 
[1162] 
[974] 
[1086] 
[555] 
[117] 
[117] 
[1578] 
[117] 
[2653] 


[117] 
[1250] 
[1038] 
[631] 
[1015] 
[929] 
[341] 
[4661] 


[1278] 
[844] 
[449] 
[364] 
[257] 
[350] 
[280] 
[555] 
[117] 
[117] 
[1562] 
[117] 
[117] 
[513] 
[965] 
[1039] 
[899] 
[1698] 
[12970] 


[4731] 


[728] 
[91] 
[373] 
[2307] 


[3267] 
[2288] 
[2592] 
[2905] 


[927] 
[1280] 
[1628] 
[653] 
[965] 
[481] 
[117] 
[919] 
[117] 


4050 CLS 
4060 PRINT "Geben Sie die Tore in der Forn 
geschossene Tore bekommene Tore 

ein !!" 

4070 PRINT "Tore momentan : 

%);" : ";bto(mnr%) 

4080 GOSUB 3550 

4090 gto(mnr%)=e% 

4100 bto(mnr%)=z% 

4110 GOTO 3890 

4120 ' 

4130 ' 

4140 ' 

4150 CLS 

4160 PRINT "Geben sie die Punkte in der Fo 

rm Pluspunkte Minuspunkte ein ! 

ı" 

4170 PRINT "Momentaner Punktestand : 

ppu(mnr%);" : ";mpu(mnr%) 

4180 GOSUB 3550 

4190 ppu (mnr%)=e% 

4200 mpu (mnr%)=z% 

4210 GOSUB 4320 

4220 CALL &BB18:60T0 3890 

4230 ' 

4240 ' Bilanz {ndern 

4250 ' 

4260 CLS 

4270 PRINT "Geben Sie die Bilanz in der Fo 

rm Siege,Unentschieden ‚Niederlagen ein." 

4280 INPUT bs (mnr%) ,,bu(mnr%),bn(mnr%) 

4290 GOSUB 4320 

4300 CALL &BB18 

4310 GOTO 3890 

4320 ' 

4330 ' Testen ob Punktekonto mit Bilanz }b 

ereinstimmt oder nicht 

4340 ' 

4350 psum=bs (mnr%) *2+bu (mnr%) 

4360 nsum=bn (mnr%) *2+bu (mnr%) 

4370 IF ppu(mnr%)=psum AND mpu (mnr%)=nsum 

THEN PRINT "Punkte und Bilanz stimmen }ber 

ein " 

4380 IF ppu(mnr%)<>psum THEN PRINT "WARNUN 

6 : Pluspunkte und Bilanz stimmen nicht }b 

erein" 

4390 IF mpu(mnr%)<>nsum THEN PRINT "WARNUN 

6 : Minuspunkte und Bilanz stimmen nicht } 

berein" 

4400 RETURN 


";gto(mnr 


punkte {ndern 


Anwendungen 


[91] 
[5770] 


[3127] 


[979] 
[571] 
[1043] 
[471] 
[117] 
[395] 
[117] 
[91] 
[4858] 


; [5305] 


[979] 
[677] 
[1054] 
[1065] 
[1137] 
[117] 
[1281] 
[117] 
[91] 
[7705] 


[1804] 
[1065] 
[389] 
[471] 
[117] 
[3589] 


[117] 
[1695] 
[934] 
[4992] 


[6112] 


[6579] 


[555] 
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S[PlElL © DROME 


Es gibt Spiele und Spiele und auch sol- 
che Spiele, die sich standhaft weigern 
den Spieler weiter zu lassen als in das 
zweite Bild oder Level. 


Allen denjenigen die eben mit dem ei- 
nen oder anderen Spiel Ihre Probleme 
haben, ist dieser Teil unseres Sonder- 
heftes gewidmet. 


Auf den folgenden Seiten werden Sie Tips 
und Tricks zu allerlei Spielen finden. 


Ob Sie nun in einem Textadventure, ei- 
nem Action Spiel oder was auch immer, 
festsitzen, blättern Sie diese Seiten durch, 
vielleicht finden Sie hier eben jenen Tip 
der Ihnen weiterhilft. 


Ohne viel Federlesen wollen wir dann 
auch gleich anfangen und zwar mit.. 
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Die Erbschaft. 


Der erste Teil 

Zuallererst sollten Sie sich Ihr Apartment 
einmal genauer ansehen. Dort finden Sie 
eine ganze Menge Gegenstände, die Sie 
sich irgendwo ausgeliehen haben. 

Auf dem Weg aus dem Haus heraus wer- 
den Sie von eben jenen Leuten angehal- 
ten, die nun von Ihnen den entliehenen 
Gegenstand wiederhaben wollen. 

In der folgenden Tabelle sehen Sie genau 
welches Ding zu welcher Person gehört. 


Füller großer Mann 

Juwel schüchterner Mann 
Pistole Mann im Trenchcoat 
Trompete Neger 

Geld Kaufmann 

Kaktus Mann mit Schweinskopf 


Das Geld für den Kaufmann finden Sie 
übrigens in einem Versteck im Schrank. 
Haben Sie diese Dinge eingesammelt, 
gehen Sie in das Treppenhaus, dort wer- 
den Sie einen nach dem anderen treffen, 
und können ihnen die geliehenen Dinge 
wiedergeben. 


Haben Sie alle zufriedengestellt, gehen 
Sie zurück in Ihr Apartment. Dort ange- 
kommen rüsten Sie sich mit Ihrem Pass, 
dem Kamm und der Banane aus und se- 
hen zu, daß Sie so schnell wie möglich 
wieder auf die Straße kommen. Am be- 
sten benutzen Sie die Treppe. 


Im Erdgeschoß angekommen, benutzen 
Sie die Tür und notieren sich außerdem 
die Telefonnummer des Taxiunterneh- 
mens. Ab zum Telefon, dort wählen Sie 
die Nummer fürs Taxi. Jetzt nur noch 
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warten bis die Taxe kommt, einsteigen 
und zum Flughafen fahren. 


Der zweite Teil. 

Wenn Sie den Flughafen betreten, stiehlt 
ein Penner ihren Pass. Den müssen Sie 
natürlich zurückbekommen bevor Sie ins 
Flugzeug können. 

Der Penner hält sich zumeist in der Nähe 
der Flughafentoiletten auf. Wenn Sie ihn 
gefunden haben, geben Sie ihm Geld und 
er wird Ihnen Ihren Pass zurückgeben. 
Geben Sie ihm nochmals Geld, wird er 
Ihnen eine nette Geschichte über seinen 
Bruder in Las Vegas erzählen. Jetzt soll- 
ten Sie noch ein Sandwich essen und die 
Zeitschrift Mon Tricot kaufen. 

Nun begeben Sie sich zu den Schaltern, 
zeigen dort Ihren Pass vor und warten bis 
ll Uhr 19. Dann gehen Sie durch die 
fünfte Tür. Während des Fluges werden 
Sie die Bekanntschaft eines Luftpiraten 
machen. Um ihn zu besänftigen, geben 
Sie ihm die Zeitschrift. In Las Vegas an- 
gekommen, werden Sie einem Rocker 
begegnen. Geben Sie ihm die Banane. 
Als nächstes werden Sie einem Skinhead 
über den Weg laufen. Dieser läßt sich mit 
dem Kamm zufriedenstellen. Sie sollten 
diesen Beiden keinesfalls zweimal über 
den Weg laufen, dann nämlich haben Sie 
verloren. 

Um dahin zu kommen wo Sie hin wollen, 
müssen Sie den Bus Nr.6 nehmen. Doch 
Vorsicht die 6 am Bus ist umgekippt und 
sieht fast wie eine 9 aus, aber eben nur 
fast. 


Der dritte Teil 

Im Büro des Notars können Sie eine gan- 
ze Menge Zeug stehlen und es an den 
Gangster, der Russisches Roulette spielt, 
verkaufen. Sie werden Zeuge eines Strip- 
tease, die Dame die sich da entblättert ist 
die Stewardeß aus dem Flugzeug. Sie 
wird Ihnen Geld dafür geben, daß Sie 
niemandem erzählen was sie für einen 
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Als Kommisar hat 
man's nicht leicht. 
Noch dazu, wenn es 
gilt, einen mysteriö- 
sen Mordfall zu klä- 
ren. Die Dame Vera 
Cruz wurde das Op- 
fer einer abscheuli- 
chen Bluttat. Sie 
müssen nun in Kor- 
respondenz mit den 
Polizeicomputern im 
ganzen Land den 
Kreis der Verdächti- 
gen immer weiter 
eingrenzen. Sollte 
Ihnen das Probleme 
bereiten, versuchen 
Sie es doch mal mit 
unseren Tips. 


Nebenjob hat. Nun müssen Sie nur noch 
so lange spielen, bis Sie eine Million 
Dollar gewonnen haben. Voila. 


Wer ermordete Vera Cruz 


Ermittlungen in der Wohnung 
von Vera Cruz: 


Außer den Gegenständen, die gut sicht- 
bar im Raum herumliegen, befindet sich 
noch ein schwarzer Knopf im Zimmer. 
Er liegt im Schatten, links oberhalb der 
Handtasche. Anhand der nachstehenden 
Liste können Sie entnehmen ob Sie auch 
alle Indizien gefunden haben. 


Pistole 
. Patronenhülse 
Brief 
. Rothmans (Zigaretten) 
Knopf 
. Faden (unter einem Fingernagel der 
linken Hand) 
7. Handtasche 
8. Notizbuch (dessen Inhalt erfahren Sie 
durch nochmaliges Drücken von 
Copy) 
9. Aschenbecher 
10. Linker Arm (Spuren) 


auprun- 


Ermittlungen im Präsidium: 

Die folgende Liste zeigt an, bei welchem 
Amt oder Polizeirevier Sie sich nach wel- 
chen Dingen zu erkundigen haben bzw. 
welche Fremduntersuchungen Sie in die 
Wege leiten müssen. 


Autopsie Vera Cruz 
. Aussage Nadine Lafeuille Balaystr. 
. Anfrage CRRJ Lyon »Der Gelockte« 
. Aussage Abdulah Hocine Gasthof 
Pappel 
. Anfrage CRR]J Lyon »Der Zigeuner« 
. Anfrage GIE Galmier Philibert 
Ziegler 


Puve- 


aa 


7. Anfrage PRIS St.-Paul Philibert 
Ziegler 
8. CRRJ Lyon Eva Delarue 
9. Aussage Eva Delarue Gasthof 
Fernfahrer 
10. CRRJ Lyon Gilles Blanc 
ll. Anfrage CIAT Lyon Gilles Blanc 
12. Aussage Hubert Delroche Etiene 
13. Anfrage CIAT Etienne Hubert Del- 
roche 
14. Aussage Philibert Ziegler Carnot 
Platz 
15. Vergleiche Philibert Ziegler 
16. Aussage Hausmeisterin Forest 
17. Aussage Gilles Blanc 
18. Vergleiche Gilles Blanc 
19. Untersuchung Graphologie Brief Gil- 
les Blanc 
20. Anfrage CRRJ Lyon Stanislas Ko- 
walski 
21. Anfrage GIE Mont Prison Stanislas 
Kowalski 
22. Aussage Stanislas Kowalski E. Zo- 
lastr. 
23. Anfrage CRRJ Lyon Pistole MAC 50 
Kal. 9mm, Nr. g56743 
24. Anfrage GIE Clermont Pistole 
25. Anfrage PREF. Lyon X 9111 Cd 69 
(Ausprobieren) 
26. Anfrage CRRJ Lyon Philippe Blanc 
27. Anfrage BDRJ Etienne Philippe 
Blanc 
28. Anfrage CIAT Paris Pilippe Blanc 
29. Aussage Philippe Blanc Bellecour 
30. Vergleiche Philippe Blanc 
31. Aussage Philibert Ziegler Carnot- 
platz 
32. Aussage Stanislas Kowalski, E. Zo- 
lastr 
33. Aussage Gilles Blanc Bahnhofstr. 
34. Aussage Philippe Blanc Bellecour 
35. Verhaftung Philippe Blanc 


Nach dieser Prozedur ist Ihnen der Mör- 
der ins Netz gegangen. 


Der kleine Kartograph 


Sicherlich ist Ihnen beim ersten Durch- 
blättern des Heftes schon aufgefallen, daß 
wir auch diesmal eine ganze Menge Kar- 
ten und Lagepläne zu Spielen haben. 
Dazu möchte ich, in eigener Sache sozu- 
sagen, folgende Anmerkungen machen. 


Ein Teil der Karten bezieht sich auf Tex- 
te die Sie in diesem Sonderheft finden. 


Die anderen Karten stehen für sich selbst. 


Leider war es aus layouttechnischen 
Gründen nicht immer möglich, Text und 
Karte zusammenzubringen. Um aller- 
dings Verwirrungen vorzubeugen, ist 
jede Karte beschriftet. 
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ACADEMY 


Für alle tapferen GAL.Corp. Skimmer 
Piloten hier einige Hilfen für das erste 
Missionspaket von Academy. Zuerst ein- 
mal etwas Grundlegendes: Die hier be- 
schriebenen Skimmer waren mir treue 
Kampfgefährten, aber es gibt bestimmt 
Leute, die andere Typen bevorzugen. 
Die Bauanleitungen sind also nichts 
Zwingendes. Außerdem sollte man jeden 
Skimmer erst bauen, wenn man die vor- 
herige Mission geschafft hat, da man vier 
Skimmer braucht, jedoch nur drei selbst- 
gebaute gleichzeitig im Speicher halten 
kann. Doch nun frisch ans Werk. Zuerst- 
einmal den Kadettennamen eingeben und 
bei Bedarf die Tasten neu definieren. 
Nun den ersten Skimmer zusammenbau- 
en, der für die Mission »Wenn es sich be- 
wegt...« gebraucht wird. 


Teile: 

Scanner 
Kompaß-ADF 
IR-Einheit 

Vier Raketen 
Laserintensität MED 
Hauptmotoren MED 
Schilde HIGH 
Steuereinheit MED 


a) Name: Apokalypse 

Ist dies geschehen, stürzen wir uns ins 
Kampfgeschehen. Die Schwierigkeit bei 
dieser Mission liegt eigentlich darin, daß 
man sich oft gegen zwölf oder mehr Hun- 
ters und Konsorten zur Wehr setzen muß. 
Es kommt also hauptsächlich auf die Lei- 
stung des Skimmers und auf das Ge- 
schick des Piloten an. 

Nach ein paar Versuchen wird Ihnen die- 
se Mission gelungen sein. Für Mission 
Nummer zwei brauchen wir wieder ei- 
nen anderen Skimmer. 


Teile: 

Scanner 
Kompaß-ADF 
Sprung/Tür Einheit 
Vier AMM's 

Vier Zeitbomben 
Laserintensität MED 
Hauptmotoren MED 
Schilde HIGH 
Steuereinheit MED 


b) Name: Tango 

Diese Mission ist schon etwas schwieri- 
ger, denn auch im Kampf mit einer Ar- 
mee von Huntern darf man nur einen 
Schuß auf eine Sprungfläche abgeben, da 
man sonst ein ganzes Stückchen fliegen 
darf und einem dabei meistens der Sprit 
ausgeht. Noch ein paar Tips: Bei einem 
Angriff auf die Roboterfabriken muß 
man ständig bereit sein, eine AMM oder 
eine Zeitbombe abzufeuern. 
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Daß die Schnorrer- 
und Pumperei ein 
Geschäft ist, das ge- 
lernt sein will, muß 
man als Spieler bei 
»Die Erbschaft« 
recht bald feststellen. 
Eine ganze Schar von 
Gläubigern versucht 
Sie daran zu hindern, 
in Las Vegas eine 
Millionenerbschaft 
anzutreten. 


Man fliegt genau zwischen den beiden 
Fabriken hindurch und legt neben den 
beiden Gebäuden eine der Zeitbomben 
ab. Jetzt nur noch mit vollem Tempo in 
Sicherheit bringen. Weiterhin feuern die 
Fabriken oft und gerne Raketen auf den 
Skimmer ab. 

Da er nicht mehr als fünf Stück aushält, 
feuert man sofort, nachdem die Meldung 
»Roberrakete« (Na, einen Schreibfehler 
konnten sich die CRL Jungs wohl nicht 
verkneifen) erschienen ist, eine AMM 
ab. Ist dies alles geschehen, kommen wir 
sogleich zur dritten Mission. 

Für Mission Drei brauchen wir einen 
Spezialskimmer. Er besteht aus folgen- 
den Einzelteilen. 


Teile: 

Scanner 
Kompaß-ADF 
IR-Einheit 

Vier Zeitbomben 
Laserintensität HIGH 
Hauptmotoren HIGH 
Schilde HIGH 
Steuereinheit MED 


c) Name: Windwraith 

Bei dieser Mission ist es nicht empfeh- 
lenswert, die Leuchttürme abzuschießen, 
da sie einem den Weg zum Reaktor wei- 
sen. Ab und an treffen wir einige gemeine 
Zeitgenossen: Die Fortresses. 

Diese schießen schon außerhalb der ei- 
genen Laserreichweite. Ist man nahe ge- 
nug am Reaktor, den Skimmer so aus- 
richten, daß das ADF genau in der Mit- 
te steht, Zeitbombe zünden, und mit 
Höchstgeschwindigkeit weg. Kommt der 
GLUV in Sicht, andocken. Und schon sind 
wir bei der letzten Mission des ersten Pa- 
ketes angekommen. Der Skimmer für 
diese Mission muß folgendermaßen aus- 
sehen. 


Teile 
Scanner 
Kompaß 
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Acht Raketen 
Laserintensität HIGH 
Hauptmotoren HIGH 
Schilde HIGH 
Steuereinheit HIGH 


d) Name: Foxtrott 


Hier muß man ein Minenfeld durchflie- 
gen, um letztendlich am GLV anzu- 
docken. Das Minenfeld ist ganz klar 
durch die regelmäßig stehenden Minen 
zu erkennen. Entdecken Sie einmal eine 
Unregelmäßigkeit: Warten bis sie nahe 
genug beim Skimmer ist und eine Rake- 
te abfeuern. Bis jetzt ist mir kein Feind 
untergekommen, der eine AMM abge- 
schossen hat, also stehen die Erfolgs- 
chancen dementsprechend hoch. 


Sind Ihnen einmal die AMM'’s ausgegan- 
gen, müssen Sie zum Laser greifen, was 
Ihnen bei seiner Intensität auch nicht 
schwer fallen wird. So, und mit ein we- 
nig Glück haben Sie auch das hinter sich 
gebracht und Sie können Paket zwei la- 
den. Hierzu will ich Ihnen aber keine 
Tips geben um Ihnen den Spaß nicht voll- 
ständig zu verderben. 


Ich drücke Ihnen aber die Daumen, daß 
Sie es zu Elite-Skimmer-Piloten 
schaffen. 


MERCENARY 


Nun folgen einige Tips für all diejenigen, 
die auf Targ notgelandet sind und dort in 
irgendeiner Weise Probleme haben. Ganz 
zu Anfang sollten Sie sich die Arbeit ma- 
chen, die Instruktionen genau zu lesen. 
Dort sind einige wichtige Tips versteckt. 


Im eigentlichen Spiel sollten Sie immer 
ein Auge auf die Meldungen Bensons ha- 
ben. Wenn Sie dann den Dominion Dart 
bestiegen haben, sollten Sie beim Über- 
fliegen von Targ eine Flughöhe von 100 
bis 250 Metern einhalten. In dieser Höhe 
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sind Bodenstrukturen und Bauwerke am 
besten erkennbar. Lernen Sie Ihren Dart 
nach dem Kompaß zu manövrieren. Die 
meisten interessanten Plätze die es auf 
Targ gibt, befinden sich in der Stadt, je- 
doch außerhalb in den Odländern gibt es 
einige Orte, die aufzusuchen sich lohnen 
würde. Vielleicht sollten Sie einmal in 
der Nähe von LOC 81-35 suchen. 

Bei Luftkämpfen in oder über der Stadt 
sollten Sie vorsichtig mit dem Laser um- 
gehen und darauf achten, keines der Ge- 
bäude zu treffen. Wenn die nämlich ge- 
nug Schüsse abbekommen haben, stür- 
zen sie ein. Dies ist zwar ein kapitaler Ef- 
fekt der auch lustig anzusehen ist, jedoch 
werden Sie sogleich als Agressor dekla- 
riert und haben in Zukunft noch viel 
mehr Arger mit den Patroulliengleitern. 
Es ist recht hilfreich sich während des 
Spiels eigene Landmarken zu schaffen. 
Es erleichtert die Orientierung mitunter 
ungemein. 

Wenn Sie bereits einige Gebäude unter- 
sucht haben, werden Sie sicherlich den 
einen oder anderen Gegenstand mit sich 
führen der auf den ersten Blick keine 
Aufgabe erfüllt. Landen Sie und legen 
einfach einen solchen entbehrlichen Ge- 
genstand ab. Wenn Sie sich an die ange- 
gebene Flughöhe halten, werden Sie die 
Gegenstände auch aus der Luft erkennen 
und sich an ihnen orientieren können. 
In der Nähe von LOC 09-06 befindet 
sich ein Aufzug mit dem Sie in die unter- 
irdischen Zonen von Targ vordringen 
können. Landen Sie so zentral wie mög- 
lich im Aufzugskäfig. Durch Drücken 
von E gelangen Sie nun in den Hangar 
unter dem Aufzug. Verlassen Sie dort Ihr 
Schiff um nun die unterirdische Anlage 
zu erkunden. Beim Herumwandern wer- 
den Sie eine ganze Reihe von Gegenstän- 
den finden. Die meisten davon identifi- 
ziert Benson sobald sie aufgenommen 
wurden. Aber Sie sollten sich überlegen 
welche der Gegenstände Sie wirklich 
brauchen. Beim Untersuchen des Kom- 
plexes werden Sie auch einen Palyar Pla- 
nungsraum finden, in dem Sie einige in- 
teressante Informationen erhalten. Mer- 
cenary hält, außer den beschriebenen, 
noch viele weitere Überraschungen für 
den Spieler bereit. 

Mit den Tips auf diesen Seiten sollten Sie 
es eigentlich geschafft haben, mit den 
Steuerungen und dem Spielprinzip von 
Mercenary klarzukommen. Alles Weite- 
re wollen wir aber Ihnen überlassen. 


SPELLBREAKER 


Teil 1 — Der Traum 
Zu Beginn des Spieles steht man im Twi- 
stet Forest und wird sogleich von einem 
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Höllenhund angegriffen. NO bietet einen 
Fluchtweg an der sofort eingeschlagen 
werden sollte. Flüchtet man nicht auf der 
Stelle, so ist das auch nicht weiter tra- 
gisch. Man wird zwar sogleich von dem 
Höllenhund zerfleischt, aber das bedeu- 
tet nur das Ende eines Alptraums, in dem 
man sich zu Beginn des Spiels befindet. 
Allerdings kann dieser Traum genutzt 
werden um die Gegend, in der sich der 
wesentliche Teil des Spieles abspielt, ge- 
fahrlos zu erkunden. Wenn Sie dazu kei- 
ne Lust haben, dann können Sie sich an 
dieser Stelle getrost auffressen lassen. 


Teil 2 

Wie man den ersten Tag überlebt 
Zuerst einmal ist es ratsam, aus dem Bett 
aufzustehen. Von dort aus gehen Sie nach 
Osten in den Hallway, nach Süden bis zur 
Lobby und nach Westen in den Store- 
room. Hier nehmen Sie alles mit und ge- 
hen nach Osten. 

Im folgenden Raum werfen Sie das 
Matchbook in den Behälter der sich da 
Receptacle zu nennen pflegt. Nach eini- 
gen Eingaben klingelt es an der Haustür. 
Wenn dies passiert, öffnen Sie den Behäl- 
ter und entnehmen ihm das Orange Vial. 
Der Rest ist für den weiteren Spielverlauf 
nicht wichtig. In der Library und im Hel- 
lister Quarter liegen der MEEF bezie- 
hungsweise der GASPAR Spell herum. 
Diese werden ge-GNUSO:t. Nun schaut 
man im Belboz Qarter hinter das »Beau- 
tifull woven wall hanging« und nimmt den 
Schlüssel der sich dort befindet. 
Öffnen Sie die Schublade des Schreibti- 
sches. Mit der »Tiny Box« verfahren sie 
gleichermaßen. Darin befindet sich ein 
Amulett, das Sie sich um den Hals hän- 
gen sollten. Die Intensität der Leucht- 
kraft des Amuletts verhält sich proportio- 
nal zur Entfernung zu Belboz. 

Dem gefundenen Journal können Sie mit 
dem Schlüssel zuleiberücken. Beim Le- 
sen des Journals werden Sie einen Code 
entdecken. Dieses Codewort ist der 
Name eines jener Ungetüme, die Ihnen 
im GUE begegnen können. Man schaut 
nun im »Infotator« (dieser liegt der 
Packung bei) unter dem entsprechenden 
Ungeheuer nach und merkt sich die Farb- 
kombination am Ende der Beschreibung. 
Nun begibt man sich in den Cellar und 
»presst« die Knöpfe am »trunk« in Rei- 
henfolge der Farbkombination. 

Gehen Sie gerade dabei sehr gewissen- 
haft vor, da bereits eine falsche Kombi- 
nation den »trunk« für immer verschließt. 
Haben Sie die Kombination richtig ein- 
gegeben, springt der »trunk« auf und zum 
Vorschein kommt ein »Scroll«. Der Zau- 
berspruch darauf ist lang und kompli- 
ziert. 

Inzwischen müßte Ihre Spielfigur so 


hungrig sein, daß ein weiteres Vorgehen 
an Nahrungsmangel scheitern könnte. 
Abhilfe schafft die »Orange Vial«, öff- 
nen, trinken und dann die leere Flasche 
ablegen. Diese Mahlzeit hält bis zur Be- 
freiung von Belboz vor. 

Bevor man sich nun zu einem verdienten 
Nickerchen hinlegt, nimmt man noch die 
mächtige Scroll und AIMFIZt sich zu 
Belboz. Man landet zwar nicht bei letzt- 
genannten, aber man hat das Haus und 
damit den Teil zwei des Spiels verlassen. 


Teil 3 

Wie man Jeearr (JR???!!) austreibt. 
Wir befinden uns nun im Twistet Forrest, 
der bereits durch den Alptraum bekannt 
sein sollte. Auch Kollege Höllenhund 
kann nun in Natura bewundert werden. 
Fliehen Sie zum Forrest Edge. 

Es folgen drei Lokationen die mit Vor- 
sicht zu genießen sind. Meadow, River 
Bank und Drawbridge. In der Ersten soll- 
te man maximal eine Eingabe tätigen und 
mit der Zweiten das Weite suchen. 

In den beiden anderen muß nicht unbe- 
dingt etwas passieren, allerdings sollten 
Sie mit dem Einstürzen der Brücke oder 
einem Alligatorenangriff rechnen. Sie 
können die Räume auch gefahrlos mit 
dem IZYUK Spell durchqueren. 

Nun das weitere Vorgehen: Am Forrest 
Edge lernt man IZYUK und PULVER. 
Man begibt sich zu MEADOW, IZY- 
UKT sich selbst und fliegt zur River 
Bank. Hier muß das Wasser schleunigst 
gePULVERt werden. Nach der Landung 
wird das Dark Cave aufgesucht. »Guano« 
und »Scoll« werden gebraucht, das »Am- 
ber Vial« ist reiner Luxus (wenn man sie 
tatsächlich mal gebrauchen kann, hat 
man meist bereits eine andere Vial zu sich 
genommen und zwei Vials vertragen sich 
nicht). 

Nun GNUSOt man FWEEP, IZYUKt 
sich selbst und fliegt in die Tortutre 
Chamber. Die hier herumliegende Indi- 
go Vial ist zwar nicht besonders wichtig, 
trinken sollte man sie aber trotzdem. 
Der Weg führt jetzt zum Parade Ground. 
Hier läßt man die Flag herunter und un- 
tersucht sie. Aqua Vial mitnehmen. Nun 
weiter zum Gun Emplacement. Der Vo- 
gelmist wird in die Kanone gesteckt. Da- 
durch werden die lästigen Yipples verjagt 
und man kann in aller Ruhe die »Scroll« 
mit dem extrem langen unkomplizierten 
YONK Spell aus der Kanone heraus- 
nehmen. 

Für das weitere Vorgehen werden zwei 
Zorkmids benötigt. Den Einen kann man 
von dem wunderschönen Baum im Tree 
Room pflücken. 

Natürlich muß die Schlucht auf dem Weg 
dorthin überflogen werden. Mit dem so 
organisierten »Zorkmid« verschaffen Sie 
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sich nun Zugang zum Vergnügungspark. 
Achterbahn, Geisterhaus und Wildwas- 
serbahn sind offensichtlich nicht weiter 
wichtig. Um in der Arcade den Hasen zu 
treffen, trinken Sie am besten vorher die 
»Fooble Potion« aus dem »Aqua Vial«. 
Der Gewinn, ein »Spell«, wird geGNU- 
STOt. Nun zum Zocken ins Casino. 
Wenn Sie im Casino angekommen sind, 
sollten Sie vor dem Weiterspielen unbe- 
dingt den Spielstand absaven. Nun kann 
das Spiel, das mitunter sehr lange dauert, 
beginnen. Haben Sie Pech, gewinnen Sie 
nichts, haben Sie Glück, bleiben Sie vom 
Hauptgewinn verschont (in diesem Fal- 
le wird man regelrecht vom Geld er- 
drückt) und wenn Sie besonders viel 
Glück haben, gewinnen Sie genau ein 
Zorkmid. 

Mit diesem können Sie nun die Gebühr 
am Troll Gate bezahlen. Dadurch haben 
Sie unbegrenzt Zugang zum östlichen 
Teil des Geschehens. 

Nun beginnt der Kampf mit dem Glasla- 
byrinth. Man begibt sich zum Outside 
Glass Arch und schläft sich aus. Nun ist 
es an der Zeit den FWEEP Spell zu ler- 
nen, am besten gleich viermal. Wichtig 
ist, an diesem Punkt alles abzulegen, 
empfehlenswert den Spielstand abzusa- 
ven. Nun betritt man das Labyrinth. 

In dieser Situation sollten Sie sich mit 
den Vorzügen des Fledermaus Daseins 
auseinandersetzen. Das Labyrinth ist 
übrigens ein Würfel, bestehend aus sie- 
benundzwanzig kleineren Würfeln. 
Durch das den Fledermäusen eigene 
Orientierungssystem, können die jewei- 
ligen Ausgänge gut geortet werden. 
Fliegtman»NESSWDEENNUU 
S E«, so gelangt man zum Hollow. Hier 
warten Sie so lange bis Sie ihre ursprüng- 
liche Gestalt wiederhaben. Der dort lie- 
gende Scroll muß mitgenommen werden, 
allerdings hat das zur Folge, daß sich das 
gesamte Labyrinth verändert. 

Wirft man nun den Scroll in das Loch 
(hole), hat man genau eine Eingabe Zeit 
sich wieder in eine Fledermaus zu ver- 
wandeln. Just zu diesem Zeitpunkt 
scheint ein, in dem Schatten des Cliffs 
schlummernder, »Dorn« seines knurren- 
den Magens gewahr zu werden. Da Sie 
das einzig Jagbare weit und breit sind, 
stellt der »Dorn« sogleich hinterher. Um 
dem Dorn zu entkommen, sollten Sie un- 
verzüglich wieder nach Westen in das La- 
byrinth fliegen. 

Solange es möglich ist immer weiter nach 
Westen und dann eine Richtung aus der 
nicht gerade der Dorn angestürmt 
kommt. So verfahren Sie solange bis Sie 
in einen Raum ohne Boden gelangen. 
Der Dorn wird blindlings hinter Ihnen 
herjagen und sich in diesem Raum zu 
Tode stürzen. 

Nun sollten Sie sich wieder zum westli- 
chen Ausgang begeben. Übrigens haben 
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Sie nach einem angewandten FWEEP 
Zauber 13 Eingaben Zeit, bis Sie sich 
wieder zurückverwandeln. Dem Laby- 
rinth entkommen, sollten Sie alle abge- 
legten Gegenstände wieder aufnehmen 
und sich auch wieder mit der, in das Loch 
geworfenen Scroll versehen. 

Nächste Station: Hall of Carvings. Der 
MALYON Spell wird geYONKt und der 
Drache geMALOYNt. Hierdurch wird 
der Steindrache für wenige Momente 
zum Leben erweckt, lange genug um aus 
seiner Nische hervorzutreten und den 
Durchgang freizugeben. 

Außer dem Calendar dem Spellbook und 
der Orange Vial können Sie an dieser 
Stelle alles ablegen. Offnen Sie nun das 
Vial und treten Sie durch die Nische. — 
Sie befinden sich nun im Coal Bin Room. 
Hier ist vor lauter Gas und Gestank erst 
einmal kein Durchkommen. 

Trinken Sie das Orange Vial. Nach Ge- 
nuß dieser Portion scheint für einen Mo- 
ment die Welt zu wackeln und aus einem 
Schacht an der Decke rutscht Ihr Zwil- 
lingsbruder. Untersuchen Sie ihn, werden 
Sie feststellen, daß er einen Scroll bei 
sich hat, aber diesen nicht an Sie weiter- 
geben will. Nachdem er Ihnen eine Zah- 
lenkombination genannt hat, verlangt er 
Ihr Spellbook, welches Sie ihm auch be- 
reitwillig aushändigen sollten. 

Ihr Zwilling verschwindet daraufhin und 
auch Sie sollten keine Zeit mehr verlie- 
ren. Begeben Sie sich in den Dial Room. 
Das Dial wird auf die Kombination, die 
Sie von Ihrem Zwilling erhielten, einge- 
stellt. Nun weiter zum Shaft Bottom. Le- 
gen Sie den Calendar weg und nehmen 
Sie das Seil. Dieses wird geFROTZT. 
Nun durch die Coal Mines zum Top of 
Chute. Das Timber wird über das Loch 
gelegt und das Seil an das Timber gekno- 
tet und das andere Ende in das Loch ge- 
worfen. Nun ist es wichtig, daß Sie nichts 
mehr bei sich tragen. 

Klettern Sie an dem Seil nach unten. In 
dem dortigen Raum finden Sie eine wei- 
tere Scroll. Golmac Spell-Travel tempo- 
rary. Dieser Zauber bewirkt eine Zeitrei- 
se und muß sofort benutzt werden. So- 
gleich finden Sie sich in der Rolle des 
Zwillings wieder. 

In der kleinen Schachtel findet sich plötz- 
lich ein Scroll, der natürlich sogleich mit- 
genommen wird. Wenn Sie nun den 
Raum verlassen, rutschen Sie in den Coal 
Bin Room. Hier treffen Sie nun sich 
selbst zu dem Zeitpunkt als Sie den Raum 
das erste Mal betraten. 

Nennen Sie Ihrem Doppelgänger die 
Kombination, daraufhin wird er Ihnen 
das Spell Book geben. Begeben Sie sich 
nun zum Lagoon Shore. Mit dem gefun- 
denen Scroll können Sie sich hier gegen 
unliebsame Geister schützen. 

Für das weitere Spiel ist nun ein Blick in 
die Zukunft nötig (VEZZA). Dabei wer- 
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den Sie die verschiedensten Visionen ha- 
ben, von denen allerdings nur die mit der 
weißen Tür und Belboz wichtig ist. Er- 
lernen Sie nun den MEEF-Spell, legen 
alles ab und begeben Sie sich zur Lagu- 
ne. Dort sollten Sie tauchen und die dort 
blühenden Blumen mit dem Meef Spell 
behandeln. 


Daraufhin erscheint eine Schachtel die 
Sie mitnehmen. Jetzt begeben Sie sich 
wieder zu der Stelle, an der Sie das Zau- 
berbuch abgelegt haben. In der Schach- 
tel werden Sie eine Lampe, das berüch- 
tigte Magic Frobozz Grue Repellent und 
einen Schutzanzug finden. Mit Letzterem 
halten Sie sich die lästigen Grues vom 
Leibe. Wenn Sie sich nun wieder kom- 
plett ausgerüstet haben, begeben Sie sich 
zu der Höhle deren Eingang von gefähr- 
lichen Schlingpflanzen bewacht wird. 
Diese können Sie mit dem MEEF Spell 
unschädlich machen. 


Haben Sie den Eingang freigelegt, zün- 
den Sie die Lampe an und begeben Sie 
sich in die Höhle. Die Grues werden 
ignoriert. Wenn Sie sich dann, wie in Ih- 
rer Vision, in dem Raum mit den drei Tü- 
ren befinden, wählen Sie die Weiße. 


Im Raum dahinter finden wir endlich den 
armen Belboz, der ja vom bösen Jeearr 
besessen ist. Lernen Sie nun den geister- 
austreibenden Spruch und vertreiben da- 
mit Jeearr aus Belboz Körper. Jeearr muß 
nun weichen und in einen anderen Kör- 
per fahren. Da der Ihrige allerdings der 
Einzige ist, aber gegen Geister geschützt, 
bleiben Jeearr nur noch die ewigen Jagd- 
gründe. Somit ist Spellbreaker gelöst. 


They Stole a Million 


Willkommen zu unserem kleinen Lehr- 
gang: Wie begehe ich den Raub des Jahr- 
hunderts? Dazu muß man sich natürlich 
erst einmal ein geeignetes Objekt aussu- 
chen. Für Diebe, deren Barschaft noch 
nicht allzuviel beträgt, nehmen wir ein- 
mal Herbert Humbug’s Münzladen. Zu- 
erst kaufen wir die Blaupausen des Ge- 
bäudes und zusätzlich Informationen 
über Münzen. Man erfährt nun, daß im 
Haus die wertvolle Halb-Zloty-Münze 
liegt, die 15.000 $ wert ist. Jetzt besorgen 
wir uns einmal einen Hehler. 


Hierzu eignet sich Kleingeld-Sue hervor- 
ragend, da sie am besten Münzen und Sil- 
ber verschachern kann. Ein gut einge- 
spieltes Team darf natürlich auch nicht 
fehlen. Aber da bei Herbert nicht allzu 
große Barschaft liegt, verzichten wir auf 
mehrere Leute und mieten uns Babyface 
Clive, da er Fahrer und Schlosser zu- 
gleich ist. 


Wer will, kann sich noch den äußerst 
preiswerten Big Dave Cannon kaufen. 
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Nun gehen wir in die Planungsphase 
über. Dort macht man am besten einen 
lauten, aber kurzen Bruch, daß heißt, 
man darf ruhig Alarm auslösen. Da bei 
dieser Art Einbruch die Polizei allerdings 
25 — 30 Minuten früher kommt, sollten 
sich die Teammitglieder um 1:40 im Auto 
einfinden. Der Bruch geht nun folgender- 
maßen vor sich: Clive öffnet die Haustür, 
geht durch die Ausstellungsräume in den 
hinteren Teil des Gebäudes und knackt 
dort die Tür. Dann betritt er den Raum 
dahinter und bricht die nördliche Tür auf. 
Nachdem er die Küche betreten hat, öff- 
net er das Schloß der Ablage und kehrt 
zum Auto zurück. In der Zeit sollte der 
Chef die beiden 7000$-Kästen aufgebro- 
chen und entleert haben und findet sich 
ein paar Minuten später im Auto ein. 
Falls Sie Cannon noch im Team haben, 
sollte er sich den 6.500$ und den 5.000$ 
Schrank schnappen. Jetzt muß er noch 
zum Auto laufen und Clive muß losfah- 
ren. Nun kann man sehen, wieviel man 
erbeutet hat. Wenn Sie etwa 65 — 70.000 
$ zusammenhaben, können Sie sich an 
die Planung des zweiten Einbruchs ma- 
chen. Das beste Team kann man folgen- 
dermaßen zusammenstellen: Man muß 
herausfinden, wieviel jedes einzelne Teil 
wert ist. Ist das geschehen, muß man fol- 
gende Stellen besetzen: Fahrer, Schloss- 
ser und bei Bedarf Tresor- oder Spreng- 
stoffexperte. 

Auch ein preiswerter Schläger darf ruhig 
mit von der Partie sein. Die besten Gau- 
ner sucht man sich aus dem folgenden 
Haufen heraus. 

Zusätzlich muß man noch die Kosten für 
Blaupausen, Informationen zu Alarman- 
lagen, Panzerschränken und Beute be- 
denken. 


Die Creme de la Creme der Gangster 


Name 1./2. Talent Preis Bet. 
Flanigan Panzer/Spreng $21 15% 
Fredriks Panzer/Schlosser $20 15% 
Roll Spreng/Aufpasser su 10% 
D’Arcy Spreng/Fahrer $17 10% 
Smith Alarm/Fahrer $25 10% 
Volts Alarm/Schläger $19 10% 
Davies Alarm/Panzer $26 10% 
Chimes Alarm/Schlosser $22 15% 
Williams Fahrer/Schlosser $16 16% 
Prost Fahrer/Aufpasser $5 15% 
Clint Aufpasser/Alarm $1 5% 
Cannon Aufpasser/Schläger $4 5% 
Jones Schläger/Aufpasser $5 5% 
Martin Schläger/Spreng $9 5% 
Carter Schlosser/Panzer $16 5% 
Joe Schlosser/Aufpasser $9 9% 
Clive _ Fahrer/Schlosser $18 10% 
Branigan Panzer/Schläger $18 10% 


Noch etwas zur Erläuterung: Panzer be- 
deutet Panzerknacker, Spreng ist Spreng- 
stoffspezialist & Alarm ist Alarmexper- 
te. Man kann, wenn man Fahrer und 
Schlosser sucht, diese auch durch eine 
Person ersetzen. Man muß die Kosten der 
beiden Personen zusammenrechnen, und 
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wenn das Ergebnis mehr beträgt als der 
Schlosser und Fahrer in einer Person, 
sollte man ihn wählen. Es sollten aller- 
dings genügsame Mitarbeiter sein, 15% 
der Beute abzugeben sind sehr schwer zu 
verschmerzen. Hier noch ein paar interne 
Favoriten: 

Fahrer: Detonator D’Arcy, Adam Prost, 
Babyface Clive. Schlosser: Skelett Joe, 
Babyface Clive. Alarm: Charlie Volts, 
Smith. Panzer: Boxer Branigan, Schlüs- 
sel Carter, Detonator D’Arcy, Sülze Roll. 
Schläger: Mad Man Martin, Big Dave 
Cannon, Jones. 

In späteren Gebäuden kommen immer 
raffiniertere Alarmsysteme zur Geltung: 
Abstandsalarm, der durch Lichtschran- 
ken ausgelöst wird, Druckalarm, der so- 
bald man einen so gesicherten Raum be- 
tritt ausgelöst wird, Kameras, die sobald 
etwas Fremdes den Raum betritt, Alarm 
schlagen & Wachmänner. Diese zu um- 
gehen, gestaltet sich recht schwierig, da 
Sie mindestens zu zweit auftreten. Falls 
ein lauter Bruch nicht mehr funktioniert, 
sollten Sie unter »Sicherheit« die Infor- 
mation über die Anlage abrufen, die Ih- 
nen am meisten Arger macht. So, mit 
diesen Hinweisen sollte es Ihnen möglich 
sein, sich bis zum Narburak Museum 
vorzuarbeiten. Ich wünsche Ihnen einen 
guten Bruch! 


Adventure-Potpurri 


An dieser Stelle wollen wir einige Tips zu 
den unterschiedlichsten Adventures an 
den Mann bringen. Doch fangen wir am 
besten gleich an, mit: 


Suspect 

Zuerst nimmt man das zerbrochene Glas. 
Kurz nachdem Monica den Ballraum 
verlassen hat, folgt man ihr in das Büro. 
Dort findet man sie bereits erwürgt auf. 
Zuerst nimmt man das Seil an sich, 
schaut unter den Körper, nimmt die Pa- 
trone, untersucht den Papierkorb und 
nimmt die Maske & die Karte. Außerdem 
sollte man den Umschlag an sich neh- 
men. Jetzt geht man wieder in den Ball- 
raum und wartet vor dem Kamin, bis Co- 
lonel Marston erscheint, und sich die 
Hände am Feuer wärmt. Jetzt die Feuer- 
stelle untersuchen und das Papier neh- 
men. Anschließend den Detektiv suchen 
und ihm das Glas, den Umschlag, die 
Karte und das Haar geben. Nun werden 
Sie nicht um 12 Uhr verhaftet, sondern 
können ihre Ermittlungen weiterführen. 


Infidel 

Erst einmal aus der Hängematte steigen 
und das Zelt verlassen. Jetzt die Schau- 
fel und die Spitzhacke suchen. Den 
Rucksack sollte man auch mitnehmen. 
Wieder das Zelt betreten, das Schnapp- 


schloß mit der Spitzhacke öffnen. Das 
Schloß entfernen und die Kiste öffnen. 
Die Karte auseinanderfalten und den 
Würfel an sich nehmen. Alles bis auf die 
Feldflasche steckt man in den Rucksack 
und füllt die Feldflasche am Nil. Nun 
kann man sich in die Wüste aufmachen 
und dort die Pyramide suchen. 


Red Moon 

Zuerst zum Vulkan gehen und die Hand- 
schuhe nehmen. In dem alten Haus alles 
an sich nehmen, die Lampe anstellen und 
das Schloß auf dem unterirdischen Weg 
betreten. Sie werden unterwegs eine klei- 
ne Tür und einen Pilz finden. Ein 
Tip:Nach Genuß des Pilzes werden Sie 
ein Stück kleiner... Man kann auch zum 
See gehen, den Busch untersuchen. Nun 
den Hebel in das Loch stecken und den- 
selben drehen. Der See wird auslaufen 
und der Weg ins Schloß ist geebnet. Im 
Schloss findet man eine Schmiede. Das 
dort befindliche Schwert läßt sich nur un- 
ter Zuhilfenahme der Handschuhe neh- 
men. So, ich hoffe, allen Abenteurern 
sind mit diesen Tips geholfen. Und den- 
ken Sie daran: Sicherheitsabstand von ei- 
nem Ork: 190 Km. 


M.G.T. 

Nachricht an alle professionellen MGT- 
Piloten: Eine Karte des Einsatzgebietes 
und Hinweise zur Zerstörung der Mega- 
basis. Zuerst einmal etwas Grundsätzli- 
ches:Die Schalter sind nicht immer zum 
Öffnen von Türen, einige haben auch we- 
niger gute Auswirkungen auf das MGT. 
Der Schalter C verdreht die Steuerung für 
eine Weile, während F die gesamte Mu- 
nition zerstört. G schließlich verringert 
die Energie des MGT: auf die Hälfte. Von 
diesen Schaltern sollte man lieber die 
Finger — pardon: die Laser lassen. Es 
gibt noch Räume, die einiger Erklärung 
notwendig sind. Der Raum, der leer aus- 
sieht, ist unsichtbares Labyrinth. Man 
muß einige verschlungene Wege fahren, 
bis man zum anderen Ausgang kommt. 
Außerdem gibt es einen Raum in dem 
drei Lasersperren wie Billiardkugeln 
ziellos im Raum hin- und herrasen. Hier 
muß man den richtigen Augenblick ab- 
warten und sich an der linken Wand ent- 
langtasten. In den Magnet-Räumen sollte 
man keineswegs den Boden berühren, da 
sonst das einzige MGT hinüber ist. In 
Räumen, in denen Eisblöcke den einzi- 
gen Weg versperren, sollte man einmal 
alle Eisblöcke anschießen. Oft hebt sich 
einer und man kann mit dem MGT im 
richtigen Moment drunterdurchfahren. 
Die Blöcke können das MGT auch zu hö- 
her gelegenen Türen transportieren. Jetzt 
schwing’ Dich aber in dein MGT, starte 
durch und beschleunige auf Höchstge- 
schwindigkeit in Richtung Megabasis. 
MESSAGE END....... (HS/BB/JH) 
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ShaRIngIeR 


4 POST OFFICE 

2 CREEPY CORNER 

3 OUTSIDE CEMENTERY 
4 HILTOP 

5 OUTSIDE COITAGE 

6 TWILIGHT GLEN 

7 SPOOKY COPSE 

8 OPEN GRAVE 

9 POLICE 

40 VIDEO ARCADE 
44 LAKE END 
AR ROTARY WEST 
43 ROTARY SOUTH 
Au ROTARY EAST 

45 PLEASURE HARF 
16 HARF END 
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A'1 PARK 

A8 CHURCH 

A3 ROTARY NORTH 
20 WEST OF HOUSE 


24 TIDAL PooL 

22 RIVER OUTLET 

2.3 SOUTH OF BRIDGE 24 BRIDGE 

24 ROXY PATH 28 CELL 

25 LIGHT HOUSE 23 NORTH OF BRIDGE 
26L00KoUT Hill 30 CLIFF BOTTOM 


31/32 UNDERGROWND HOLE 
35/36 UNDERGROUND 
37/38/40 /4A CLIFF 

42, INSIDE HAGICK SHOPPE 
39 OUTSIDE MAGICK SHOPPE 
M- 43 GRUE’S NEST 
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Spiele 


Diarquake 


Es gibt Spiele, die fängt man an zu spielen und auf einmal wundert man 
sich, warum es schon so spät ist. Starquake ist ein solches. 


Um es gleich vorweg zu nehmen, ich 
habe Tage an diesem Programm ver- 
bracht und das nicht nur mit Anfertigen 
der Karte, doch bis jetzt ist es mir noch 
nicht gelungen, den Kern vollständig zu 
erneuern. Das liegt ganz einfach daran, 
daß alle Gegenstände, sowohl jene zum 
Aufstocken von Energie, Plattformen und 
Schuß, als auch die Kernfragmente, bei 
jedem Spiel neu verteilt werden. Rein 
nach Murphy schaffe ich es nachdem ich 
diesen Artikel abgeliefert habe beim er- 
sten Versuch. 

Der endgültige Erfolg setzt sich aus drei 
Faktoren zusammen: Know-how, einer 
Karte und einer gehörigen Portion Glück. 
Bis auf letzteres kann ich Ihnen behilflich 
sein. In der Karte sind alle Teleports mit 
einer Zahl gekennzeichnet. Hier nun die 
dazugehörigen Namen mit den Standort- 
koordinaten: 


D) RALIQ P2 
3) TALIS C5 


2) VOREX 13 
4) ASCIO GIO 
5) DULONCI 6) QUORE Fl4 
7) ANGLEBII 8) ELIXA H22 
9) KRYZL M24 10) UPAZZ B28 
il) OPTIK N29 12) INDOL 729 
13) SNODY G30 14) AMBORK32 
15) ZODIA D32 


Ich glaube, eine Legende ist für diese 
Karte überflüssig, da die Formen weitge- 
hend aus dem Spiel übernommen wur- 
den. Die Buchstaben haben folgende Be- 
deutung: 


R -— Raumschiff 


F - Falltür 
O - Olly (Krake) 
S  - Skelettonaut 


L _- Anti-Gravitätslifte 
SD - Security Door 
D - Einfache Tür 


In dem Labyrinth des Planeten gibt es ei- 
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nige Geheimgänge. Die Eingänge und 
Ausgänge sind in der Karte verbunden. 


Soweit zur Karte, nun zum Know-how. Es 
gibt drei Arten von Türen in diesem 
Spiel. Am häufigsten kommt die Security 
Door vor. Man kann sie nur mit einer 
Code-Karte passieren, auf der ein Drei- 
eck ist. Man findet diese meistens im 
Startraum (Il) ober aber bei der Teleport- 
station Vorex. 


Am einfachsten ist es, solange neu anzu- 
fangen, bis man sie in einem der beiden 
Räume gefunden hat. Für die einfache 
Tür brauchen Sie einen Schlüssel, der öf- 
ters im Raum vor dem Planetenkern 
(G13) ist. Einmal geöffnet bleibt die Tür 
den Rest des Spiels offen. Die letzte Art 
Tür ist die Falltür. Sie ist ohne Schwie- 
rigkeiten zu Öffnen, wenn man sich auf 
ihre Mitte stellt, Blob durch Plattformen 
bis unter die Decke des Raums befördert 
und ihn dann von dort herunterfallen läßt. 
Leider ist diese Tür nur von oben nach 
unten zu benutzen, da sie, wenn Sie den 
Raum verlassen haben, wieder da ist und 
nicht von unten zu Öffnen ist. 


Bevor Sie nun anfangen, wäre es ratsam 
sich eine Copy von der Karte zu man- 
chen. Darauf kann man dann für jedes 
Spiel die Pyramiden mit Bleistift ein- 
zeichnen. Wenn man die Code-Karte hat, 
kann man in solchen Gebilden Kernfrag- 
mente tauschen. Welche Sie brauchen,’ 
können Sie durch einen Besuch im Kern 
(Teleport Quore) herausfinden. Jeder 
Kern besteht aus neun Teilen. Davon sind 
fünf Gegenstände, wie Diskette, Regen- 
schirm usw.. Die anderen sind schon 
Kernfragmente in Monekülarstruktur. 
Die Sache mit den Pyramiden hat nur ei- 
nen Haken, man kann nämlich nur einen 
Gegenstand tauschen, danach verschwin- 


den sie. Getauscht wird immer der Erste 
in der Reihe. 


Auf der Copy der Karte können Sie sich 
auch Bereiche markieren, die Sie einem 
Teleporter zuordnen. Das erleichtert die 
Suche erheblich. Mit der Zeit entwickelt 
jeder seine festgelegte Route durch die 
verschiedenen Teile. Dabei wird Ihnen 
sicherlich auch auffallen, daß es Orte 
gibt, an denen häufig Sachen liegen und 
andere, die man von der Suche von vor- 
ne herein ausklammern kann. 


So, nun zu den »Resourcen-Auffri- 
schern«. Die Wirkung der einzelnen Ge- 
genstände ist so offensichtlich, daß ich sie 
wohl nicht erklären brauche. Man soll- 
te allerdings sparsam mit ihnen umgehen 
und sie z.B. nicht gleich aufnehmen, 
wenn man weiß, daß man dies noch auf 
dem Rückweg kann. Achten Sie immer 
ein bißchen auf die Anzeigen der Resour- 
cen. Falls eine auf Null sinken sollte, las- 
sen Sie sich am besten in einen noch nicht 
besuchten Teil des Planeten teleportieren. 
Die meisten Anti-Gravitätslifte haben an 
den Rändern Einsteigehilfen. Ohne die- 
se ist es nicht immer einfach sich den Lift 
zu holen. Wenn Sie allerdings mit dem 
Joystick in Schrägposition über ihn hin- 
weg laufen, gibt es keine Probleme. 


In manchen Vertiefungen wandern Geräte 
hin und her, die wie die Stromabnehmer 
einer Straßenbahn aussehen. Man kann 
sie abschießen, sollte allerdings aufpas- 
sen, denn wenn man in der Vertiefung 
den Löffel abgibt, kann es vorkommen, 
daß gleich der ganze Besteckkasten ver- 
loren ist, da die Viecher wieder auftau- 
chen. So nun aber ran an die Praxis. Las- 
sen Sie sich bloß nicht frustrieren, ich bin 
überzeugt, es ist zu schaffen. 
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Spiele 


The Sentinel 


Seit ich die Regeln kapiert habe, gehört The Sentinel zu meinen Lieblingsspie- 
len. Vielleicht erleichtert Ihnen dieser Artikel den Einstieg in die Welt der 10000 


Ebenen. 


Auch nach zweimaligem Durchlesen der 
Anleitung hatte ich bei diesem Spiel mei- 
ne Schwierigkeiten. Kein Wunder bei ei- 
ner solchen Story. Theoretisch war ja al- 
les klar, aber wie soll man an Höhe ge- 
winnen? Die Anleitung erwähnt nur so 
nebenbei, daß man auf Felsblöcke etwas 
draufstellen kann. Daß das auch Roboter 
einschließt und so ziemlich die einzige 
Art ist, um aufeinen grünen Ast zu kom- 
men, soll man anscheinend selbst raus- 
finden. 


Jetzt ist es einfach die ersten 10 Ebenen 
zu bewältigen, doch sobald man es mit 
zwei, drei oder gar vier Sentinels zu tun 
bekommt, sieht man ohne eine gewisse 
Portion räumlichem Vorstellungsvermö- 
gen und einer Strategie ziemlich alt aus. 
Einen schwierigen Level könnte man bei- 
spielsweise in folgenden Schritten an- 
gehen: 


1. Ausmachen seiner Position in der Ebe- 
ne und relativ zu den Wächtern. 

Mit der Übersicht der Ebene, wie sie vor 
Betreten eines Levels gezeigt wird kann 
man eigentlich erst etwas anfangen, wenn 
man bereits in ihm war. Legen Sie erst 
einmal alle Energie in einem Roboter auf 
möglichst vielen Blöcken an. Von diesem 
aus können Sie meistens Ihre Lage be- 
stimmen, oder zumindest so viele mar- 
kante Punkte ausfindig machen, daß Sie 
solches mit Hilfe der Übersichtskarte 
können. Ob Sie in dieser alle Sentinels 
gefunden haben, was mit einem Grünmo- 
nitor nicht gerade einfach ist, läßt sich 
durch Zählen der Geräusche überprüfen, 
die die Wächter bei jedem Drehen ma- 
chen. Wichtig ist auch sich zu merken, 
aus welcher Ausgangsposition und in 
welcher Richtung sich die Sentinels dre- 
hen, doch leider kann das nicht immer 
bestimmt werden. 


2. Planung des Angriffs. 

Wenn Sie wissen wo in der Ebene Sie an- 
fangen, können Sie daran gehen, Anhö- 
hen zu suchen, die von dort aus gut er- 
reichbar sind. Wählen Sie diejenige aus, 
die gerade abgetastet wird, da man bis zu 
jener dann noch Zeit hat zwischendurch 
ein paar Bäume zu absorbieren. Haben 
Sie es mit mehreren Sentinels zu tun, 
müssen Sie entsprechend kleinere Schrit- 
te planen, also nicht gleich auf eine Lage 
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aus sein, von der aus man einen Wäch- 
ter schlagen kann. Suchen Sie ersteinmal 
Lücken zwischen den Abtasträumen. 
Aus diesen ergibt sich dann meistens au- 
tomatisch eine Route nach oben. Wich- 
tig ist, immer ungefähr zu wissen, wo die 
Wächter ihre Augen haben, um sich im- 
mer rechtzeitig hinter ihren Abtastsektor 
setzen zu können. In manchen Leveln 
muß man warten, bis die Wächter über 
den Startpunkt weggezogen sind. Diese 
sollten Ihren Standpunkt natürlich nicht 
gerade einsehen können. 


3. Ausführung und Verfeinerung des 
Plans. 

So, jetzt wissen Sie wo Sie sind, wo Sie 
hin wollen, aber noch nicht wie. Fangen 
Sie einfach mal an. Wenn es irgendwann 
nicht mehr weiter geht, wissen Sie auf je- 
den Fall schon mal, wo Bäume zum ab- 
sorbieren stehen, wo man sich beeilen 
muß und die Route ändern sollte. Bei die- 
ser Methode muß man zwar öfters von 
vorne anfangen, aber da man, zumindest 
rein wissensmäßig gesehen, jedesmal ein 
Stück weiterkommt, erreicht man das 
Ziel mit etwas Übung doch meist recht 
schnell. Da Sie ja möglichst viele Level 
überspringen wollen, sollten Sie den Sen- 
tinel auf dem Turm erst ganz zum Schluß 
und von der höchsten Position aus absor- 
bieren. Dem einen Wächter kann man 
gut aus dem Weg gehen, so daß man ge- 
mütlich alle Bäume mitnehmen kann. 
Sollten Sie doch einmal Energie abge- 
nommen kriegen, bleibt sie ja doch in der 
Ebene. 

Nun noch einiges zur Spielpraxis. Man 
sollte sich nicht nur Gedanken machen, 
wie man am besten nach oben kommt, 
sondern auch, ob man von dem neuen 
Standpunkt aus den alten Robby und die 
Blöcke darunter absorbieren kann. Da 
meistens mehrere Felder zur Auswahl 
stehen, ärgert man sich später nur, wenn 
man wegen einer Energie-Einheit fest- 
sitzt. Sollten Sie in einem Level mit zwei 
oder mehr Wächtern einmal erwischt 
worden sein, ist es besser, sich unter 
Energieverlust selber in Sicherheit zu 
bringen, als das Risiko auf sich zu neh- 
men, von einem Abtastalarm in den an- 
deren »hyperraum gefahren« zu werden. 
Wenn Sie auf vielen Blöcken standen, 
können Sie so wenigstens einige Energie- 
Einheiten retten. Auch da gibt es einen 
Trick. 


Daß der Sentinel Energie abzieht, kann 
man nicht verhindern. Da aber die helle 
Seite eines Blocks als erweiterte Quadrat- 
oberfläche interpretiert wird, kann man 
durch schnelles Drücken der Taste zum 
Absorbieren meistens nicht nur das, was 
auf dem Block steht rüberziehen, son- 
dern auch den Block selbst. So geht von 
vier Einheiten nur eine verloren. 


Es folgen nun die Codes und die Anzahl 
der Sentinels für die ersten 50 Ebenen, 
damit Sie ein bißchen üben können. 


Ebene Code 
1 92416816 
77651325 
3 39380666 
4 68888059 
5 66799483 
6 45600956 
7 
8 


Sentinels 


88070956 

97558411 
9 78959942 
10 97567465 
11 34128668 
12 12837047 
13 82497760 
14 89619176 
15 78844565 
16 69076196 
17 18167694 
18 34259849 
19 74546878 
20 78042177 
21 92261899 
22 41108601 
23 69780499 
24 84620577 
25 49636597 
26 06268381 
27 93449087 
28 85414694 
29 55711979 
30 41062296 
31 94185468 
32 57640765 
33 51837557 
34 03549980 
35 46855644 
36 68261871 
37 34454988 
38 69096154 
39 89515235 
40 19390739 
41 68195946 
42 51957584 
43 74666797 
44 45888884 
45 47577247 
46 66526784 
47 49877068 
48 93458839 
49 58764753 
50 37411586 


DDP- PN DDPREUDNDWD PP PNDWWNDWWUWDNDDWUODDDD,D,D, DD, DD, DD N DD m mm m 
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Spiele 


Starglider 


Mit vereinten Kräften gegen die Ergons. 
Hier einige Tips... 


Zuerst wollen wir uns mal den Starglider 
One vornehmen, denn auf die Dauer 
nervtes schon, regelmäßig von oben at- 
takiert zu werden. Fliegen Sie dazu 
gleich nach dem Start in das Silo, das sich 
am linken Bildschirmrand befindet. 
Wenn man beim Eintritt leicht nach un- 
ten lenkt und nicht zu schnell fliegt, sollte 
es da keine Probleme geben. Dort erhal- 
ten Sie eine zweite Rakete, ohne die der 
Vogel nicht erlegt werden kann. Wenn 
Klein Hermann sich dann mal wieder 
zeigt, klemmen Sie sich dicht hinter das 
Flaggschiff und visieren das Heck an. 
Wenn es ruhig in der Mitte des Faden- 
kreuzes liegt, wird es Zeit, mit besten 
Grüßen eine Rakete auf den Weg zu 
schicken. Hat diese ihr Ziel getroffen, be- 
ginnt der Starglider One zu blinken. Wie- 
derholen Sie das Manöver mit der zwei- 
ten Rakete. Danach haben sie einen Qu- 
älgeist weniger und 5000 Punkte mehr. 


Aufmerksame Leser der Novelle, die 
übrigens wirklich lesenswert ist, werden 
nun fragen: So einfach? Schon alles fer- 
tig? Nein, ganz und gar nicht. Erst wenn 
Sie 10000 Punkte auf dem Konto haben 
sind Sie fertig und das auch nur mit dem 
ersten Level, denn dann geht alles von 
vorne los, mit dem Unterschied, daß nun 
zur Zerstörung der Gegner mehr Treffer 
benötigt werden. 


Was beim Starglider anscheinend die 
erößten Probleme hervorruft, ist das Auf- 
\aden der Energiezellen mit Hilfe der 
Starkstromleitungen. Wenn Sie eine sol- 
che Anordnung von drei Energietürmen 
sefunden haben, ist es ratsam nicht nur 
Jie Steuereinheit (Dach des einzelnen 
Turms) zu zerstören, sondern auch alle 
mit Raketen ausgerüsteten Gegner. Die- 
se machen es nämlich fast unmöglich ge- 
nau zwischen den Zwillingstürmen ein- 
ufädeln. Wenn die Gegend um die Lei- 
tungen sicher ist, manövrieren Sie das 
AGAV vor die Zwillingstürme und dann 
angsam und gefühlvoll, fast schon mit 
Bodenkontakt, durch diese hindurch. 
Wenn alles geklappt hat, sollte die Mel- 
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dung »ENERGY CELLS REFUEL- 
LING« erscheinen und die Energieanzei- 
ge langsam auf 100% wandern. Wichtig 
ist nur, daß Sie auf der Bahn bleiben, auf 
der die Lichtblitze hin und her wandern. 
Wenn Sie wollen, können Sie sogar ste- 
hen bleiben. Die Hinweise des Playguids 
und der Novelle die darauf schließen las- 
sen, daß man mit hoher Geschwindigkeit 
zwischen den Zwillingstürmen durch, 
auf den Dritten fliegen muß, dienen an- 
scheinend nur zur Irreführung des Spie- 
lers. Schnelles Fliegen bringt auch im 
Kampf nichts. Fliegende Objekte verfolgt 
man am besten in deren eigenen Ge- 
schwindigkeit, Bodengerät sehr langsam 
oder stehend. Dabei solte immer ein 
Auge den Radar auf nahende Raketen ab- 
suchen. Die Silos sind übrigens in jedem 
Spiel an derselben Stelle. Ihre Koordina- 
ten sind: 


1) 48/53 (Start) 
2) 92/61 
3) 59/15 
4) 11/85 


Manchmal erhält man in den Silos die 
Koordinaten von nützlichem Gerät. Da 
das AGAV leider kein Instrument hat, das 
einen Zusammenhang zwischen den 
Himmelsrichtungen, die wiederum in 
Grad angegeben sind, und den Koordina- 
ten herstellt, muß der Spieler sich selber 
helfen. Mit der untenstehenden Übersicht 
ist das Anfliegen bestimmter Koordina- 
ten schon einfacher. Wenn Sie jetzt z.B. 
von 23/54 nach 97/09 fliegen möchten, 
bremsen Sie, drücken Pause und berech- 
nen die Gradzahl folgendermaßen: links- 
plus, rechts-minus d.h. 135 Grad. Da 
links die Differenz größer ist, noch ein 
bißchen weniger, womit wir bei ungefähr 
125 Grad wären. Im Stand in diese Rich- 
tung gedreht kommt der Flieger meist so 
genau an, daß man die Feinarbeit im 
Sichtkontakt mit dem Ziel erledigen 
kann. Die Geräte zum einsammeln, als 
da wären ein Rear-View-Scanning Sy- 
stem, Raketen und Zusatzenergiekapseln, 
unterscheiden sich von den Ergons durch 


Blinken o.ä. und sind durch niedriges 
Überfliegen leicht aufzunehmen. Man 
sollte nur aufpassen, daß man nicht das 
ein oder andere Teil durch unkontrollier- 
tes Rumballern vernichtet, denn so auf- 
fällig sind sie nun auch wieder nicht. 
Nun noch zur Zerstörung der Walker und 
Stamper. Beide sind durch eine Rakete 
auf die Beine leicht zu zerlegen. Ko- 
misch, die Crew in der Story konnte die 
Viecher nicht mit Raketen kleinkriegen, 
dafür allerdings mit einem Laser. Mir 
geht es umgekehrt. Ich konnte noch kei- 
ne Stelle finden an der eine der beiden 
Kampfmaschinen auf den Laser reagier- 
te. Die kamen höchstens auf mich zu, was 
mitunter recht praktisch ist, denn dann 
kann man ihnen ohne großes Lenken eine 
Rakete verabreichen. Diese schießen Sie 
am besten ab, wenn Sie gerade eine Ra- 
kete des Ungetüms in die ewigen Jagd- 
gründe geschickt haben, da sonst nur sel- 
bige getroffen wird. Die normalen Star- 
glider kann man durch einige Treffer mit 
dem Laser beseitigen, genauso wie sonst 
alles andere auch. Die einzige Ausnah- 
me machen da Gebilde, die wie Brücken 
aussehen. Sie sind anscheinend unzer- 
störbar. Ich glaube, sie stehen in Zusam- 
menhang mit den Stromleitungen, da, 
wenn man gerade durch sie durchfliegt 
meistens eine solche auftaucht. Bliebe 
nur noch zu sagen, daß ich die Steuerung 
mit beweglichem Cursor für eleganter 
halte und Zentrierung schlichtweg un- 
praktisch finde. Das ist allerdings Ge- 
schmackssache. 
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Die Axt im Haus erspart den Zimmermann 


Falsch geraten: Dieser Bericht ist kei- 
ne Abhandlung über Sprichwörter im 
deutschen Sprachschatz, sondern er 
befaßt sich möglichst umfassend mit 
der Problematik der Disketten-Werk- 
zeuge. Wir verstehen unter diesem Be- 
griff nicht etwa Schraubendreher, Pin- 
zette oder Lötkolben, sondern Softwa- 
re, die den Disketten-Benutzern ihre 
Arbeit erleichtern soll. 


Was man vor dem Kauf 
beachten sollte 


Ohne gutes Werkzeug ist auch der beste 
Handwerker nur die Hälfte wert. Deshalb 
sind gründliche Überlegungen bezüglich 
der Mindestanforderungen dringend er- 
forderlich. Eine »eierlegende Wollmilch- 
sau«, ein Programmpaket für alle Bedürf- 
nisse gibt es nicht. Es ließe sich bei der 
Vielfalt der Wünsche auch nicht ent- 
wickeln und verkaufen. Deshalb muß 
eine Checkliste mit Fragen her: 


— Welche Art von Programmen benöti- 
ge ich? (Monitor, Formatierer, usw.) 

— Welches Betriebssystem benutze ich 
am häufigsten? (AMSDOS oder 
CP/M) 

— Wurden die Programme schon einmal 
in einer Zeitschrift getestet ? (Wer 
kauft schon gern die Katze im Sack?) 

— Sind die Programme mit ausreichen- 
den Anleitungen versehen? 

— Haben sie eine anwenderfreundliche 
Benutzeroberfläche? 

— Stimmt das Preis-/Leistungsver- 
hältnis? 

— USW., USW. 

Diese Liste läßt sich bei Bedarf noch wei- 

ter ausbauen, sie soll an dieser Stelle 

auch nur als Anregung betrachtet wer- 
den. Sie werden nun sicherlich fragen: 

Was verstehen Sie eigentlich unter Dis- 

ketten-Werkzeugen? Nun, hier folgt eine 
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Bild 1: Dir-Editor 
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W....Set to R/N 
Ars. .Anather disc 


kleine Aufstellung der wichtigsten Utili- 

ties 

— Diskettenmonitore, auch Disketten- 
scanner genannt. 

— Formatierprogramme, auch zum For- 
matieren und Einstellen von Fremd- 
formaten. 

— Kopierprogramme von Kassette zu 
Diskette und Disk zu Disk. 

— Verwaltungsprogramme, falls Sie mitt- 
lerweile mehr als eine Diskette, gefüllt 
mit Software, besitzen sollten. 


Bordwerkzeug 


Im allgemeinen ist das Bordwerkzeug ei- 
nes Automobils recht spartanisch, ähn- 
lich sieht es auch mit DiskettenUtilities 
auf den Schneider Systemdisketten aus. 
Während Programme unter AMSDOS 
gänzlich fehlen. Bei den unter CP/M 2.2 
oder CP/M Plus lauffähigen Program- 
men sieht es anzahlmäßig ein wenig bes- 
ser aus, aber bezüglich Anwenderfreund- 
lichkeit sind sie nicht gerade berau- 
schend. 


— DISCKIT2 / DISCKIT3 formatiert 
Disketten in allen vier Schneider- 
formaten, leider etwas langsam. 

— PIP.COM kopiert Files von Disk zu 
Disk. 

— DIR.COM zeigt das Inhaltverzeichnis 
der Diskette. 

— SHOW.COM zeigt die noch freie Dis- 
kettenkapazität. 

— RENAME.COM gibt Files neue 
Namen. 

— ERASE.COM löscht Files auf der 
Diskette. 


Vergeblich sucht man einen Disketten- 
monitor, neben dem Formatierprogramm 
das wichtigste Werkzeug überhaupt. 
Neugierig geworden, fragen Sie nun: Al- 
les schön und gut, aber wie müssen Dis- 
ketten-Utilities nun eigentlich beschaffen 
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sein? Welche Möglichkeiten sollten sie 
dem Anwender bieten? Wir werden ver- 
suchen, im folgenden Abschnitt diese 
Fragen an Hand von Beispielen zu beant- 
worten. 


UALITÄTSSOFTWARE 
— Forderungen und Beispiele 


Diskettenmonitor/ -scanner 

Eines der wichtigsten Werkzeuge für je- 
den Diskettenbenutzer, wenn nicht sogar 
das wichtigste, ist ein Diskettenmonitor, 
oder auch Diskettenscanner genannt. Ein 
guter Monitor besteht aus folgenden Teil- 
werkzeugen 


— Directory-Editor 
— Sektor-Editor 
— Disk-Mapper 
— Disk-Header 


Mit Hilfe dieser Utilities dringen Sie bis 
in den entferntesten Winkel Ihrer Diskette 
vor und können Änderungen sowohl im 
Inhaltsverzeichnis, als auch in jedem an- 
deren Teil der Diskette vornehmen. Bei 
der Arbeit mit einem Diskettenmonitor 
ist in jedem Fall höchste Vorsicht gebo- 
ten. Nehmen Sie Anderungen nur an 
Softwarekopien vor, nie an Originalen. 
Denn schon eine kleine Fehlbedienung 
kann den Absturz Ihrer Diskette hervor- 
rufen. Im schlimmsten Fall sind Teile des 
Inhaltsverzeichnisses oder der Program- 
me zerstört und für alle Zeiten unwieder- 
bringlich verloren. Ebenso wichtig ist es, 
sich vor jeder geplanten Anderung an 
Diskettensoftware den Inhalt des Direc- 
torys und der zu ändernden Programm- 
teile ausdrucken zu lassen. So können Sie 
später immer noch den alten Zustand 
wiederherstellen, falls die Anderungen 
nicht nach Wunsch ausgefallen sind. 
Doch betrachten wir die einzelnen Werk- 
zeugteile ein wenig genauer. 
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Bild 2: Full-Screen, Disc-Editor 
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Directory-Editor 


Der Directory-Editor listet den Dis- 
ketteninhalt mit Filenamen, der User- 
Nummer, sowie dem jeweiligen File- 
Status auf. Aus dem File-Status können 
Sie erkennen, ob ein File sichtbar oder 
unsichtbar, schreibgeschützt oder nicht 
schreibgeschützt ist. In der Regel lassen 
sich aus einem Menü mittels definierter 
Tasten die folgenden Optionen aus- 
wählen: 


— Filenamen ändern 

— File löschen 

— Gelöschtes File reaktivieren 

— File unsichtbar machen (SYS) 

— File wieder sichtbar machen (DIR) 
— Schreibschutz aufheben (R/W) 

— Schreibschutz setzen (R/O) 

— User-Bereich ändern 

— Geändertes Directory sichern 

Ein Beispiel für eine gute Lösung zeigt 
die Hardcopy in Bild 1. 


File- / Sektor-Editor 


File- bzw. Sektor-Editoren sind wei- 
testgehend identisch aufgebaut. Nur der 
Einstieg, oder besser gesagt, die Suchkri- 
terien sind unterschiedlich. Der File-Edi- 
tor erwartet von Ihnen die Angabe eines 
Files, welches er auf der Diskette ausfin- 
dig machen soll. Findet er es, zeigt er auf 
dem Monitor den ersten Sektor dieses Fi- 
les an. Beim Sektor-Editor müssen Sie 
dagegen die Spur und den Sektor ange- 
ben, den sie sich ansehen oder editieren 
wollen. In beiden Fällen erscheinen auf 
dem Bildschirm, in mehreren Fenstern 
folgende Informationen: 


Status: 

mit Angabe des Laufwerkes, der Spur, 
des Sektors, des Filenamens und der 
Länge des Files in Sektoren. 
Sektorinhalt: 

Nummerierung der Bytes, Inhalt des 
Sektors in Hex-Code und in ASCII-Zei- 
chen. 
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Bedienung des Editors mittels definierter 

Tasten: 

— Cursorsteuerung 

— Sektorauswahl 

— Fileauswahl 

— Umschaltung des Cursors zwischen 
HEX und ASCI 

— Anderungen rückgängig machen 

— Anderungen sichern usw. 


Einen Full-Screen-Editor mit Cursor- 
steuerung und den oben genannten Mög- 
lichkeiten zeigt die Hardcopy in Bild 2. 
Eine Anderung des Sektorinhaltes kann 
sowohl im HEX-, als auch im ASCII-Teil 
erfolgen, der jeweils andere Teil wird 
ebenfalls automatisch geändert. 


Disk-Mapper 


Ein Disk-Mapper dient zur Unterstüt- 
zung eines Sektor-Editors. Er zeigt an, 
auf welchen Spuren und in welchen Sek- 
toren sich die Teile der Files auf der Dis- 
kette befinden. Hierzu ein Beispiel: 


NAME TRACK / SEKTOR 

MYPROG.BAS 0,C4 0.C5 0,C6 1,C5 
1,C6 1,C7 1,C8 

HELPDAT 1,09 2,C0 

USW. 


Sehr gute Dienste leistet der Disk-Map- 
per beim Suchen nach bestimmten Pro- 
grammteilen, z.B. um ein englisches Pro- 
gramm mit einer deutschen Benutzer- 
oberfläche zu versehen. Das mühsame 
Umrechnen der Blöcke aus dem Direc- 
tory kann entfallen. 


Disk-Header 


Ein Disk-HEADER listet folgende Daten 
eines Programms auf: 


— Name 

— Startadresse 

— Länge in Byte 

— Type (Basic, MCode, ASCIH-File) 


[441. .MOVE CURSOR 
[1]. „TOGGLE MODE 


LBITTE WAEHLEN: 


Bild3: Formatierungsprogramm 
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MODE: SELECTED 


Bild4: Menue-Maker 


DISC FILE MANAGER 0) SIREN SOFTWARE 1986 


[51..SELECT [DI „UNSELECT IN). ‚NEW DISC 
[RI], RUN 
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— Execute Adresse (bei Programmen, 
die nachgeladen werden) 


Auch hierzu ein kurzes Beispiel: 


Name Start Size 
HALLO.BAS 0170 
HALLO.BIN A123 
HALLO.DAT 3000 


Type Exec 
1000 BASIC 
8FFF MC 

0OSFF ASCI 


8200 


Dies waren in Kürze einige Beispiele gu- 
ter Diskettenmonitore. Wir werden spä- 
ter in einer kleinen Übersicht einige emp- 
fehlenswerte Programmpakete nennen. 


Formatierprogramme 


Da Disketten in der Regel unformatiert 
verkauft werden, benötigt jeder User ein 
Formatierprogramm. Zwar wird auf der 
Schneider-Systemdiskette für die Be- 
triebssysteme CP/M 2.2 und CP/M + 
Disckit2, bzw. Disckit3 mitgeliefert. Für 
den Anfang reichen diese Programme 
aus, aber wer möchte nicht auch unter 
AMSDOS und dann nach Möglichkeit in 
der halben Zeit seine Disketten formatie- 
ren. Ein brauchbares Formatierpro- 
gramm muß je nach Einsatz alle Formate, 
die der CPC oder Joyce kennt, beherr- 
schen. Gut darf sich ein Programm nen- 
nen, das außerdem die Spuren 40-42 
formatiert und zur Verfügung stellt. Dies 
ergibt dann eine Speicherkapazität von 
bis zu 208k pro Diskettenseite. Mit eini- 
gen speziellen Formatierwerkzeugen las- 
sen sich aber auch Fremdformate einstel- 
len und formatieren. So kann ein Daten- 
austausch auch zwischen Benutzern un- 
terschiedlicher Computersysteme 
stattfinden. Im Zusammenspiel mit ei- 
nem 5.25-Zoll Laufwerk mit 80 Spuren 
und 2 Köpfen erreicht man dann eine 
Speicherkapazität von rund 800k, und 
dies ohne irgend einen Hardwareeingriff. 
Bild 3 zeigt das Menue eines Forma- 
tierprogramms der gehobenen Klasse. 
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Kopier-Werkzeuge 


Oft ist es notwendig, daß sich der An- 

wender Arbeitskopien seiner Originale 

ziehen muß, z. B. bei Anpassung an sein 

Computersystem oder seinen Drucker. 

Verwendet er seine Originaldiskette auch 

als Arbeitsdiskette, so läuft er Gefahr, sie 

irgendwann durch Fehlbedienung zu zer» 
stören. Disketten-Kopierprogramme bie- 
ten folgende Möglichkeiten: 

— Übertragung von ausgewählten Files 
oder Filegruppen bei Einsatz von so- 
genannten »wildcards«. 

Beispiele: 

MYPROG.BAS (nur dieses File) 
* BAS (alle Basic-Files) 
**(alle Files auf der Diskette) 

— Backup einer Diskette 
Eine 1:1 Kopie der Quelldiskette ein- 
schließlich des Formates wird auf der 
Zieldiskette erstellt. Einige Program- 
me übertragen auch unformatierte 
Spuren und gelöschte Files. 


Wer von der Kassette als Speicher- 
medium auf Diskette umsteigen will, 
wem das Laden der Kassettensoftware zu 
lange dauert oder wem die 3-Zoll Disket- 


ten als Archiv-Speichermedium zu teu- 
er sind und doch lieber Kassetten bevor- 
zugt, der benötigt Software für den 
Transfer von Kassette auf Diskette und 
umgekehrt. Auch diese Programme kön- 
nen verschiedene Möglichkeiten bein- 
halten: 


— Automatische oder manuelle Über- 
tragung 


— Übertragung einzelner Files 


— Übertragung der kompletten Kassette 
oder Diskette 


— Auswahl der Übertragungsgeschwin- 
digkeit 

— Aufhebung oder Umgehung eines Ko- 
pierschutzes 


— automatische Anpassung des File- 
Namens bei der Übertragung von Kas- 
sette auf Diskette 


— Möglichkeit für den Anwender, den 
File-Namen selbst zu ändern usw. 


Das Thema »Kopieren von geschützter 
Software« wollen wir nicht behandeln. Es 
würde den Rahmen dieses Artikels 


sprengen. 


FILENAME DISKNAME US BLO TYP ST LG EN BEMERKUNG 
DATAFLEX.BAS bas-1 A 00 015 BASIC 0170 3918 0000 
DIRDOK .BAS bas-1 A 00 010 BASIC 0170 276E 0000 
DISCODE .BIN bas-1i A 00 008 BINAER 8000 1DOO 0000 
DISKDOK .BAS bas-1 A 00 007 BASIC 0170 18FA 0000 
DISKMAT .BAS bas-1i A 00 018 BASIC 0170 442B 0000 
DISKPATC.BAS bas-1 A 00 031 BASIC 0170 7AED 0000 
HEXMON .BAS bas-1 A 00 014 BASIC 0170 355A 0000 
KALENDER.BAS bas-1 A 00 008 BASIC 0170 1DSE 0000 
MENU .BIN bas-1i A 00 004 BASIC 60C3 0C70 0170 
NAME .INF bas-i A 00 001 ASCII 0000 0000 0000 
NOTEBOOK.BAS bas-1 A 00 006 BASIC 0170 14F6 0000 
NURSE .BAS bas-1 A 00 O11 BASIC 0170 28BA 0000 
SYNAID .BIN bas-1 A 00 001 BINAER A000 0090 0000 
SYNOPSIS.BAS bas-1 A 00 014 BASIC 0170 3608 0000 
TAPEMON .BAS bas-1 A 00 006 BASIC 0170 13DD 0000 
UDG .„BAS bas-1 A 00 012 BASIC 0170 2E64 0000 
VARDUMP .BAS bas-1 A 00 009 BASIC 0170 21E6 0000 
3D-AXIS .BAS bas-i B 00 027 BASIC 0170 6AC7 0000 
3D-PLOT .BAS bas-1 B 00 013 BASIC 0170 31AO 0000 
CASSDIR .BAS bas-1 B 00 003 BASIC 0170 0B74 0000 
CONTEXT .BAS bas-1 B 00 009 BASIC 0170 22D3 0000 
CONTEXT .BIN bas-1 B 00 004 BINAER 9300 ODOO 0000 
CONTEXT .HLP bas-1 B 00 003 ASCII 0000 0000 0000 
CONTEXT2.BAS bas-1 B 00 010 BASIC 0170 23ES 0000 
CPC .BAS bas-1 B 00 010 BASIC 0170 Z6EA 0000 
CPCHECK .BAS bas-1 B 00 002 BASIC 0170 047A 0000 
D-ARCHIV.BAS bas-1i1 B 00 008 BASIC 0170 1CDE 0000 
DB .BAS bas-1 B 00 001 BASIC 0170 0034 0000 
DB .BIN bas-1 B 00 002 BINAER 8000 0732 0000 
DISASS .BAS bas-1 B 00 015 BASIC 0170 3805 0000 
DISK-RSX.BIN bas-1 B 00 001 BINAER A000 0120 0000 
DSERVICE.BAS bas-1 B 00 013 BASIC 0170 3329 0000 
DSKBASIC.BAS bas-1 B 00 001 BASIC 0170 0034 0000 
HAPPYCHK.BAS bas-1 B 00 002 BASIC 0170 0649 0000 
LABEL .BAS bas-1 B 00 003 BASIC 0170 OB3SC 0000 
MENU BIN bas-1 B 00 004 BASIC 80C3 0C70 0170 
SEC-MAP .BAS bas-1 B 00 002 BASIC 0170 0656 0000 
T .BAS bas-i B 00 O11 BASIC 0170 2944 0000 
TEXTPROG.BIN bas-1 B 00 014 BINAER 3EOO 33B1 0000 

B 


Bild 5: Ausdruck einer Directory-Datei 
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Diskettenverwaltung 


Unter diesen Oberbegriff fallen alle Pro- 
gramme - zur Generierung eines 
DiskettenMenues. Die Daten werden 
dem Directory der Diskette entnommen. 


— zur Archivierung und Bearbeitung von 
Disketten-Inhaltsverzeichnissen mit 
Editier-, Sortier-, Such-, List- und 
Druckroutinen 


Ein Menuegenerator erweist sich als 
nützliches Instrument bei der Erstellung 
von: 


— Arbeitsdisketten mit Dienstpro- 
grammen 
— Disketten mit Nachladeprogrammen 


Während der Installierungsphase kann 
der Anwender Programme oder Textda- 
teien sichtbar oder unsichtbar machen. 
Die unsichtbaren Dateien oder Program- 
me erscheinen später nicht mehr im In- 
haltsverzeichnis. Das Bild 4 zeigt ein Bei- 
spiel eines MENUE-MAKERS. Ist das 
Menü installiert, kann der Anwender mit 
Hilfe der Cursor-Tasten ein beliebiges 
Programm aus dem Menue anwählen und 
durch Druck auf eine festgelegte Taste, 
z.B. <RETURN> wird das Programm 
geladen und gestartet. Das Menue kann 
jederzeit geändert und erneuert werden. 


Im Laufe der Zeit wächst bei jedem User 
die Zahl der Disketten, vollgestopft mit 
einer Vielzahl von Programmen und Da- 
teien. Irgendwann ist der Zeitpunkt er- 
reicht, daß man den Überblick verliert. 
Ein gutes Archivprogramm muß her. Die 
folgende Aufstellung zeigt einige Mög- 
lichkeiten die ein solches Programm bie- 
ten kann: 


— Automatische Aufnahmen der Disket- 
ten-Inhaltsverzeichnisse in eine Datei 
— Löschen und Updaten von Directorys 
in der Datei 
— Sortieren nach verschiedenen Ge- 
sichtspunkten 
* alphabetisch 
* nach Diskettennummern 
* nach Filetypen (ASCIH, BASIC, 
MCODE, usw.) 
* und anderen 
— Suche nach bestimmten Programmen 
— Einfügen von Kommentaren 
— Ausgabe auf Monitor und Drucker 


Im Bild 5 finden Sie den Ausdruck einer 
Archivdatei alphabetisch sortiert). 


Werkzeuge (fast) zum Nulltarif 


PUBLIC DOMAIN -Software ist hier- 
mit gemeint. Unter den Betriebssystemen 
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CP/M und CP/M Plus werden einige gute 
Disketten-Werkzeuge für wenig Geld an- 
geboten. Betrachten wir kurz die Vor- 
und Nachteile von Public Domain Soft- 
ware: 


Vorteile: 
— geringer Anschaffungspreis 


— in fast allen Fällen wird eine gute An- 
leitung auf der Diskette mitgeliefert 


— neben den ablauffähigen Files enthält 
die Diskette oft den Source-Code in 
Assembler, BASIC oder PASCAL. 
Der Anwender kann sein Programm 
entsprechend anpassen. 


Nachteile: 


— oft sind die Anleitungen in englischer 
Sprache 


— man kauft die Katze im Sack, da aus- 
führliche Beschreibungen vorab nicht 
von den Vertreibern herausgegeben 
werden 


— nicht alle CP/M-Programme laufen 
ohne Anpassungen auf den CPCs oder 
auf dem Joyce 


Wer gern bastelt oder experimentiert, 
oder sich in den Programmiersprachen 
und der Maschinenebene seines Compu- 
ters gut auskennt, für den ist die Public 
Domain-Software eine wahre Fundgrube. 


Zum Abschluß diese Abschnittes einige 
Beispiele brauchbarer Public Domain- 
Software: 


DU Disketten-Monitor. Es gibt ihn in 
verschiedenen Versionen. 

WASH-IO Komfortabler Disketten- 
manager 


COPYFST3 Sektorweises Kopieren 


DIRLST/l schreibt Disketten-Directory in 


eine Datei. 
BACKUP _ (erklärt sich selbst) 
SD noch ein SUPER DIRECTORY 
DUTIL Diskettenmonitor 
MFTS50 Kopierprogramm 
FIND40 sucht Zeichenketten in Dateien 
SWEEP Diskettenmanager 
CRCBUILD erstellt Catalog-Dateien 


SUPERZAP Diskettenmonitor 


UNERA+ stellt gelöschte CP/M+ Datei- 
en wieder her 

DP Diskpatch-Programm 

SCAN sucht defekte Sektoren 


Folgende Programme laufen nur unter 
Turbo-Pascal: 


CHG wechselt Diskettenformat 
DISKDEF Fremdformat-Bearbeitung 
DSKDMP  Disketten-Dump 
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Spezialwerkzeuge — was bietet 
der Softwaremarkt 


Der letzte Abschnitt befaßt sich mit mit 
dem Angebot von Diskettenwerkzeugen 
auf dem deutschen Softwaremarkt. Un- 
sere Übersicht stellt nur einen kleinen 
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Ausschnitt dar, denn täglich kommt neue 
Software hinzu. Sie werden feststellen, 
daß in keinem Programmpaket alle Mög- 
lichkeiten geboten werden. 


Ein Programm, was alles kann, wird es 
auch niemals geben. 


(H.W. Fromme) 


BEISPIELE FÜR DISKETTEN-SOFTWARE 


Name Hersteller Verwendung 


RH-DMON (Integral Hydraulik) Diskettenmonitor mit Fullscreen-Editor, For- 
matierprogramm, Diskettenreorganisation und 


Druckroutine. 


Diskettenmonitor mit Druckroutine, Formatier- 
programm für 43 Spuren, Fileheader, Disk-Ko- 
pierprogramm 


Disc-Scanner (RSE Software) 


Disk-Sorter (RSE Software) Dateiverwaltung zur Aufnahme und Editierung 
von Diskettendirectories, Sortierroutine für al- 


phabetisches Sortieren, Druckroutine 


F.1.D.O. (Pride Utilities) Dateiverwaltung für Diskettendirectories mit 
Druckroutine, Menuegenerator Besonderheit: 


Passwortschutz 


DISKPARA (Strauß Elektronik) Formatierprogramm, erstellt beliebige Fremd- 
formate und stellt Zweitlaufwerk auf Fremdfor- 


mate ein. Benötigt CP/M 2.2 oder CP/M Plus. 


MASTERCOPY (Peter Mandrella) Menuegesteuertes Kopierprogramm für Disket- 
tensoftware, unterstützt zwei Laufwerke, ist 


selbst gegen kopieren geschützt. 


OAX Programm zum Übertragen geschützter 


(Speedlock) Kassettensoftware. 


CLONE Programm zur Übertragung geschützter Dis- 


kettensoftware. 


Copy Master (RSE Software) Transferprogramm für Diskette und Kassette, 
Backup-Routine auch auf Kassette, Druckrouti- 


ne, Programmverschiebung möglich. 


HANDY MAN  (SIREN) Sehr schnelles Formatierprogramm bis 208k, 
unterstützt zwei Laufwerke unter AMSDOS 

und CP/M. Beinhaltet weiterhin Menügenera- 
tor, Diskettenmonitor mit DISCSEARCH und 


FILESEARCH. Sehr gute Benutzeroberfläche. 


MASTERDISC (SIREN) Zwölf Diskettenutilities, File-Copy, Disketten- 
Backup, Directory-Editor, Disketten-Monitor 
und Editor, schnelles Formatierprogramm, ge- 
löschte Files können wieder sichtbar gemacht 


werden. Gute Benutzeroberfläche. 


Discovery Plus Kopiert geschützte Software von Kassette auf 
Diskette. Vier Kopierprogramme für z.B. 
Speedlock, Headerlos, usw. User Service: Dis- 
covery Plus wird laufend überarbeitet. Für 
Problemfälle werden Anleitungen herausge- 


geben. 


LOCKSMITH Kopier-Utilities für Kassetten und Disketten- 
Software. Besonderheit: Locksmith kann in ei- 
gene Benutzeroberflächen eingebunden 


werden. 
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IVIALKLUDETISICILL 


DREI AUF EINEN STREICH 
(BESC FILE MANAGER (6) SIREN SOFTAANE 1905 } 


[44]. ‚MOVE CURSOR 
IT], „TOGGLE MODE 


IR]. «RUN 


MAINCODE „BIN 
KMP 


MODE: UNSELECTED 


Hersteller: SIREN 

Vertrieb: PR8-SOFT Margetshöchheim 
Steuerung: Tastatur 

Monitor: Farbe/Grün 

Datenträger: Diskette 3-Zoll 
Programme: Basic / MC 
Betriebssystem: AMSDOS 

Preis pro Paket: 59,90 DM 

CPC 464, 664, 6128 

mit mindestens einem Laufwerk 


HANDY MAN 
— Sieben Disketten-Utilities 
mit deutscher Benutzeroberfläche 


Nach dem Start der Diskette erscheint auf 
dem Monitor das Hauptmenü mit folgen- 
den Unterprogrammen: 


— SUPERFORM 
— TRANS FILE 

— DISC RELEASE 
— DISC SEARCH 
— FILE SEARCH 
— FILE MATE 

— MENÜ MAKER 
— HANDBUCH 

— ENDE 


Nach Auswahl einer der ersten 7 Mög- 
lichkeiten kann ein zum jeweiligen Pro- 
gramm gehörender Hilfstext in deutscher 
Sprache über den Monitor ausgegeben 
werden. Mittels der 8. Möglichkeit las- 
sen sich alle Hilfstexte über den Drucker 
als Handbuch ausgeben. Ein toller Ser- 
vice, oder? 


Doch befassen wir uns nun genauer mit 
den einzelnen Utilities: Neben den Stan- 
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151. .5ELECT [DI .UNSELECT IN], .NEW DISG 
IL]. «LOAD 


[X]. EXIT 


[#3]. ‚UPDATE DISC 


dardformaten DATA, SYSTEM, VEN- 
DOR und IBM bietet SUPERFORM ein 
Spezialformat an, welches die Disketten- 
kapazität auf 202 bzw. 208 KByte erwei- 
tert. Nutzbar sind die so formatierten 
Disketten sowohl unter AMSDOS als 
auch unter CP/M. Die jeweilige Software 
zum Initialisieren und Rücksetzen wird 
für den Gebrauch unter AMSDOS mit 
auf die Diskette kopiert. Bei Verwendung 
unter CP/M muß dies manuell erfolgen. 


Die Formatiergeschwindigkeit ist beach- 
tenswert. Für eine Diskettenseite benö- 
tigt SUPER FORM nur ca. 18 Sekunden, 
DISCKIT3 auf der Systemdiskette dage- 
gen stolze 34 Sekunden. Formatierfehler 
haben wir trotz vieler Versuche nicht fest- 
stellen können. 


Wer trotz SUPER FORM immer noch 
nicht genügend Diskettenkapazität zur 
Verfügung hat oder wer sein Archiv mit 
Kassetten aufbauen möchte, dem kann 
mit DISK RELEASE geholfen werden. 
Es bietet dem Anwender die Möglich- 
keit, seine auf Diskette gespeicherten 
Programme oder Texte auf Kassette zu 
kopieren. Dies funktioniert jedoch nur 
mit Disketten inden AMSDOS-Forma- 
ten und SUPERMAT. Dafür wird aber 
das jeweilige Format mit auf Kassette ge- 
speichert und beim Rückladen von Kas- 
sette auf Diskette diese gleich wieder 
richtig formatiert. Abschließend sei noch 
erwähnt, daß beim Rückladen sowohl 
ganze Kassetteninhalte, als auch einzel- 
ne Files überspielt werden können. 


Aber auch für den Transfer von Program- 
men und Texten auf und von Disketten ist 


— HANDY MAN 
— MASTERDISC 
— DISCOVERY PLUS 


Drei Programmpakete von SIREN 
für alle CPCs liegen diesmal auf 
dem Untersuchungstisch. Lassen Sie 
sich überraschen: 


gesorgt. Mit Hilfe von TRANS FILE las- 
sen sich entweder ganze Disketten oder 
auch einzelne Files überspielen. Einige 
Besonderheiten möchten wir Ihnen nicht 
vorenthalten: 


— Vor einem Transfer können Sie die 
USER-NTr. wechseln. 

— Unsichtbare Files müssen vor dem 
Transfer sichtbar gemacht werden. 

— R/O Files werden zu R/W Files, ge- 
schützte Programme bleiben ge- 
schützt. 


Mit den Programmen FILE SEARCH 
und DISC SEARCH stellt HANDY 
MAN zwei fast identische, aber ausge- 
zeichnete Diskettenmonitoren zur Verfü- 
gung. Wollen Sie ein File auf der Diskette 
inspizieren oder editieren und Sie kennen 
den Filenamen, dann ist FILE SEARCH 
das richtige Werkzeug. Suchen Sie je- 
doch einen bestimmten String oder eine 
HEX-Zeichenfolge, dann benötigen Sie 
DISC SEARCH. In beiden Fällen erhal- 
ten Sie nach erfolgreicher Suche auf dem 
Monitor auf drei Fenstern: 


— den jeweiligen Diskettenstatus mit 
Laufwerk-Nr., Spur- und Sektornr. 
Bei FILE SEARCH wird zusätzlich 
der Filename und die Anzahl der 
Sektoren des Files angegeben. 

— Die Funktionstastenbelegung zur 
Bedienung 

— bei FILE SEARCH den Inhalt des 
l. Sektors des gesuchten Files, bei 
DISC SEARCH den Sektor, in dem 
der gesuchte String gefunden 
wurde. 
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FILE: TEILL.REV_ SERTOREN: 18 SPUR: & SEKTOR:ACH LAUFWERK A: N HKASIER DISC 
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Mit Hilfe der Funktionstasten kann der 
Disketteninhalt weiter untersucht, geän- 
dert und wieder abgespeichert werden. 
(Bild HANDY-2.PIC) 


FILE MATE ist ein Ausgabeprogramm 
für reine ASCI--Files auf Monitor oder 
über Drucker. 


Das letzte Utility der Sammlung, MENÜ 
MAKER, ermöglicht es Ihnen, Ihre Dis- 
ketten mit einem eigenen Menü zu ver- 
sehen. Sie können Unterprogramme, die 
nachgeladen werden ‚unsichtbar machen, 
sowie angewählte Programme laden oder 
starten. Weiterhin ist es jederzeit mög- 
lich, das Menü zu ändern und es erneut 
auf der Diskette abzuspeichern. 

(Bild HANDY-1.PIC) 


Fassen wir zusammen: 

HANDY MAN von SIREN mit der deut- 
schen Benutzeroberfläche von PR8- 
SOFT ist ein ausgezeichnetes Disketten- 
werkzeug für den CPC-Anwender und 
seinen Preis wert. Hoffentlich macht das 
gute Beispiel mit eingebauten Hilfstexten 
und der Möglichkeit, sich sein Handbuch 
selbst zu drucken, auf dem deutschen 
Markt Schule. 


Nutzeffekt: 
Bedienerfreundlichkeit: 
Dokumentation: 
Arbeitsgeschwindigkeit: 
Preis/Leistung: 


Dumm 


MASTERDISC 
— Ein Programmpaket mit 12 
interessanten Disketten-Utilities 


Auch MASTERDISC, der ältere Bruder 
von HANDY MAN, ist schon mit einer 
deutschen Benutzerführung, mit deut- 
schen Hilfstexten und der Option 
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HANDBUCH ausgestattet. Der erste 
Eindruck nach dem Start des Programms 
ist vielversprechend, denn im Hauptme- 
nü hat der Anwender die Qual der Wahl 
zwischen den im nachfolgenden Bild auf- 
geführten Disketten-Hilfsprogrammen. 
(Bild MASTER-I.PIC) 


Der DIRECTORY EDITOR bietet fol- 
gende Möglichkeiten: 


— Files retten 

— Files auf SYS oder DIR setzen 

— Files löschen 

— Files umbenennen 

— USER-NTr. ändern 

— Löschschutz setzen (R/O) oder ent- 
fernen (R=W) 


Auf dem Monitor wird jeweils eine Hälf- 
te des Directory-Inhaltes (32 Eintragun- 
gen) angezeigt. Zusätzlich erscheint in ei- 
nem seperaten Fenster die Tastenbele- 
gung für die Bedienung dieses Pro- 
grammteils. 

(Bild MASTER-2.PIC) 


SPEEDFORM nennt sich ein Formatier- 
Utility, mit dem Sie innerhalb von 18 Se- 
kunden pro Diskettenseite in allen 4 
Schneider Formaten (System, Data, Ven- 
dor und IBM) Ihre Disks formatieren 
können. Sie haben auch Zugriff auf ein 
eventuell angeschlossenes zweites Lauf- 
werk, 3-Zoll oder 5.25-Zoll. 


Der SECTOR EDITOR ist eine notwen- 
dige und gute Ergänzung des DIRECTO- 
RY EDITORS. Mit diesem ausgezeich- 
neten Diskettenmonitor läßt sich jeder 
Sektor jeder Spur von Laufwerk A: oder 
B: laden, editieren und wieder speichern. 
Die Benutzerführung erfolgt wie bei dem 
DIRECTORY EDITOR. 

(Bild MASTER-3.PIC) 


Mit DEPROTECTOR lassen sich Basic- 
Programme, die mit dem ’P-Listschutz 
versehen worden waren, wieder listen. 
Der Listschutz wird entfernt. 


Die wichtigsten Header-Daten von Pro- 
grammen auf Diskette oder Kassette er- 


hält man mit Hilfe der Utilities DISC 
HEADER, bzw. TAPE HEADER. 


Es sind bei beiden Programmen: 


— Programmname 

— Startadresse 

— Programmlänge 

— Typ (Basic, MCode, ASCH) 
— Execute Adresse 


Zusätzlich gibt TAPE HEADER noch 
die Information, ob es sich um ein ge- 
schütztes Programm handelt. 


Für den Transfer von Files von und auf 
Disketten empfiehlt sich TRANS DISC. 
Es unterstützt zwei Laufwerke, ist menü- 
gesteuert und vergleichbar mit PIPCOM 
auf der Systemdiskette. TRANS TAPE 
benötigt man zum Überspielen von Da- 
ten und Programmen von Diskette auf 
Kassette. Auch hier können beide Lauf- 
werke als Quelle benutzt werden. Das 
Programm fordert den Anwender zu al- 
len notwendigen Eingaben auf. 


Sehr mühsam ist das Aufsuchen von ein- 
zelnen Programmteilen auf der Diskette. 
DISC MAP kann hier helfen. Es zeigt an, 
auf welchen Spuren und in welchen Sek- 
toren die einzelnen Files abgespeichert 
worden sind. Ein Beispiel: 


PICTURE.BAS 0.6 0C7 1,C6 1,C7 
1,C8 1,C9 usw. 


Auch an die Ausgabe von Textfiles und 
Programmen wurde gedacht. So lassen 
sich ASCII-Files über Monitor und 
Drucker mit Hilfe von TYPE FILE aus- 
geben. Steuerrcodes können jedoch zu 
Schwierigkeiten führen, wie Sonderzei- 
chen aus Textsystemen, wie WORD- 
STAR, TASWORD usw. 


Einen Totalabsturz vermeidet man, in- 
dem man die Druckoption wirklich nur 
bei einem angeschlossenen Drucker an- 
wählt. Das Ausgabe-Utility für Program- 
me nennt sich DUMP FILE und gibt den 
Fileinhalt in HEX und ASCI aus. 
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Falls Ihnen die Diskettenzugriffszeit zu 
lang ist, können Sie mit Hilfe von ZIP 
DISC um bis zu 20% verkürzen. 


Das letze Utility von MASTER DISC 
nennt sich IMAGE. Es gibt Ihnen die 
Möglichkeit Backup-Kopien von Ihren 
Disketten anzufertigen. Auch hier wer- 
den beide Laufwerke unterstützt, eine 
Formatierung erfolgt automatisch. 


Fazit: Auch MASTER DISC ist eine gute 
Sammlung von Disc-Utilities für den 
Einsteiger und den fortgeschrittenen Nut- 
zer eines CPC. 


Positiv viel uns, wie schon bei HANDY 
MAN, die deutsche Benutzerführung 
und das integrierte Handbuch auf. 


Nutzeffekt: 2 
Bedienerfreundlichkeit: 1 
Dokumentation: 2 
Arbeitsgeschwindigkeit: 2 
Preis/Leistung: 3 
DISCOVERY PLUS 


Programm-Sammlung für das 
Kopieren von Kassette 
auf Diskette 


Bei dem dritten Programmpaket aus dem 
Hause SIREN handelt es sich um Soft- 
ware zum Übertragen von Kassettenpro- 
grammen von Kassette auf Diskette. Auf 
der 3-Zoll Diskette befinden sich vier 
Programme, mit denen sich It. Angabe 
von PR8-Soft, dem deutschen Vertrieb, 
ein Großteil der geschützten Kassetten- 
software auf Diskette übertragen läßt. 


Ein Programm dieser Sammlung ist das 
altbekannte DISCOVERY. Für alle, die 
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SEPSIELPANTEEEET 


LAUFWERK IST B: SYSTEM FORMAT 


LAUFWERK B: 


5. . „SPUR WECHSELN R..FILE REITEN  L..FILE LOESCHEN U „FILE AUF R/ 
%, FILE AUF 9/0 D..FILE AUF DIR 5 ‚NEUE DISK 
Ki: TRHToR HOSEN A..ANDERE USER-NR  T..DIR.-Teil 2 M SAVE DIRECTORY 
m COPYSHOP .BAK | ! M 
a COPXSHOP .BAR 
m SPIRAL ‚PIC 8 R/H DIR 
FM SPIRAL PIC I USER 8 R/N DIR FREI 
ia 651-5 ‚IKT 0 USER 8 R/M DIR FREI 
a a a Ha Hi 
m SCHSAVE ‚BARS Q VöHR 8 MH DIR FREI 
M COPYSHOR.RAS 8 USER 8 R/N DIR FREI 
a COPYSHOP.BIN O USER O8 R/N DIR FREI 
FMENÜE ‚PIC B USER 8 R/M DIR FREI 
FMENUE ‚PIC 1 USER 8 R/M DIR FREI 
Rn URGELOESCH FREI 
BILDB .BIN Mal FREI 
3ILDG BIN HT FREI 
B BIN 3 FREI 


un 
BITTE HAEHLEN: B 


es noch nicht kennen, hier eine kurze Be- 
schreibung: 


Discovery entfernt automatisch den List- 
schutz von Basic-Programmen. Dadurch 
lassen sich leicht Änderungen durch den 
Anwender durchführen. 

Man hat die Wahl zwischen einen 
Automatik- und einem Manuel-Modus. 
Im letzteren kann sowohl der Programm- 
name vor dem Abspeichern auf Disket- 
te geändert, als auch ein Relocator zum 
Verschieben des Programms im Speicher 
hinzugefügt werden. 

Der Relocator wird dann notwendig, 
wenn das zu kopierende Programm den 
Speicherbereich der Diskettenverwaltung 
überschreiben würde. Während des Ko- 
piervorgangs erhält der Anwender auf 
seinem Monitor die Header Daten der 
kopierten Blöcke. Erfahrungsgemäß lei- 
stet DISCOVERY gute Hilfe bei älterer 
Software mit einem nicht allzu kompli- 
zierten Kopierschutz. 

SPLOCK TRANS wird vom Entwickler 
für den Transfer von Programmen emp- 
fohlen die mit dem »SPEEDLOCK«-Ver- 
fahren geschützt sind. 

Vor dem Starten des Rekorders muß eine 
formatierte Diskette mit noch min. 52K 
Speicherkapazität in das Laufwerk A: 
eingelegt werden. Nach dem Start läuft 
das Kopierprogramm automatisch ab. 
Hat man Erfolg, d.h., die Kopierroutinen 
wurden nicht durch das geladene Kasset- 
tenprogramm überschrieben, erfolgt 
nach dem Laden sofort das Speichern auf 
Diskette. 

Wie der Anwender ein Überschreiben 
der Kopiersoftware umgehen kann, ist 
uns leider nicht bekannt. 

Die beiden übrigen Programme TD.BAS 
und TD1.BAS für normale, headerlose 
und »anders geschützte« Software müssen 
vor dem ersten Start initialisiert werden. 
Leider fehlt uns hier ebenfalls die Infor- 
mation, um welchen Schutz es sich han- 
delt. 


Mit TD.BAS oder TD1.BAS kopierte 
Programme können nur von diesen aus 
wieder geladen und gestartet werde. Alle 
notwendigen Anleitungen erhält der An- 
wender während des Programmablaufs. 


Eine ausführliche Erläuterung der Pro- 
gramme befindet sich als Textfile auf der 
Diskette und kann auch über den Drucker 
ausgegeben werden. 


Bei Kopierversuchen mit einigen neuen 
Spielen konnten wir mit keinem der vier 
Programme einen Erfolg verbuchen. Der 
Schutz der Kassettensoftware ist mittler- 
weile so ausgefeilt worden, daß die Ent- 
wickler von Transferprogrammen nicht 
nachkommen. Nach unseren Informatio- 
nen plant SIREN zur AMSTRAD USER 
SHOW die Veröffentlichung einer neuen 
Version von DISCOVERY PLUS. Ob 
und zu welchen Konditionen die Anwen- 
der der alten Programmsammlung diese 
neue Version beziehen können, ist noch 
nicht bekannt. Einige Hilfen stellt PR8- 
Soft dem DISCOVERY PLUS Anwender 
heute schon zur Verfügung. 


Der Diskette beigelegt ist eine Liste mit 
Tranferlösungen von ca. 100 Spielpro- 
grammen. Ferner bietet PR8-Soft unter 
dem Namen DISCUS bis heute vier 
Sammlungen von Tips und Tricks für den 
Transfer von ca. 285 Spielen an, gegen 
Entgeld. 


Um Ärger und Frust zu vermeiden, sollte 
sich jeder potentielle Käufer vorher er- 
kundigen, ob es schon eine Transferlö- 
sung für sein Lieblingsprogramm gibt. 
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UNILAB 
V2.0 


Ein komfortables Editier- und Druckprogramm 
für Endlos-Etiketten für alle CPCs, angepaßt für 
DMP 2000 


Durch den modularen Aufbau von Unilab ist es sehr einfach, 
das Programm für andere Drucker als den DMP 2000 anzupas- 
sen. Eine Kurzbeschreibung ist in das Programm eingebaut und 
kann über das Menü aufgerufen werden. 
Es folgt eine Aufbau-Übersicht: 
— Zeile 170 — 1810 
Diverse Unterprogramme und Dimensionierungen 
— Zeile 20 — 320 
Dimensionierung der Variablen und der Fenster 
— Zeile 340 — 440 
Festlegung des deutschen Zeichensatzes 
— Zeile 450 — 760 
Festlegung der Anzahl und der Parameter der Etiketten. Bei- 
des kann erweitert oder verändert werden 
— Zeile 780 — 920 
Generierung des Titelbildes 
— Zeile 940 — 1000 
Aufbau der Titelleiste und des Eingabefeldes am unteren 
Ende des Bildschirms 
— Zeile 1020 — 1060 
Einträge in Eingabefeld 
— Zeile 1130 — 1310 
Globale Druckparameter anzupassen an den jeweiligen 
Drucker 


— Zeile 1330 — 1480 
Zeilenabhängige Druckparameter anzupassen an den jewei- 
ligen Drucker 


20 [2279] 
a2 2 2222 2.222 2 22.2 222 .2:22 22.2.2222 2.2 22.22.22 5 
20 ' ### [61] 
### 
30 ' ### UN I [389] 
LAB ### 
40 ' ### [61] 
### 
so ' ### Ein komfortables Druckpro [3792] 
gramm £f}r Endlos-Etiketten ##H 
so ' ### [61] 
### 
70 ### Entwickelt auf SCHNEIDE [3290] 
R CPC 6128 und DMP-2000 Be 
so ' ### [61] 
### 
so ' ### (c) Dezember [1423] 
1986 by ### 
100 ' ### [61] 
### 
110 ' ### Hans-Werner Fromme [1147] 
120 ' ### [61] 
### 
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— Zeile 1500 — 1640 
Simulation der Breitschrift auf dem Bildschirm 
— Zeile 1660 — 1800 
Strings für Schriftartenmenü kann ebenfalls bei Bedarf bei 
gleichzeitiger Anpassung der Druckparameter geändert 
werden 
— Zeile 1820 — 2480 
Einzeiliger Texteditor 
— Zeile 2490 — 3040 
Eingabe der Schriftarten, global und zeilenabhängig 
— Zeile 3050 — 3240 
Druckroutine 
— Zeile 3250 — 3540 
Kurzbeschreibung des Programms 
— Zeile 3550 — 3610 
Programmende und Rückkehr zu Basic 
— Zeile 3620 — 3790 
Hauptprogramm 


Folgende Druckmöglichkeiten sind im Programm eingebaut: 
— Etikettengrößen 
71,5 x 69,6 mm Label für 3“ Disk 
73,5 x 10,3 mm 
88,9 x 35,7 mm Label für 5 1/4“ 
88,9 x 48,4 mm 
— Globale Druckparameter 
(gelten für das ganze Label) 
— Standard-Druck 
— Standard-Fettdruck 
— NLQ-Druck 
— Kursiv-Druck 
— Kursiv-Fettdruck 
— Zeilenabhängige Druckparameter 
— Hochgestellte Schrift 
— Unterstrichen 
— Breitschrift 
— Breitschrift und Unterstrichen 
— Normale Schrift 
— Zeilenzentrierung 
bei Bedarf werden alle Zeilen zentriert 
Da das Programm menügesteuert ist, erübrigt sich eine weite- 
re Beschreibung. Viel Erfolg beim Druck Ihrer Labels. 
(Hans-Werner Fromme) 


2 (2279) 
A a ri 


150 


27] 

GOTO 3620 [2568] 
'‘ Sprung zum Hauptprogramm 

160! 2 

170 ’ WERK RR U KK KK KK KK a a a 

WR U & 

180 ' xxx DIVERSE UNTER 

PROGRAMME ar 

190 ' WERK ER RK A KK a a a 

WAR KR RK KK € 

zug: I 

210 '--- Dimensionierungen --- 

220. 


230 DIM zeilpar1$(1),zeilpar2$(1), hflag(25 
).‚zflag(25) 

240 DIN ustr$(1),zwr$(1),gpar1$(20) ,‚gpar2$ 
250 DIM label$(1),breit$(1),zeile$(1) ,‚glop 
ar$(5),zeipar$(5) ,size(1) 

260 glopar=5; zeipar=5 

n WINDOW #1,57,79,2,2: PAPER #1,0: PEN # 


[117] 
[2556] 


[2790] 
[2556] 
[117] 
iin 
(117] 
[2132] 
[2299] 
[3975] 


[1109] 
[1746] 


2: WINDOW #2,2,79,23,24: PAPER #2,1:PEN # 
290 WINDOW #3,42,79,5,20: 
3,0 


[2620] 


PAPER #3,1:PEN # [1554] 
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Tips & Tricks 


300 WINDOW #5,1,80,4,21: PAPER #5,0 
310 etikettenanzahl=4 


320 RETURN 
330, ° 
340 '--- DEUTSCHER ZEICHENSATZ --- 


B50; > 
360 SYMBOL AFTER 90 


370 SYMBOL 91,&66,&18,&3C,&66,&7E,&66,&66 
!=- AB -- 
380 SYMBOL 92,&66,&3C,&66,&66,&66,&66,&3C 
!=- OE -- 
390 SYMBOL 93,&66,&0,&66,&66,&66,&66,&3C 
!== UE — 
400 SYMBOL 123,&6C,&0,&78,&C,&7C,&CC,&76 
Ta ua 
410 SYMBOL 124,&0,&66,&0,&3C,&66,&66,&3C 
ee 
420 SYMBOL 125,&0,&66,&0,&66,&66,&66,&3E 
'I-- ue — 
430 SYMBOL 126,&3C,&66,&66,&7C,&66,&66,&7C 
,&60 De 
440 RETURN 
450 ' 
460 '--- ETIKETTENWERTE --- 
470 ' 
480 z1$="ETIKETTEN - AUSWAHL" 
490 22$="------------ --- - --- n 
500 2z3$="Nr: Gri’e Zeile 
n Spalten" 
510 etiwert$(1)=" 1 71:5 X 69,6 16 
28” 
520 etiwert$(2)=" 2 73407 2043 2 
293” 
530 etiwert$(3)=" 3 88,9. 35,7 8 
35" 
540 etiwert$(4)=" 4 88,9 X 48,4 11 
35" 
550 RETURN 
560 ' 
570 ' Etiketti1 
580 zeilen=16:spalten=28:RETURN 
590 ' 
600 ' Etikett2 
610 zeilen= 2:spalten=29:RETURN 
620 ' 
630 ' Etikett3 
640 zeilen= 8:spalten=35:RETURN 
650 ' Etikett4 
660 ' 
670 zeilen=11:spalten=35:RETURN 
680 ' 
690 ' Zeichnen der Rahmen 
1099: ® 


710 ORIGIN 4,340 

720 DRAWR (spalten*8+8),0, (farbe) 

730 DRAWR 0,-(zeilen*16+8), (farbe) 

740 DRAWR -(spalten*8+8),0, (farbe) 

750 DRAWR 0, (zeilen*16+8), (farbe) 

760 RETURN 

719: ° 

780 '--- Titelbild generieren --- 

790 ' 

800 MODE 2:0UT &BC00,6:0UT &BD00,0 

810 ORIGIN 75,125:DRAW 395,0,1:DRAW 395,13 
0:DRAW 0,130:DRAW 0,0 

820 FOR i=0 TO 80 STEP 16 

830 ORIGIN 75+i,125+i 

840 MOVE 395-16,0:DRAW 395,0:DRAW 395,130: 
DRAW 0,130:DRAWR 0,-16 

850 NEXT i 

860 LOCATE 30,11:PRINT "UN I - LA B" 
870 LOCATE 15,13:PRINT "Ein komfortables E 
tiketten-Druckprogramm" 

880 LOCATE 18,14:PRINT "fir Schneider CPc6 
128 und DMP-2000" 

890 LOCATE 17,16:PRINT "Copyright 1986 by 
Hans-Werner Fromme" 

900 OUT &BC00,6:0UT &BD00,25 

910 FOR i= 1 TO 3000:NEXT 


920 RETURN 

930 ' 

940 '--- Titelleiste und Eingabefeld aufba 
uen --- 

950 ' 


960 CLS:ORIGIN 0,390:DRAWR 637,0:DRAWR 0,- 
29:DRAWR -637,0:DRAWR 0,29 
970 ORIGIN 2,392:DRAWR 637,0:DRAWR 0,-29:M 


[1549] 
[675] 
[555] 
[117] 
[2459] 
[117] 
[1214] 
[2074] 


[2558] 
[2893] 
[2418] 
[1863] 
[1618] 
[2375] 


[555] 
[117] 
[2110] 
[117] 
[1153] 
[1591] 
[2813] 


[2051] 
[2111] 
[1600] 
[1921] 


[555] 
[117] 
[1191] 
[2074] 
[117] 
[1186] 
[1679] 
[117] 
[1189] 
[2603] 
[1200] 
[117] 
[2017] 
[117] 
[2266] 
[117] 
[295] 
[2574] 
[1360] 
[1981] 
[1884] 
[555] 
[117] 
[2352] 
[117] 
[2310] 
[2746] 


[790] 
[709] 
[3703] 


[375] 
[2340] 
[5300] 


[3876] 
[5117] 


[901] 
[1003] 
[555] 
[117] 
[3381] 


[117] 
[3691] 


[3177] 


OVER -265,-2:DRAWR 0,29 


980 LOCATE 2,2:PRINT"UNILAB V1.0 ";CHR [6542] 

$(164);" 1986 by Hans-Werner Fromme" 

990 LOCATE 49,2:PRINT "Modus: ":RETURN [3590] 

1000 ORIGIN 0,52:DRAWR 637,0:DRAWR O0,-42:D [2773] 

RAWR -637,0:DRAWR 0,42:RETURN 

10910 ° [117] 

1020 '--- Window-Eintr/{ge [2053] 

1039 ° [117] 

1040 CLS#1:LOCATE #1,58,1:PRINT #1,modus$ [1862] 

1050 CLS #2:LOCATE #2,2,1:PRINT #2,zeile23 [2295] 

$ 

1060 LOCATE #2,2,2:PRINT #2,zeile24$:RETUR [2892] 

N 

1070: ° [117] 

1080 '--- Ja/Nein-Abfrage --- [1734] 

1090 ' [117] 

1100 ein$="":WHILE ein$="" OR INSTR("JN",e [3478] 

in$)=0:ein$=UPPER$ (INKEY$) :WEND 

1110 RETURN [555] 

1120 ' [117] 

1130 '--- Globale Druckparameter --- [2475] 

1140 ' [117] 

1150 deutsch$=CHR$ (27)+"R"+CHR$ (2) [4239] 
' Deutscher Zeichensatz 

1160 ' [117] 

1170 vorschub$=CHR$ (27)+"2":RETURN [2139] 
' Vorschub 1/6" 

1180 ' [117] 

1190 gpar$(1)="":gpar$(2)="":RETURN [537] 

1200 gpar$(1)=CHR$ (27)+"E" [3311] 
' Standard-Fettdruck ein 

1210 gpar$(2)=CHR$ (27)+"F" [3087] 
' Standard-Fettdruck aus 

1220 RETURN [555] 

1230 gpar$(1)=CHR$(27)+"x"+CHR$ (1) [1805] 
' NLQ ein 

1240 gpar$(2)=CHR$ (27)+"x"+CHR$ (0) [1148] 
' NLQ aus 

1250 RETURN [555] 

1260 gpar$(1)=CHR$ (27)+"4" [1709] 
' Kursiv ein 

1270 gpar$(2)=CHR$ (27)+"5" [914] 
' Kursiv aus 

1280 RETURN [555] 

1290 gpar$(1)=CHR$ (27) +"4"+CHR$ (27)+"E" [3596] 
'‘ Kursiv-Fettduck ein 

1300 gpar$(2)=CHR$ (27)+"F"+CHR$ (27)+"5" [3172] 
'‘ Kursiv-Fettduck aus 

1310 RETURN [555] 

1320 * [117] 

1330 --- Zeilenabh{ngige Druckparameter -- [1649] 

1340 " [117] 

1350 gpar$(1)="":gpar$(2)="":RETURN [537] 

1360 zpar$(1)="":zpar$(2)="":hflag=0:zwr$( [5451] 

i,j)="":ustr$(i,j)=" ":GOSUB 1520:RETURN 

1370 zpar$(1)=CHR$ (27)+"S"+CHR$(0) [3902] 
' Hochgestellt ein 

1380 zpar$(2)=CHR$ (27)+"T" [2448] 
‘ Hochgestellt aus 

1390 hflag=1:zwr$(i,j)="":ustr$(i,j)=" ":G [3141] 

OSUB 1520:RETURN 

1400 zpar$(1)=CHR$(27)+"-"+CHR$ (1) [3292] 
' Unterstreichen ein 

1410 zpar$(2)=CHR$ (27)+"-"+CHRS$S (0) [3273] 
' Unterstreichen aus 

1420 hflag=0:zwr$(i,j)="":ustr$(i,j)="_":G [2327] 

OSUB 1520:RETURN 

1430 zpar$(1)=CHRS (27)+"W"+CHR$ (1) [2881] 
'‘ Breitschrift ein 

1440 zpar$(2)=CHR$ (27)+"W"+CHR$ (0) [1465] 
'‘ Breitschrift aus 

1450 h£flag=0:zwr$(i,j)=" ":ustr$(i,j)=" ": [2273] 

GOSUB 1520:RETURN 

1460 zpar$(1)=CHR$ (27)+"W"+CHRS$(1)+CHR$ (27 [3612] 

)+"-"+CHRS (1) ' BS unterstr. ein 

1470 zpar$(2)=CHRS(27)+"-"+CHRS(O)+CHRS (27 [4586] 

)+"W"+CHRS (0) ' BS unterstr. aus 

1480 hflag=0:zwr$(i,j)=" ":ustr$(i,j)="_": [3333] 

GOSUB 1520:RETURN 

1490 ' [117] 

1500 '--- Breitschrift f}r Bildschirm simu [3917] 

lieren --- 

1910: * [117] 

1520 IF zwr$(i,j)=" " THEN IF size(i,j)>(s [15061] 

palten\2) THEN zeile23$="Text f}r Breitsch 

Sonderheft 5’87 


rift zu lang !":zeile24$="Bitte anderen Ze 
ilenparameter waehlen !":GOSUB 1050:PRINT 
CHR$(7):FOR x=1 TO 1000:NEXT:j=j-1:RETURN 
1530 LOCATE #4,1,(j):PRINT #4,STRING$ ( (spa 
Iren); 

1540 LOCATE #4,1,(j) 

1550 IF zflag(i)=1 THEN PRINT #4,SPACES$S((s 
palten-(size(i,j)+size(i,j)*LEN(zwr$(i,j)) 
I))\2); 

1560 FOR x=1 TO size(i,j) 

1570 PRINT #4,MID$((label$(i,j)),x.1); 
zwr$(i,j); 

1580 NEXT x 

1590 LOCATE #4,1,(j) 

1600 IF zflag(i)=1 THEN PRINT #4,SPACES((s 
palten-(size(i,j)+size(i,j)*LEN(zwr$(i,j)) 
Y)\2); 

1610 PRINT #4,CHR$(22);CHR$ (1); 

1620 PRINT #4,STRING$ ((size(i,j)+size( 
i,3)*LEN(zwr$(i,j))), (ustr$(i,j))); 

1630 PRINT #4,CHR$(22);CHR$(0); 

1640 RETURN 

1650 ' 

1660 '--- Strings fir Schriftartenmenue -- 


1670 ' 


1680 z11$="Globale Druckparameter":z2$=STR 
ING$ (22,"-") 

1690 glopar$(1)="Standard" 

1700 glopar$(2)="Kursiv" 

1710 glopar$(3)="NLQ" 

1720 glopar$(4)="Standard + Fettdruck" 
1730 glopar$(5)="Kursiv + Fettdruck":RETUR 
N 

1740 z1$="Zeilenabh{ngige Druckparameter": 
z2$=STRING$ (30,"-") 

1750 zeipar$(1)="Hochgestellt" 

1760 zeipar$(2)="Unterstrichen" 

1770 zeipar$(3)="Breitschrift" 

1780 zeipar$(4)="Breitschrift unterstriche 


1790 zeipar$(5)="Keine zus{tzlichen Parame 


1800 RETURN 


1860 modus$=" EDITOR" 
1870 zeile23$="" 
1880 zeile24$="" 
1890 GOSUB 1040 
1900 ORIGIN 322,340 
1910 DRAWR 315,0:DRAWR 0,-266:DRAWR -315,0 
:DRAWR 0,266 
ı 1920 GOSUB 480:CLS #3 
1930 LOCATE #3,9,2: PRINT #3,z1$ 
1940 LOCATE #3,9,3: PRINT #3,z2$ 
1950 LOCATE #3,2,6: PRINT #3,z3$ 
1960 FOR x=1 TO etikettenanzahl 
1970 LOCATE #3,2,7+x:PRINT #3,etiwert$ 
(x) 
1980 NEXT x 
‚ 1990 zeile23$="Bitte w{[hlen Sie: 
050:PRINT CHRS$S (7); 
2000 ein$="":WHILE ein$="" OR INSTR("1234" 
\ „ein$)=0:ein$=INKEY$:WEND 
| 2010 cLs #2 
2020 ON VAL(ein$) GOSUB 580,610,640,670 
| 2030 farbe=1:G0SUB 710 


":GOSUB 1 


2040 CLS#3:LOCATE #3,2,2: PRINT #3,"Sie ha 
| ben gewihlt:" 
ı 2050 LOCATE #3,2,3: PRINT #3,"------ 
| 2060 LOCATE #3,2,5: PRINT #3, "Etiket 
| EINE: eins 
2070 LOCATE #3,2,7: PRINT #3,"Zeilen 
zahl :  "z;zeilen 
ı 2080 LOCATE #3,2,9: PRINT #3,"Spalte 
n (Normalschrift): ";spalten 
2090 LOCATE #3,2,10: PRINT #3,"Spalt 
ı en (Breitschrift) ";spalten\2 


ı 2100 zeile23$="Etikettenwahl korrekt ? (J 


5’87 Sonderheft 


[2914] 


[763] 
[6388] 


[1153] 
[1851] 


[356] 
[763] 
[6388] 


[1541] 
[4367] 


[1545] 
[555] 
[117] 
[2500] 


[117] 
[3301] 


[1236] 
[1204] 
[619] 

[3002] 
[3530] 


[4755] 


[1890] 
[2872] 
[2470] 
[3702] 


[3636] 


[555] 
[117] 
[3447] 


[848] 
[3447] 


ELIT] 
[1578] 
[734] 
[529] 
[875] 
[393] 
[2333] 
[1087] 
[1094] 
[927] 
[1605] 
[2069] 
[1728] 


[356] 
[3548] 


[3402] 
[372] 

[1439] 
[841] 

[2909] 
[2615] 
[2723] 
[3057] 
[4676] 
[4767] 


[5114] 


2680 CLS #2 


/N)":GOSUB 1050:PRINT CHRS$S (7); 
2110 GOSUB 1090 

2120 IF ein$="N" THEN farbe=0:G0SUB 710:CL 
S #3:GOTO 1930 

2130 WINDOW #4,2,2+(spalten-1) ,5,5+(zeilen 
-1):PAPER #4,0:PEN #4,1:CLs #4 

2140 FOR x=1 TO zeilen 

2150 LOCATE spalten+2,x+4: PRINT" " 
2160 LOCATE spalten+2,x+4: PRINT x 
2170 NEXT x:ORIGIN 4+(spalten*8+8) ,340:DRA 
WR 0,-(zeilen*16+8) ,, farbe 

2180 zeile23$="Wieviel Etiketten dieser Gr 
ı”e wollen Sie editieren ?" 

2190 GOSUB 1050:PRINT CHRS$S (7); 

2200 LOCATE #2,2,2:INPUT #2,"Anzahl";anzah 
PR 


2210 IF anzahl <1 THEN 2180 

2220 ERASE label$,breit$,zeile$,size,zeilp 
arl$,zeilpar2$,zwr$,ustr$ 

2230 DIM label$(anzahl, zeilen) ‚,breit$(anza 
hl,zeilen) ‚zeile$(anzahl ,, zeilen) 

2240 DIM size (anzahl, zeilen) ‚zeilpar1$ (anz 
ahl,zeilen) ‚zeilpar2$ (anzahl, zeilen) 

2250 DIM zwr$(anzahl, zeilen) ‚ustr$ (anzahl, 
zeilen) 

2260 FOR i=1 TO anzahl 


2270 FOR j=1 TO zeilen 

2280 CLS #2:LOCATE #2,2,1:PRINT #2 
‚sstaketts ",1;" Zeile; "5 

2290 LOCATE #2,2,2:PRINT #2, "Einga 
be: ";STRING$((spalten) ,".") 

2300 LOCATE #2,10,2:INPUT #2,"";la 
bel$(i,j) 

2310 size(i,j)=LEN(label$(i,j)) 
2320 IF size(i,j)>spalten THEN PRI 


NT CHR$ (7) :GOTO 2280 


2330 LOCATE #4,1,(j):PRINT #4,1labe 
1814.39): 

2340 NEXT j 

2350 CLS #2:LOCATE#2,2,1:PRINT #2,"Eti 
kett ";i;" korrekt ? (J/N)";CHR$S(7) 

2360 GOSUB 1090 

2370 IF ein$="J" THEN 2460 

2380 CLS #2:LOCATE #2,2,1:INPUT #2,"We 


lche Zeile ist nicht korrekt";j 


2390 CLS #2:LOCATE #2,2,1:PRINT#2,"Eti 

Rate: "3," Zeiler "sg 

2400 LOCATE #2,2,2:PRINT #2,"Eingabe: 
";STRING$ ((spalten) ,".") 

2410 LOCATE #2,10,2:INPUT #2,"";1label$ 
(i,j) 

2420 IF LEN(label$(i,j)) >spalten THEN 
2390 

2430 LOCATE #4,1,(j):PRINT #4,STRINGS( 


(spalten) ," "); 

2440 LOCATE #4,1,(j):PRINT #4,1label$(i 
lH 

2450 GOTO 2350 

2460 CLS #4:NEXT i 

2470 CLS #3:CLS #4:RETURN 

2480 ' 


2530 modus$=" SCHRIFTART" 
2540 zeile23$="" 

2550 zeile24$="" 

2560 GOSUB 1040:G0OSUB 1670:GOSUB 1740 
2570 FOR j=1 TO zeilen 


2580 LOCATE #4,1,(j):PRINT #4,1label$(i 
3): 
2590 NEXT j 


2600 CLS #3:LOCATE #3,2,2: PRINT #3,z11$ 
2610 LOCATE #3,2,3:PRINT #3,z2$ 
2620 FOR x=1 TO glopar 


2630 LOCATE #3,2,4+x:PRINT #3,x;glopar 
$(x) 
2640 NEXT x 


2650 zeile24$="Bitte w{[hlen Sie: 
050:PRINT CHR$S (7); 

2660 LOCATE #2,2,1:PRINT #2, "Etikett : ";i 
2670 ein$="":WHILE ein$="" OR INSTR ("12345 
",‚ein$)=0:ein$=INKEY$:WEND 


":GOSUB 1 


Tips & Tricks 


[905] 
[2468] 


[3997] 
[1123] 
[1799] 
[1786] 
[3806] 
[6330] 


[1798] 
[2125] 


[721] 
[3585] 


[6249] 
[5616] 
[3368] 


[1073] 
[1689] 


[4037] 
[4751] 
[3237] 


[1601] 
[2535] 


[2716] 


[370] 
[5607] 


[905] 
[522] 
[6361] 


[4037] 
[4751] 
[3237] 
[3109] 
[2914] 
[2716] 


[309] 
[861] 
[1147] 
[117] 
[3447] 


[2219] 
[3447] 


[117] 
[1907] 
[734] 
[529] 
[1798] 
[1689] 
[2716] 


[370] 

[1947] 
[2356] 
[1453] 
[1546] 


[356] 
[3505] 


[2592] 
[3640] 


[372] 
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Tips & Tricks 


2690 count=VAL(ein$) 

2700 ON VAL(ein$) GOSUB 1190,1260,1230,120 
0,1290 

2710 gpar1$(i)=gpar$(1):gpar2$(i)=gpar$(2) 
2720 LOCATE #3,2,12:PRINT #3,"Sie haben ge 
wihlt:" 

2725 zeile24$="" 

2730 LOCATE #3,2,13:PRINT #3,STRING$ (18,"- 
nF 

2740 LOCATE #3,2,15:PRINT #3,glopar$ (count 
Y:CHRSI7); 

2750 zeile23$="Parameterwahl korrekt ? (J/ 
N)":GOSUB 1050:G0SUB 1100 

2760 IF ein$="N" THEN GOTO 2600 

2770 CLS #3:LOCATE #3,2,2: PRINT #3,z1$ 
2780 LOCATE #3,2,3:PRINT #3,z2$ 

2790 FOR x=1 TO zeipar 

2800 LOCATE #3,2,4+x:PRINT #3,x;zeipar 
$(x) 

2810 NEXT x 

2820 GOSUB 1740 

2830 FOR j=1 TO zeilen 


2840 CLS #2:LOCATE #2,2,1:PRINT #2,"Et 
Iikett: "st4® Zeile: 53 

2850 LOCATE #2,2,2:PRINT #2, "Parameter 
=NE: "ECHRS.L7) 

2860 ein$="":WHILE ein$="" OR INSTR("1 


2345" ,ein$)=0:ein$=INKEY$:WEND 


2870 hflag=0 

2880 ON VAL (ein$) GOSUB 1370,1400,143 
0,1460,1360 

2890 zeilpar1$(i,j)=zpar$(1):zeilpar2$ 


(i,j)=zpar$(2):hflag(j)=hflag 

2900 NEXT j 

2910 CLS #3:LOCATE #3,2,1:PRINT #3,"Zus{tz 
lich zum nebenstehenden " 

2920 LOCATE #3,2,2:PRINT #3,"Schrif 
tbild werden folgende Zeilen" 

2930 LOCATE #3,2,3:PRINT #3, "<HOCHG 
ESTELLT> gedruckt: " 

2940 y=0:FOR x=1 TO zeilen 

2950 IF (hflag(x)=1) THEN LOCATE 
#3,5,4+y:PRINT #3,x: y=y+1 

2960 NEXT x 

2970 ZEILE24$="" 

2980 zeile23$="Parameterwahl korrekt ? (J/ 
N)":GOSUB 1050:PRINT CHRS$S (7) 

2990 GOSUB 1100 

3000 IF ein$="N" THEN 2770 

3010 zeile23$="Sollen die Zeilen zentriert 
werden ? (J/N)":GOSUB 1050 

3020 PRINT CHR$(7)::GOSUB 1090 

3030 IF ein$="N" THEN zflag(i)=0:CLS #4:RE 
TURN 

3040 zflag(i)=1:FOR j=1 TO zeilen :GOSUB 1 
520:NEXT j:FOR x=1 TO 2000:NEXT:CLS #4:RET 
URN 


3080 ' 

3090 modus$="DRUCK" 

3100 zeile23$="Bitte das richtige Etikette 
nformat in den Drucker einlegen." 

3110 zeile24$="Wenn Drucker bereit, bitte 

mit <SPACE> quittieren " 

3120 GOSUB 1040 

3130 ein$="":WHILE ein$<>CHR$ (32) :ein$=INK 
EY$:WEND 

3140 GOSUB 1150 

3150 FOR i=1 TO anzahl 

3160 PRINT #8,deutsch$;vorschub$;gpar1$(i) 


3170 FOR j=1 TO zeilen 

3180 PRINT #8,SPACES (3); 

3190 IF zflag(i)=1 THEN PRINT #8,SPACES((s 
palten-(size(i,j)+size(i,j)*LEN(zwr$(i,j)) 
ERW 

3200 PRINT #8, zeilpar1$(i,j);label$(i, 
j);zeilpar2$(i,j):NEXT j 

3210 PRINT#8, gpar2$(i) 

3220 NEXT i 

3240 RETURN 

3250 '------------------ ---------------- - - 
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[4880] 


[875] 
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KURZBESCH 


modus$="BESCHREIBUNG" 

zeile23$="" 

zeile24$="" 

GOSUB 1040 

RESTORE 3410 

FOR i=1 TO 14 

READ z$ 

LOCATE #5,1,1+i 

PRINT #5,z$ 

NEXT i 

zeile23$="Weiter mit beliebiger Taste 
":GOSUB 1050 
3390 ein$="":WHILE ein$="":ein$=INKEY$:WEN 
D 
3400 RETURN 
3410 DATA" 
ESCHRELBEUNG" 
3420 DATA"UNILAB V2.0 ist ein menuegesteue 
rtes Editier- und Druckprogramm fjr Endlos 
aeL-" 
3430 DATA"ketten. Vier Etikettenformate si 
nd bereits im Programm gespeichert. Durch 
den " 
3440 DATA"modularen Aufbau k!nnen die Form 
ate einfach gefandert oder ausgetauscht we 
rden." 
3450 DATA"Das gleiche gilt f|r die Drucker 
anpassung." 
3460 DATA"" 
3470 DATA"Das Programm l{uft wie folgt ab: 
3480 DATA"Nach Wahl der taste <E> befindet 
sich der Computer im Editiermodus. Sie ge 
ben " 
3490 DATA"den gewInschten Text der Etikett 
en zeilenweise ein. Ist alles korrekt, geh 
ih 
3500 DATA"es weiter mit der Auswahl der Sc 
hriftarten, global und zeilenweise, fir je 
des" 


KURZB 


3510 DATA "Etikett. Nach dem Einlegen der 
Etiketten in den Drucker ( Pfeil der linke 
Yu Ya 

3520 DATA"Stachelwalze auf 9'' ), 
lle Etiketten gedruckt." 
3530 DATA"" 

3540 DATA"Viel Spa” mit 


werden a 


UNILAB V2.0" 


GOSUB 360:G0SUB 780 


GOSUB 230:GOSUB 960 
GOSUB 1000 
CLS #5 
modus$="HAUPTMENUE " 
zeile23$=" <«E> = Editor <K 
= Kurzbeschreibung <9Q> = Quit" 
3725 zeile24$="" 
3730 GOSUB 1040 
3740 ein$="":WHILE ein$="" OR INSTR("EKQ", 
ein$)=0:ein$=UPPER$ (INKEY$) :WEND 
3750 IF UPPER$(ein$)="E" THEN GOSUB 1820:F 
OR i=1 TO anzahl:zflag(i)=0:G0SUB 2490:NEX 
T i:GOSUB 3050:G0TO 3700 
3760 IF UPPER$(ein$)="K" THEN GOSUB 3250: 
GOTO 3700 
3770 IF UPPER$(ein$)="Q" THEN GOSUB 3550 
3780 END 
3790 SAVE"unilab2 
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[1089] 
[3447] 


[117] 
[1347] 
[734) 
[529] 
[875] 
[733] 
[311] 
[331] 
[340] 
[536] 
[375] 
[2571] 


[2253] 


[555] 
[2340] 


[7877] 


[7605] 


[6875] 


[4251] 
[208] 


[3167] 
[7820] 


[6078] 


[7836] 


[4709] 


[5453] 


[208] 
[2810] 
[3447] 


[805] 
[3447] 
[117] 
[91] 
[555] 
[117] 
[3553] 
[1997] 
[3553] 


[117] 
[1677] 


[1323] 
[851] 
[385] 
[1975] 
[5447] 


[529] 
[875] 
[4682] 


[5866] 


[2934] 


[1753] 


Erzeugung eines READY 
Signals für 5 1/4*-Floppy- 
Laufwerke am Schneider-CPC. 


Betreibt man ein oder zwei 5 1/4*Laufwerke am CPC und legt das READY-Si- 
gnal einfach auf Masse, so stellt man beim Betreiben des Computers unter CP/M 
fest, daß das System nicht mehr in der Lage ist einen Diskettenwechsel festzu- 
stellen. Nimmt man eine Diskette nach der Aufforderung »Remove disc, preß 
any key« heraus und drückt eine Taste, so erscheint diese Aufforderung immer 
wieder. 


Die Ursache ist, daß für das READY-Si- 
gnal folgende Bedingungen abgefragt 


Belegung 74 LS 122: 


werden: 1 Al 
2A2 
1. dreht der Motor des Disketten-Lauf- 3Bl 
werks, 4B2 
3 ELR 
2. ist eine Diskette eingelegt, 6not Q 
7GND 
3. ist das Laufwerk gewählt. 8Q 
9R int 
Legt man das READY-Signal aufMasse, 10 NC 
sind ständig alle drei Bedingungen er- IC ext 
füllt. Abhilfe schafft Schaltung Nr.: 1. 12 NC 


Erzeugung eines READY-Sıgnals 


En 


3 
mn ea: aısa 
14 Vec 
8149 7 GN 


\ 


STD Drive Sel, 


Schaltung 1 


TESTPUNKT IM FLOPPY-LAUFWERK 


+54 


INDEX 
INDEX OUTPUT 
DETECTOR 1 TESTPUNKT  ENABLE SECTOR 


Schaltung 2 
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B3BRet/Cext 
14 Vec 


Stückliste: 


1IC 74 LS 122 

1 IC 74 LS 01 

1 Transistor BC170B oder BC108B 
1 Widerstand 160 kOhm 1/8 W 

1 Widerstand 2 kOhm 1/8 W 

2 Widerstände 4,7 kOhm 1/8 W 

2 Elkos 10 uF 0 V 


Auf der Platine des Laufwerks wird der 
Testpunkt für die Index-Lichtschranke 
abgegriffen. Wenn eine Diskette einge- 
legt ist und der Motor dreht, wird am IC 
l der Ausgang Q (8) HIGH, da das 
74LS122 immer wieder nachgetriggert 
wird. Dadurch sind die Bedingungen | 
und 2 erfüllt. Der 160 kOhm Widerstand 
mit dem 10 uF Kondensator bestimmen 
die Zeitkonstante. Hinter den DIP-Schal- 
tern auf der Laufwerks-Platine wird das 
Drive Select Signal abgegriffen und über 
das NAND-Gate 1 invertiert. Sind nun 
alle drei Bedingungen erfüllt, so sind die 
Eingänge von Gate 2 logisch 1. Dadurch 
ist der Ausgang logisch O und der Aus- 
gang von Gate 3 wird logisch 1. 


Der Ausgangstransistor leitet und schaltet 
das READY-Signal gegen Masse. Ent- 
fernt man nun die Diskette aus dem Lauf- 
werk, sind die Bedingungen 1 und 2 nicht 
mehr erfüllt, der Ausgang Q von IC 1 
bleibt ständig LOW und der Transistor 
bleibt gesperrt. 


Die Schaltung läßt sich leicht auf eine 
Experimentierplatine aufbauen. 


Testpunkte für die Index-Lichtschranke: 


Siemens FDD 100-5 TP5 
Micropolis M/N 1115-VI TP8, Pos.2 
Tandy TRS 80 Mini Disc TP7 


(Siehe Schaltung Nr.: 2) 


Zur Funktion des B-Laufwerkes ist noch 
folgendes anzumerken: Wenn nach dem 
Einschalten oder RESET des Computers 
nur eine Diskette in das B-Laufwerk ein- 
gelegt und auf B umgeschaltet wird, pas- 
siert es manchmal, daß folgende Fehler- 
meldung erscheint: »Disc missing , Re- 
try, Ignore or Cancel«. In diesem Falle ist 
»R« für Retry einzugeben und der Com- 
puter läuft normal. 


Man sollte nur Disketten doppelter Dich- 
te und guter Qualität verwendenden. Bei 
weißer Ware oder einfacher Dichte habe 
ich sehr oft Schreib- und Lesefehler ge- 
habt, die in Track 0 oder 37 bis 39 auf- 
traten. Diese sehr billigen Disketten lau- 
fen auf dem Apple oder C64, da diese 
Computer normalerweise nur von Track 
l bis 35 bzw. 36 formatieren. 


(Klaus Munsteiner) 
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DCF-77 
Zeitsignal 


(1.3.1987) 


Einlaufende Daten der Version ACS-77 V3.1 


9 ° 7 1 & 1 1 ° 3 ° 7 8 1 Beispiel von mög- 

. s 3 3 : E E E : : : s : lichen Daten 

8 E) : ® : [) 8 : 2 : 3 E : 

E) 3 E s E Ei : 3 : 8 3 s to. Tag 1 =Sonntag 

® : s : Ei : : ® : E Booelacnccse Jahr 78=1987 

s 3 s 2 E : 2 : Isola nennen“ Monat 30=März 

s E) : 2 : ® Bonulooooeneenenennnennnnene Datum 10=01. 

: 3 3 3 Sasnliene sa nein nein ee ee Stunde #1=1& Uhr 

s L EEE TEEN ELLE ULUHEN TEST Minute 71=17 Min. 
EEE ENERTEERENERLLLELZILSUEI LITT De Sekunde 90=09 Sek. 


Sobald die Jahreszahl = 87 erkannt wird (im Programm = 78 da die Ei - 
ner als erstes einlaufen) werden alle nachfolgenden Daten in die Zeit- 
variablen eingelesen und zwar wie im gezeigten Beispiel ersichtlich 
1.Sekunden Einer 2.Sekunden Zehner 3.Minuten Einer 4.Minuten Zehner 
5.Stunden Einer 6.Stunden Zehner 7.Datum Einer 8.Datum Zehner 9.Monat 
Einer 10.Monat Zehner 11.Jahr Einer 12.Jahr Zehner 13.Wochentag. 


13.Stelle Wochentage: 


3 = Mittwoch 
7 = Sonntag 


1 = Montag 2 = Dienstag 4 = Donnerstag 


5 = Freitag 6 = Samstag 


Abb.l 

nv f le i 23 

Diese wird unmittelbar an der Uhr eingebaut. 
T = BC317 


D = 1N4148 
R = 1.2 KOhm 


Signal von Uhr -> 


=--> CPC 


abgeschirmt 


Abb. 2 


Daten von Uhr 


25 pol. Anschlußbuchse/-Stecker 


1 4 7 10 13 der RS-232 Schnittstelle 
o0000000000o0 Vortex und Schneider 
14 17 20 23 25 


N.S. An meinem CPC 6128 wird das Vortex Laufwerk mit der Schnitt - 
stelle des Typ XRS betrieben. 


Die Programme wurden mit DISCKIT2 unter CP/M 2.2 auf die 5 1/4 
Zoll Diskette übertragen. 


Abb. 3 
88 EPE 


Die physikalisch-technische Bundesan- 
stalt in Braunschweig gibt über den 
Sender Mainflingen (bei Frankfurt) 
das amtliche Zeitzeichen in der Bun- 
desrepublik. Diese codierten Zeichen 
können über geeignete Empfänger de- 
kodiert werden, wobei eine sehr ge- 
naue Zeitanzeige zur Verfügung steht. 


Wer sich über die technischen Einzelhei- 
ten genauer informieren will, besorgt 
sich entsprechende Publikationen. So 
wurde mir vor einigen Jahren der Auszug 
aus PTB-Bericht PTB-Me-23 (März 
1979) von der Phy.-Techn. Bundesanstalt 
zur Verfügung gestellt, der für technisch 
Interessierte ein Leckerbissen ist. Im 
übrigen wird auf die Bestimmung der 
Deutschen Bundespost für den Empfang 
von DCF77, der gebührenfrei ist, hinge- 
wiesen. 


So bietet eine namhafte Electronik-Ver- 
sandfirma schon mehrere Jahre unter der 
Bezeichnung »Renkforce ACS-77« Ato- 
mic-Clock-System eine Uhr an, die als 
Einbaumodul (Einbau in eigenes Gehäu- 
se) verhältnismäßig preiswert ist. Als Al- 
ternative zu einer Hardware-Uhr ist die- 
ser Baustein nicht zu verachten. 


Die Uhr dient an meiner Amateurfunk- 
station seit Jahren zur Auswertung der 
Zeitsignale wie Steuerung von Tochter- 
uhren nebst Auswertung der UT-Time. 


An die eingebaute V24 Schnittstelle kann 
der CPC über einen Inverter mit Transi- 
stor BC 317 angeschlossen werden, so- 
weit dieser über eine serielle Schnittstelle 
verfügt. 


Geliefert wird eine Standardversion 
ACS-77 V3.1, die leider bei der Übertra- 
gung der ASCIH-Zeichen am Ende der 
Zeitdaten kein CR/LF anhängt, welches 
in Verbindung mit Computern vorteilhaft 
wäre. Sonderversionen sind zwar erhält- 
lich, aber es wird nicht darauf hingewie- 
sen, so daß in der Regel die Standardver- 
sion ausgeliefert wurde. »Sollte die Aus- 
führung mit CR/LF vorhanden sein, be- 
nutzt man dies natürlich zur Erkennung 
der Zeiteinlesung«, anstatt der Jahres- 
zahl. 


Das Programmbeispiel 1 und 2 ist für 
eine »Vortex RS-232C Schnittstelle«. Im 
Programm 1 werden die Sekunden mit 
angezeigt, wobei sich das Programm 2 in 
Ihre eigenen Programme einbinden läßt. 
Funkamateure nutzen zur Auswertung 
die UT-Time, um die Zeit in die Logaus- 
wertung einzubeziehen. 
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Damit sich die Besitzer der Schneider 
RS-232 Schnittstelle helfen können, wur- 
de im »Programmbeispiel 3« die Schnitt- 
stelleneinstellung dargestellt. 
Einlaufende Daten der Version ACS-77 
V3.1 (1.3.1987, s. Abb. 1) 


Sobald die Jahreszahl = 87 erkannt wird, 
(im Programm = 78, da die Einer als er- 
stes einlaufen), werden alle nachfolgen- 
den Daten in die Zeitvariablen eingelesen 
und zwar wie im gezeigten Beispiel er- 
sichtlich: 


l. Sekunden Einer 
2. Sekunden Zehner 
3. Minuten Einer 


fur 464-664-6128 
10 RT [1668] 
* 
20 Ara (c) HJZ DKIPM “xx [946] 
* 
30 VERKEHR KA a a a a a [1668] 
* 
40 MODE 2:DIM z$(13) [1634] 
50 'Jahr einlesen [611] 
60 OPENIN "dc£77.dat":INPUT#9, jahr$:CLOSEI [2078] 
N 
70 IF jahr$="" THEN n=21 :GOTO 180 [2698] 
80 WINDOW 1,80,2,25:WINDOW#7,1,80,1,1 [2987) 
90 'Serielle Schnittstelle Vortex [2188] 
100 ıSETSIO,300,300,0,8,0,1 [2105] 
110 ıINITSIO [852] 
120 :SETTIMEOUT, 1000 [2056) 
130 DEFINT s,z:s=0:z=0 [1227) 
140 :INCHAR,@s,@z [1335] 
150 z$=CHR$(z) [600] 
160 zeit$=zeit$+z$ [980] 
170 IF INSTR(zeit$,jahr$) THEN 200 [817) 
| 180 IF n»20 THEN n=0:CLS:PRINT:INPUT"Jahr [7433] 
Zehner";jahr1$:INPUT"Jahr Einer ";jahr2$:j 
ahr$=jahr2$+jahr1$:0PENOUT"dc£77.dat":PRIN 
T#9, jahr$:CLOSEOUT:GOTO 80 
| 190 n=n+1:G0TO 130 [365] 
| 200 n=0:n1=0 [231] 
| 210 DEFINT s,z:s=0:z=0 [1227) 
220 :INCHAR,@s,@z [1335) 
230 z$(n1)=CHR$(z) [1486) 
240 IF datum=1 AND ni=6 THEN 390 [566] 
250 IF n1>12 THEN 270 [1162] 
260 ni=n1+1:G0TO 210 [538] 
270 IF datum=1 THEN 390 [533] 
280 PRINT#7,CHRS (24) STRING$ (80,32)" "; (1941) 
290 IF z$(0)="1" THEN PRINT#7,"Montag " [2596] 
| 300 IF z$(0)="2" THEN PRINT#7,"Dienstag " [2698] 
310 IF z$(0)="3" THEN PRINT#7,"Mittwoch " [2662] 
320 IF z$(0)="4" THEN PRINT#7,"Donnerstag" [3319] 
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4. Minuten Zehner 
5. Stunden Einer 
6. Stunden Zehner 
7. Datum Einer 

8. Datum Zehner 
9. Monat Einer 

10. Monat Zehner 
ll. Jahr Einer 

12. Jahr Zehner 

13. Wochentag. 


13. Stelle Wochentage: 


1 = Montag 
2 = Dienstag 
3 = Mittwoch 


4 = Donnerstag 


5 = Freitag 
6 = Samstag 
7 = Sonntag 


Inverterstufe mit Transistor: 


Hardware 


Diese wird unmittelbar an der Uhr ein- 


gebaut. 

T = BC317 

D = 1N4148 
R = 1.2 KOhm 
(s. Abb. 2) 
Daten von Uhr 
(s. Abb. 3) 

3 = DatenIn 

4 — 8 Brücke 


(Hans J. Ziegler/SH) 


330 IF z$(0)="5" THEN PRINT#7,"Freitag " 


340 IF z$(0)="6" THEN PRINT#7,"Sanstag " 


350 IF z$(0)="7" THEN PRINT#7,"Sonntag " 


360 PRINT#7,",den "; 

370 LOCATE#7,17,1:PRINT#7,2$(8)+z$(7)+"."+ 
z$(10)+2$(9)+"."+z$(12)+z$(11) 
380 LOCATE#7,40,1:PRINT#7," (c) 
RS (24) 

390 LOCATE#7,68,1:PRINT#7,CHRS(24)"[ "z$(6 
Y+zs 5 FE EZI AZ letz 2)" 7 
"CHRS (24) 

400 zeit$=" " 

410 datum=1 

420 GOTO 130 


HJZ "CH 


VRR KK KK TH U U KK a a a a A a a a a a a € 


'akakr “xx 


(c) HJZ DKIPM 


RR 


MODE 2:DIM z$(13) 

‘Jahr einlesen 

OPENIN "dc£77.dat":INPUT#9, jahr1$: INPUT 
#9, jahr2$:INPUT#9, som$: jahr$=jahr2$+jahr1$ 
:CLOSEIN 
70 CLS:PRINT"Jahr ";jahrl$+jahr2$;:IF som$ 
="j" OR som$="J" THEN PRINT" MESZ ":IF 
som$="n" OR som$="N" THEN PRINT"MEZ " 
80 PRINT"Aenderung vornehmen (j/n)" 
90 a$=INKEY$S:IF a$="" THEN 90 
100 IF a$="j" OR a$="J" THEN n=40:60T0 500 
50 
110 WINDOW 1,80,2,25:WINDOW#7,1,80,1,1 
120 'Serielle Schnittstelle Vortex 
130 ıSETSIO,300,300,0,8,0,1 
140 ;INITSIO 
150 }SETTIMEOUT, 1000 
160 GOSUB 50000 
170 EVERY 1000 GOSUB 50000 
180 LOCATE 1,2:PRINT"Zwischen Zeile 180 bi 
s 40999 koennen Sie Ihr Programm einbinden 

ııı 1" 


190 GOTO 180 


[2639] 
[2806] 
[3726] 


[1188] 
[3426] 


[2786] 


[5114] 


[650] 
[581] 
[371] 


[1668] 
[946] 
[1668] 


[1634] 
[611] 
[4912] 


[6155] 


[2925] 
[1090] 
[1629] 


[2987] 
[2188] 
[2105] 
[852] 

[2056] 
[950] 

[1462] 
[6435] 


[401] 
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50000 DEFINT s,z:s=0:z=0 [1227] 

50010 }INCHAR,@s ,@z [1335] 50340 IF zi»1 AND som=1 THEN zi=z1-2:G0T0 [3502] 
50020 z$=CHR$(z) [600] 50380 

50030 zeit$=zeit$+z$ [980] 50350 IF zi=0 AND som=0 THEN z1=23:G0T0O 50 [2844] 
50040 IF INSTR(zeit$,jahr$) THEN 50070 [1159] 380 


50050 IF n»38 THEN n=0:CLS:PRINT:INPUT"Jah [13844] 
r Zehner";jahr1$:INPUT"Jahr Einer ";jahr2$ 


50360 IF zi=0 AND som=1 THEN z1=22:G0T0 50 [2615] 
380 


:INPUT"Sommerzeit (j/n)";som$:OPENOUT"dcf7 50370 IF zi=1 AND som=1 THEN z1=23 [2184] 
7.dat":PRINT#9, jahr1$:PRINT#9, jahr2$: PRINT 50380 z2$=STR$(z1) [1034] 
#9,som$:CLOSEOUT:ERASE z$:GOTO 10 50390 LOCATE#7,68,1:PRINT#7,CHR$S(24)"UT [" [4492] 
50060 n=n+1:GOTO 50000 [668] 22$+":"+z$(4)+z$(3)" ]"CHR$(24) 

50070 n=0:n1=0 [231] 50400 zeit$=" " [650] 

50080 DEFINT s,z:s=0:z=0 [1227] 50410 datum=1 [581] 

50090 !INCHAR,@s,@z [1335] 50420 RETURN [555] 

50100 z$(n1)=CHR$(z) [1486] 

50110 IF datum=1 AND nl=6 THEN 50310 [640] 

50120 IF ni»>12 THEN 50140 [1066] 

50130 n1=n1+1:G0TO 50080 [736] 

50140 IF datum=1 THEN 50310 [679] 10 MODE 2:DIM z$(13) [1634] 
50150 IF som$="j" OR som$="J" THEN som=1 [2873] 20 'Jahr einlesen [611] 

50160 IF som$="" OR som$="n" OR som$="N" T [2160] 30 OPENIN "dc£77.dat":INPUT#9,jahr$:CLOSEI [2078] 
HEN som=0 N 

50170 CLS [91] 40 WINDOW 1,80,2,25:WINDOW#7,1,80,1,1 [2987] 
50180 PRINT#7,CHRS(24)STRING$(80,32)" "; [1941] 41 PRINT [361] 


50190 IF z$(0)="1" THEN PRINT#7,"Montag [2596] 42 PRINT"Beachten Sie,dass die erste einla [5890] 
ufende Zahl die >> 13. Stelle << ist!!!" 


50200 IF z$(0)="2" THEN PRINT#7,"Dienstag [2698] 50 'Serielle Schnittstelle RS232 Schneider [2718] 


: 60 OUT &F8E8,6 [296] 
50210 IF z$(0)="3" THEN PRINT#7,"Mittwoch [2662] 70 OUT &F8EO,3 [204] 
“ 80 OUT &F8EL,0 [187] 
50220 IF z$(0)="4" THEN PRINT#7,"Donnersta [3319] 90 OUT &F8ES,1 [301] 
g-; 100 OUT &F8EO,26 [301] 
50230 IF z$(0)="5" THEN PRINT#7,"Freitag [2639] 110 OUT &F8E8,2 [300] 
ur 120 OUT &F8EO,26 [301] 
50240 IF z$(0)="6" THEN PRINT#7,"Samstag [2806] 130 OUT &F8E8,7 [295] 
u 140 OUT &F8ED,51 [386] 
50250 IF z$(0)="7" THEN PRINT#7,"Sonntag [3726] 150 OUT &F8EC,136 [211] 
1 160 OUT &F8ED,1 [413] 
50260 PRINT#7,",den "; [1188] 170 OUT &F8EE,1 [202] 
50270 LOCATE#7,17,1:PRINT#7,z$(8)+z$(7)+". [3426] 180 CALL &BB81 [318] 
"+2$(10)+2$(9)+"."+z2$(12)+z$(11) 190 t=INP (&F8EF) [522] 
50280 LOCATE#7,46,1:PRINT#7,"(c) HJZ dk9pm [3728] 200 rs=INP(&F8ED) [1137] 
"CHRS (24) 210 IF rs<128 THEN GOTO 200 [709] 
50290 IF som=1 THEN LOCATE#7,30,1:PRINT#7, [3371] 220 z=INP (&F8EF) [560] 
CHRS (24) "MESZ"CHRS$ (24) 230 z$=CHR$(z) [600] 
50300 IF som=0 THEN LOCATE#7,30,1:PRINT#7, [3172] 240 zeit$=zeit$tz$ [980] 
CHR$ (24) "MEZ"CHR$ (24) 250 zeit$=RIGHT$ (zeit$,11) [1468] 
50310 LOCATE#7,35,1:PRINT#7,CHRS(24)"[ "z$ [3671] 260 PRINT#7,z$; [546] 
(6)+z$(5)+":"+z$(4)+z$(3)" ]"CHRS(24) 270 IF INSTR(zeit$,jahr$) THEN PRINT#7," " [2714] 

50320 z1$=z2$(6)+z$(5):z1=VAL(z1$) [2032] ;:zeit$="":GOTO 200 
50330 IF z1>0 AND som=0 THEN zi=z1-1:60T0 [1102] 280 GOTO 200 [429] 


Biffe , de Bandiwdeln 


Rt 
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Um den CPC 6128 unter CP/M zu be- 
treiben, sind zwei 5 1/4“Laufwerke 
sinnvoll, da man nur noch mit einem 
Diskettenformat arbeitet und die 
Disketten preiswerter sind. 


Die Umrüstung ist recht einfach. Zuerst 
wird der Computer geöffnet, die 
Stecker werden entfernt und die Plati- 
ne gelöst. 


Neben dem 3“Laufwerk wird ein 6,5 
mm großes Loch in die Abdeckung ge- 
bohrt (siehe Skizze). Vom Verbin- 
dungskabel zwischen Platine und Lauf- 
werk wird die vierte Ader aufgetrennt 
(die erste Ader ist rot und jede fünfte 
grün gekennzeichnet). 


Ein zusätzlicher flexibler Draht wird 
unter die Platine an die Lötstelle von 
Klemme 24 der Anschlußbuchse für 
das zweite Laufwerk gelötet und zum 
Schalter geführt. Die Klemme 24 ist im 
CPC 6128 unbelegt. Die durchgetrenn- 
te vierte Ader wird mit zwei flexiblen 
Drähten verlängert und ebenfalls zum 
Schalter geführt. 


Die Verschaltung erfolgt gem. Schalt- 
plan. Es ist empfehlenswert, die Lei- 
tungen über eine kleine dreipolige 
Steckverbindung zu führen, damit man 
beim Öffnen des Gehäuses die Leitun- 
gen trennen kann. 


Nachdem alles überprüft worden ist, 
kann alles wieder zusammengebaut 
werden (siehe Abb. 1 und 2). Wird der 
Computer eingeschaltet, so verhält er 
sich wie ein ganz »normaler« CPC, 
wenn der Schalter auf das 3“Laufwerk 
zeigt. Schaltet man um, wird das Signal 
»Drive Select 0« auf die Anschlußbuch- 
se des zweiten Lauffwerks gegeben. 
Von dort geht das Signal zum 5 1/4 *A- 
Laufwerk, das sich im gleichen Gehäu- 
se mit dem B-Laufwerk befindet. 


Montage des Schalters 


ee | 


Abb. 2 
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CPC 6128 | 
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Anschluss 


Anschluss 


1 
| 
ü 3”"-Floppy 
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Schaltplan Umbau CPC 6128 


Disc Drive 2 A Drive Select 8 


Verbimlung 


trannen 


Abb. 1 


Zwei 5',“-Laufwerke 
am 
Schneider CPC 6128 


An das Flachbandkabel muß ein zu- 
sätzlicher 34-pol. Stecker angeschlos- 
sen werden, der das neue Laufwerk 
versorgt. Jedes Laufwerk erhält eine 
Platine, die das READY-Signal erzeugt. 


Die DIP-Schalter an den Laufwerken 
müssen auf DSI1 für das A-Laufwerk 
und DS2 für das B-Laufwerk stehen. 


Abschlußwiderstände sollten in die 
Laufwerke nicht eingebaut werden, da 
sie sich im Computer befinden. 


Man sollte 40-Spur-Laufwerke ver- 
wenden (Disketten DD 48 tpi). 


Falls nur 80-Spur-Laufwerke zur Ver- 
fügung stehen, sind diese möglichst im 
80-Spur-Format zu betreiben (Disket- 
ten DD 96 tpi). 


Bei einer Hardwareanpassung von 80 
auf 40 Spuren ist das B-Laufwerk nur 
eingeschränkt und das A-Laufwerk 


überhaupt nicht funktionsfähig. Im 
80-Spur-Format kann auch mit entspre- 
chender Software wie beim 3“- 
Laufwerk auf 43 Spuren formatiert 
werden. 
Bei Doppelkopflaufwerken kann mit ei- 
nem zusätzlichen Schalter das HEAD 
SELECT Signal auf Masse gelegt und 
auf den oberen Kopf umgeschaltet wer- 
den. Wenn dies unter CP/M geschieht, 
ist wie bei Diskettenwechsel zu ver- 
fahren. 
Es muß auf ein ausreichend dimensio- 
niertes Netzteil geachtet werden. Zwei 
getrennte Festspannungsregler L78S5 
bzw. L78S12 sind empfehlenswert. 
CPC 664: 
Die Klemme 24 am CPC 6128 ent- 
spricht der 25 am CPC 664. Es muß 
überprüft werden, daß diese beim 664 
nicht auf Masse liegt, ggf. trennen. 
(Klaus Munsteiner) 
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CPC-Listingservice 
für 464-664-6128 HE 
Mh | 


Wie in jedem Heft, finden Sie auch hier wieder den 
Listingservice, der Ihnen helfen soll, die in unserem Ma- 
gazin abgedruckte "Paperware” in "Software" für Ihren 
Rechner zu verwandeln. Neben den Piktogrammen für 
Kassetten-/Diskettenbetrieb und der Angabe der Lauffä- 
higkeit finden Sie die Super-Eintipphilfe "Checksummer”. 
Um den Checksummer benutzen zu können, genügt es, 
das Programm einmal aufzurufen; es generiert selb- 
ständig den Maschinencode, aktiviert den Checksummer, 
gibt eine Bereitschaftsmeldung aus und löscht sich an- 
schließend selbst wieder. Ab jetzt wird jede Eingabe, nach- 
dem man ENTER gedrückt hat, mit der Ausgabe einer 
Quersumme quittiert. Beim Eintippen von Programmli- 
stings kann man nun durch den Vergleich der beiden in 
eckigen Klammern stehenden Zahlen feststellen, ob man 


Version 464 Version 664 


sich vertippt hat und ggf. den Fehler sofort berichtigen. 
Des weiteren hat man die Möglichkeit, mit dem RSX- 
Befehl CHECK:s,z ein Listing mit den dazugehörigen 
Checksummen zu erzeugen. Die Parameter s und z defi- 
nieren den Ausgabekanal (s=0bis9) und die Zeilennum- 
mer, ab der mit der Ausgabe begonnen werden soll; wird z 
nicht angegeben, so wird an dessen Stelle I ange- 
nommen. 

Vor dem Druck sollte man mit WIDTH x die maximale 
Breite (x) einer Zeile festlegen. Mit Hilfe der RSX-Befehle 
ON und OFF kann der Cheksummer ein- bzw. ausgeschal- 
tet werden. 


Bei der Berechnung der Quersumme werden die Zeilen- 
nummerundLeerzeichen überlesen; zwischen Groß- und 
Kleinschreibung wird nur innerhalb zweier Anführungs- 
striche unterschieden, da ansonsten die Schreibweise von 
Befehlsworten und Variablennamen keinen Einfluß auf 
die Funktionstüchtigkeit eines Basicprogrammes hat. 
(Thomas Fippl) 
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100 REM *** CHECKSUM 464 *** 100 REM *** CHECKSUM 664 *** 100 REM *** CHECKSUM 6128 *** 
110 MEMORY &A4FF 110 MEMORY &A4FF 110 MEMORY &A4FF 

120 FOR a%=&A500 TO &A607 120 FOR a%=&A500 TO &A607 120 FOR a%=&A500 TO &A607 

130 READ byte$ 130 READ byte$ 130 READ byte$ 

140 POKE a%,VAL("&"+byte$) 140 POKE a%,VAL("&"+byte$) 140 POKE a%,VAL("&"+byte$) 

150 NEXT 150 NEXT 150 NEXT 

160 PRINT 160 PRINT 160 PRINT 

170 PRINT'CHECKSUM v2" 170 PRINT'"CHECKSUM v2" 170 PRINT"CHECKSUM v2" 

180 CALL &A500: }ON:NEW 180 CALL &A500: !ON:NEW 180 CALL &A500: !ON:NEW 

190 : 190 : 190 % 

200 DATA 21,09,a5,01,0d,a5,c3,d1 200 DATA 21,09,a5,01,0d,a5,c3,d1 200 DATA 21,09,a5,01,0d4,a5,c3,d1 
210 DATA bc,00,00,00,00,18,a5,c3 210 DATA bc,00,00,00,00,18,a5,c3 210 DATA bc,00,00,00,00,18,a5,c3 
220 DATA 2a,a5,c3,2f,a5,c3,43,a5 220 DATA 2a,a5,c3,2f,a5,c3,43,a5 220 DATA 2a,a5,c3,2f,a5,c3,43,a5 
230 DATA 4f,ce,4f,46,c6,43,48,45 230 DATA 4f,ce,4f,46,c6,43,48,45 230 DATA 4f,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,98,aa,c3 240 DATA 43,cb,00,00,cf,02,ac,c3 240 DATA 43,cb,00,00,cf,02,ac,c3 
250 DATA a8,a5,21,27,a5,18,03,21 250 DATA a8,a5,21,27,a5,18,03,21 250 DATA a8,a5,21,27,a5,18,03,21 
260 DATA 24,a5,28,06,cd,00,b9,c3 260 DATA 24,a5,28,06,cd,00,b9,c3 260 DATA 24,a5,28,06,cd,00,b9,c3 
270 DATA 06,dd,11,3a,bd4,01,03,00 270 DATA 4c,cb,11,5b,bd,01,03,00 270 DATA 49,cb,11,5e,bd,01,03,00 
280 DATA ed,b0,c9,4f,cd,00,b9,0d 280 DATA ed,b0,c9,4f,cd,00,b9,0d4 280 DATA ed,b0,c9,4f£f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 290 DATA 28,08,0d,20,ea,dd,7e,02 290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,11,01,00,cd,a2 300 DATA 18,04,7b,11,01,00,cd,a9 300 DATA 18,04,7b,11,01,00,cd,a6 
310 DATA c1,cd,a3,e7,e5,4e,23,46 310 DATA c1,cd,69,e8,e5,4e,23,46 310 DATA c1,cd,64,e8,e5,4e,23,46 
320 DATA 23,5e,23,56,e1,78,b1,c8 320 DATA 23,5e,23,56,e1,78,b1,c8 320 DATA 23,5e,23,56,e1,78,b1,c8 
330 DATA cd,3c,c4,e5,09,e3,cd,63 330 DATA cd,75,c4,e5,09,e3,cd,59 330 DATA cd,72,c4,e5,09,e3,cd,54 
340 DATA e1,21,a4,ac,cd,7a,a5,el 340 DATA e2,21,8a,ac,cd,7a,a5,el 340 DATA e2,21,8a,ac,cd,7a,a5,el 
350 DATA 18,e2,e5,cd,ba,a5,e3,cd 350 DATA 18,e2,e5,cd,ba,a5,e3,cd 350 DATA 18,e2,e5,cd,ba,a5,e3,cd 
360 DATA 98,a5,cd,96,f2,e3,cd,f6 360 DATA 98,a5,cd,58,f3,e3,cd,£f6 360 DATA 98,a5,cd,53,f3,e3,cd,£6 
370 DATA a5,cd,4e,c3,e1,7e,a7,c8 370 DATA a5,cd,9b,c3,e1,7e,a7,c8 370 DATA a5,cd,98,c3,e1,7e,a7,c8 
380 DATA cd,98,a5,cd,4e,c3,18,£5 380 DATA cd,98,a5,cd,9b,c3,18,£5 380 DATA cd,98,a5,cd,98,c3,18,£5 
390 DATA 3a,24,ac,d6,08,47,7e,a7 390 DATA 3a,09,ac,d6,08,47,7e,a7 390 DATA 3a,09,ac,d6,08,47,7e,a7 
400 DATA c8,cd,45,e1,23,10,£7,c9 400 DATA c8,cd,22,e2,23,10,£7,c9 400 DATA c8,cd,1d,e2,23,10,£7,c9 
410 DATA cd,24,a5,f5,c5,d5,e5,cd 410 DATA cd,24,a5,f5,c5,d5,e5,cd 410 DATA cd,24,a5,£5,c5,d5,e5,cd 
420 DATA ba,a5,cd,£f6,a5,e1,d1,ci 420 DATA ba,a5,cd,f6,a5,e1,d1,c1 420 DATA ba,a5,cd,f6,a5,el,di,ci 
430 DATA f1,c9,eb,ib,af,47,67,6f 430 DATA f1,c9,eb,1b,af,47,67,6£ 430 DATA £1,c9,eb,1b,af,47,67,6f 
440 DATA 2f,32,23,a5,13,1a,d6,30 440 DATA 2f£f,32,23,a5,13,1a,d6,30 440 DATA 2f,32,23,a5,13,1a,d6,30 
450 DATA 38,04,fe,0a,38,f£6,1a,13 450 DATA 38,04,fe,0a,38,f6,1a,13 450 DATA 38,04,fe,0a,38,£6,1a,13 
460 DATA a7,c8,4f,3a,23,a5,al,fe 460 DATA a7,c8,4f,3a,23,a5,al,fe 460 DATA a7,c8,4f,3a,23,a5,al,fe 
470 DATA 20,28,£3,79,fe,22,20,07 470 DATA 20,28,£f3,79,fe,22,20,07 470 DATA 20,28,£f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,a5,3a 480 DATA 3a,23,a5,2f,32,23,a5,3a 480 DATA 3a,23,a5,2f,32,23,a5,3a 
490 DATA 23,a5,a7,79,c4,8a,ff,4f 490 DATA 23,a5,a7,79,c4,ab,ff,4£f 490 DATA 23,a5,a7,79,c4,ab,ff,4f 
500 DATA ad,07,6f£,09,18,d8,3e,20 500 DATA ad,07,6f£f,09,18,d8,3e,20 500 DATA ad,07,6f,09,18,d8,3e,20 
510 DATA cd,5c,c3,3e,5b,cd,5c,c3 510 DATA cd,a3,c3,3e,5b,cd,a3,c3 510 DATA cd,a0,c3,3e,5b,cd,a0,c3 
520 DATA cd,79,ee,3e,5d 520 DATA cd,49,ef,3e,5d,c3,a3,c3 520 DATA cd,44,ef,3e,5d,c3,a0,c3 
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Nur solange Vorrat reicht: 


I Die beliebten 4 Spielesammlungen zum Knüllerpreis 


Goldene 7 @, Goldene 7 ®& 
Gamebox 1, Gamebox 2 


das bedeutet insgesamt 18 tolle Spiele für alle CPC Computer! 


Folgende Titel sind enthalten: 

Secret of Wizard, Turlen, Zadora, 3D Labyrinth, Die alte Burg, 
Space Race, Galaxis, Schatz, Garten Manager, Berg der Monster, 
Poker, Super Chance, Captain Starships Test, Oil Willi, 

Anduril, Mörderjagd, Ball Hunter, Dungeon Doom 


Power-Spiele-Paket für CPC 464/664/6128 = 4 Kassetten nur 50,- DM 
= 4Disketten3‘ nur 70,—- DM 


lausohe Karten mit Gursortasten 


auaa 


[Hair  TWERNER IHAx 
RAPITAL| se26 #| 3000 #| 3078 7} 


G E} 378 # 


Fame aen Baer ee 


DMV, Postfach 250, 3440 Eschwege 


Tips & Tricks 


CONVERT.BAS 


N 


NN NS 


Aa 


N 


\ \, 
A 


a © 


Die Idee zu diesem Programm kam mir, als ich ein Bild aus Pro- chert sind, daß man sie mit dem LOAD-Befehl nicht laden kann. 
fi-Painter mit COPYSHOP weiterverarbeiten wollte. 


Das klappte jedoch nicht, da die Dokumente doppelt sogroß mo — 
wie ein normales Bild sind, und sie außerdem noch so abgespei- Wie’s geht 


Nach dem Start muß die Datendiskette aus Profi-Painter ins 
CONVERT.BAS setzt Bilder aus dem Programm Profi Painter Laufwerk A eingelegt werden. Das Programm fragt dann nach 
(von Data Becker) in normale Bilder für den Schneider CPC dem Namen des Dokuments, und bringt eine Fehlermeldung, 
um. falls das Programm nicht im Directory gefunden wird. 
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Wenn das Fıle gefunden wird, werden die belegten Blöcke in 


400 befehl=&84: '* Disk-Betehl tue [2814] 
den Speicher ab Adresse 2600 Hexa eingelesen. rt Sectorleser 
410 RESTÜRE 1770 [583] 
Danach werden die ersten 17 K des Bildes ins Video-RAM (ab 420 GOSUB 1770: ’ Data’s einpoken Fear 
or a‘ . B . > 430 ”’ 117 
Adresse C000 Hexa) übertragen, und mit einem SAVE-Befehl 240 Bruins run zur ee FOcaaN 
mit der Extension TBl auf Diskette abgespeichert. uer-Section 
450 ? (117) 
Genauso wird auch die zweite Hälfte des Bildes übertragen und 460 ’ . [117] 
H „% ” s “ . Sul“ ULTO ’ RM * (1285] 
mit der Extension TB2 abgespeichert. Die beiden Teilbilder En: ge ag: arss 
können dann als normale Screen-Bilder weiterbearbeitet wer- POERMEETTTELTEITTTETTTETTERTEETTUTER [1285] 
den. (COPYSHOP, Hardcopy ....) nr. ä 
” 7 
Besitzer eines Zweitlaufwerks können im Programm (Zeile 380) 520 GOSUB 780: ’ Eingabe-Dbokument ausw [3637) 
. 5 . PR x aehlen 
den Wert der Variablen »drive« von O in | ändern, um die Da- 530 GOSUB 1010: Ü Dunactory- nach Erlen. 128084 
tendiskette aus Profi Painter auch vom Laufwerk B einlesen zu amen durchsuchen 
I S4a0 °’ 117 
können. 550 IF found=O THEN RETURN: ’ Dateiname ni [3126] 
Bude, aan: cht gefunden ! 
(Michael Fuchs) 560 ' 111m 
570 GOSUB 1350: ’ Einlesen der Bloecke [2441] 
des File’s 
580% 117) 
590 PRINT:PRINT "Bitte Diskette fuer Ausga [4635] 
be einlegen" 
600 PRINT " <TASTE>":CALL &BBi18::! [2546] 
DIR 
8109! ? (117) 
620 :USER,O:MODE 1 (851) 
630 GOSUB 1930: ’ Teilbild J ins Video-Ra [3898] 
m poken 
EEE GEERNGLLLLEERRE ae 640 SAVE FILE$+".TB1",b,&C0O00,&3FFF: * und [2159) 
abspeichern 
650 ? (117) 
660 offs=0: start=&6481: ziel=-&C000: * Wer [4610] 
te fuer 2.Teilbild aendern 
670 ’ (117) 
680 MODE 1 [506] 
690 GOSUB 1940: * Teilbild 2 ins Video-Ram [2289) 
poken 
700 SAVE FILE$+".TB2",b,&C000,&3FFF: * und [3248] 
abspeichern 
1O VO (1223) FLO? E.%177 
20% * [175] 720 RETURN: * Zurueck zur Steuer-Section [2848] 
[a a CONVERT.BAS * (882) 730 ’ E17 
40’ % * 1757 TO YET (1391) 
so’ Umsetzen eines Dokuments “ [1162] 90: 2 Auswaehlen des Dokuments 15553 
860 ’ * aus ProfiPainter in * [1487) 7TEO Rau (1391) 
TUE zwei Normale Bilder * (1868) 7rO." [117) 
80’ P 175) 780 MODE 1 1506) 
90 ’ x (C) Michael Fuchs 1987 * [1154] 790 LOCATE 1.10:PRINT "Datendiskette aus P [5023] 
100 ’%* ” 6175] rofi-Painter einlegen" 
110 Ve 1223) 800 LOCATE 18,12:PRINT "<TASTE>":CALL &BBi [1645] 
120 ° 644072 8 
130: ? [112)J 810 ’ [117) 
1IAO mu 1252] 820 CLS: :USER,2: !DIR: * Diskettenformat [2655] 
150 ® STEUER - SECTION 11092) festlegen 
160 TR 1252) 830 ’ 127 
170: * riE73 840 PRINT:PRINT "Welches Dokument einlesen [3122) 
180 OPENOUT "dummy":MEMORY HIMEM-1:CLOSEOU [2303) en 
T 850 INPUT "tohne .PIC) s Reine 612143 
190 MEMORY &25FF 1538) 860 ’ [117) 
200 ’ 4277 870 in$=UPPER$Stin$):file$=in$ (1251) 
210 WHILE NUT progende 2156] 880 0117) 
220 ° 11m 890 IF LENtin$)>8 THEN PRINT CHR$(7): GOTO [4415) 
230 GOSUB 350: ’ Intitialisierung [2060] 820: ’ Name zu lang ? 
240 GOSUB 520: ’ Verarbeitung (1199) 900 IF INSTR(in$,".")<>0O THEN PRINT CHRS$S(7 [5051] 
250 GOSUB 2330: * Test auf Programmend [1790] ):GOTO 820: ' Punkt eingegeben ? 
e 910 IF LEN(in$)<8 THEN 1%=8-LEN(in$>):in$s=i [3812) 
260 ’ (117) n$+STRING$(1%," ") 
270 WEND 1390) 920 ' [117] 
280 END: ’ Programmende (1307) 930 in$=ins+"PIC": * Extension mit anhaeng [3006) 
290 ° [117] en 
300 Turm (1223) 940 ’ £127] 
310 ? INITIALISIERUNG [1300] 950 RETURN: ’ Zurueck zur Verarbeit [2501] 
320 "urn * (1223) ung 
330 ’ 1117) 960 (117) 
340 ’ [3177 TO ’ RUHE * [1391] 
350 MODE 1 (506] 980 Directory und Blocks einlesen [1946] 
360 ’ [117] PRPREBEZZIIII III (1391) 
370 DIM block$(37): ’ Array fuer Bloc [2868] 1000 ’ [117] 
knummern 1010 bufbeg=-9728: bi=1 [1825] 
380 drive=0: ' Parameter zum S [1108) 1020 track=0: sector=-&Cl: found=O [1081] 
ectorlesen 1030 ’ 641477 
390 found=O [896] 1040 WHILE sector «< &C6: ' Bis Sector &C5 L3006) 
nach Eintrag suchen 
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1050 * 
1060 
nlesen 
1070 ? 
1080 


GOSUB 2230: '* Sektor in Buffer ei 


FOR adr=&2600 TO &27FF STEP 32 

1090 user=PEEK(adr) 

1100 IF user<>2 THEN 1160: ” 

t steht unter Usernr.2 

1110 names="" 

1120 FOR i=1 TO 11 

1130 name$=name$+CHR$( PEEK(adr+i)) 
’ Filename zusammensetzen 

1140 NEXT i 

1150 IF in$=name$ THEN found=-1:GOSU 

B 1260: ’ Richtiger Filename ? 

1160 NEXT adr 

1170 GOSUB 2120: * 

1180 WEND 

1190 IF found=O THEN PRINT:PRINT 

eht nicht auf der Diskette !!": 

PRINT "* 


Dokumen 


Sektort+i 


"Datei st 


<TASTE>":CALL &BB18 

1200 RETURN: 8 
itung 
1210) ? 
1220 " 
1230 
1240 
1250 
1260 
1270 


Zurueck zur Verarbe 


Eee 
BLOCKNUMMERN EINLESEN 


WERKE ÜKKEH HH TH TH TI U U U N 


FOR i=adr+16 TO adr+31i 


IF HEX$(PEEK(i))="O" THEN 1290 ELSE 


block$(bi)=HEX$(PEEK(Ii)):bi=bi+il 
NEXT i 

RETURN 

’ 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 GOSUB 1670: ” 
k und Sektor umrechnen 
1410 GOSUB 2230: 
esen 
1420 
1430 bufbeg=-bufbeg+480: 
fuer 2.Blockhaelfte festlegen 
1440 high=INT(bufbeg/256):low=bufbeg-h 
ighr*25 
1450 * 
1460 
und 
1470 
1480 
1490 
1500 
1510 
esen 
1520 
1530 bufbeg=bufbeg+480: ’ Bufferanfang 
fuer naechsten Block festlegen 
1540 high=INT(bufbeg/256):low=bufbeg-h 
igh«25 
1550 * 
1560 
und 
1570 
1580 
1590 
1600 
1610 RETURN: 
1620 
1630 ’ 
1640 
1650 ’ 
1660 ’ 
1670 block$="&"+block$: 
1680 track=INT(a«2/9)+0 
1690 sector=-a#2-track*9+0*9 
1700 sector=sector+&Ci 
1710 RETURN 
1720 ’ 
1730 * 
1740 ” 
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BLOCKS IN BUFFER EINLESEN 


LEEZZZZZZZZZ ZZ ZZ ZZ ZZ ZI ZZ ZZ 2 


bufbeg=-9728 
FOR i=1 TO bi-2 
4 


block$=block$ti) 
Blocknummer in 


1.Blockhaelfte 


Bufferanfang 


POKE &A608,high:POKE 
neue Werte einpoken 

POKE &AF57,high:POKE 

POKE &A6OA.high:POKE 


&A607, low: 


&AFSE, low 
&A6OY, low 


GOSUB 2120: * 
GOSUB 2230: 


Sector + i 
2.Blockhaelfte einl 


POKE &A608,high:POKE &A607, low: 
neue Werte einpoken 

POKE &A6OA,high:POKE &A609, low 

POKE &AF5S7,high:POKE &AFS6, low 
NEXT i 


Zurueck zur Verarbeitung 
LEI ZZ ZZ EU EEE EEE ZU EEE EZ Eu u zz 
BLOCKNUMMER UMRECHNEN 


KERERKRKERREHER RR HTTT H TH E R 


a=-VAL(block$) 


EZ Eu u zz zz zz zz zZ zu u ZZ zZ E — zz u zo 


DATA’S EINPOKEN 
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ir) 
[3035] 


FIır] 
[2447] 
1734) 
13883) 


[404] 
[314] 
2971) 


(375) 
[4002] 


[547] 
(1710) 
1390) 
(4599) 


[2501] 


214173 

[1223] 
[1204] 
[1223] 
| 

[1358] 
[4850] 


(375) 
(555) 
ELEr) 
61252] 
[1603] 
(1252) 
644173 
(967) 
[588] 
DII2) 
[1037] 
[117] 
(3831) 


[2466] 


62173 
(3677) 


(1892) 


(117) 
(4071) 


[2040] 
[1358] 
E.41.73 

[1905] 
[1223] 


6117] 
[4960] 


(1892) 


(117) 
[4071] 


[1358] 
[2040] 
[375] 
Fer 
(2501) 
[117] 
[1252] 
[2152] 
[1252] 
[117] 
[1229] 
(953) 
[1275] 
11566) 
(555) 
Fer] 
(1143) 
[1141] 


KRRWRRRUERRRERERERKHR UHR ER RR 


1750 
1760 


1770 FOR i=&AF2A TO &AFSC 
1780 READ byte: POKE i,byte: NEXT 
1790 DATA &dd,&46,&05,&dd,&4e,&04,&dd,&66, 


&03,&dd,&6e,&02,&dd,&56,&01,&dd 

1800 DATA &5e,&00,&ed,&bO,&c9, &00 

1810 DATA &21,&00,&A6,&CD,&D4,&BC,&22,&01, 
&A6,&79,&32,&03,&A6,&21,&04,&A6 

1820 DATA &5E,&23,&56,&23,&4E,&21,&00,&26, 
&DF,&01,&A6,&C9,&2D 

1830 ’ 

1840 FOR i=&A600 TO &A6OC 

1850 READ byte: POKE i,byte: NEXT 

1860 DATA &84,&00,&00,&00,&00,&00,&01,&00, 
&26,&FF,&27,&00,&5E 


1870 RETURN 

1880 

1890 Ymmmmnnn 

1900 ’ Bild ins Video-Ram poken 

1910 Yun * 

1920 

1930 offs=0: ziel=&C000: start=&2601 

1940 FOR y=1 TO 25 

1950 IF y=1 THEN quellesstart: ziel=&C0O0 


O ELSE ziel=zielalt+&50 


1960 zielalt=ziel 

1970 FOR yy=-1 TO 8 

1980 quelle=quelle+toffs 

1990 CALL &AF2A,79,quelle,ziel: ' Pixe 


lzeile verschieben 


2000 quelle=quelle+79:ziel=ziel+79 
2010 offs=1 

2020 ziel=ziel+&801-&50 

2030 NEXT yy 

2040 NEXT y 

2050 RETURN: * Zurueck zur Verarbeitung 
2060 ”’ 

2DOTO I Mu 
2080 ’ SECTOR UND TRACK ERRECHNEN 
2OIO Ya KERRÜR EURER ET E RR 
2100 * 

2110 ? 

2120 '* »#» SECTOR + 1 

2130 sector=-(sector<&C9)+sector+t((sector= 


&KCIH)«(PEEK(&KABAO+LdriversAa))-1)) 


2140 IF sector=&C1 THEN GOTO 2160 ELSE RET 
URN 

2150 

2160 ' *»*» TRACK + 1 


2170 track=0O-(track<39)+track+t((track=39)* 
39) :RETURN 
2180 
2190 
2200 
2210 
2220 
2230 POKE 
2240 POKE 
2250 POKE 
2260 POKE 
er&4ö) 
2270 CALL 
2280 * 
2290 
2300 
’ 


LEEZZZZZ ZZ ZZ EEE EEE ZZ ZZ zo 


SECTOR LESEN 


LEE ZZ EEE EEE u u ZZ Zu zZ zo 


&A600,befehl 

&A6O4A, drive 

&A605, track 

&A6O6, sector-&Ü1+PEEK(&ABIF+driv 
B&AF4Ö: RETURN 

WE 

TEST AUF PROGRAMMENDE 

2310 WERE EEE 

2320 
2330 
2340 
2350 PRINT:PRINT 
en LJ/N)" 

2360 INPUT jn$ 
2370 * 

2380 IF UPPER$(jn$)<>"J" AND UPPER$(jin$)<> 
"N" THEN PRINT CHR$(7):GOTO 2330 

2390 ?’ 

2400 IF UPPER$(jin$) 
ERASE block$ 

2410 

2420 IF UPPER$(jin$) = 
2430 

2440 RETURN: ° 


MODE 1: 
’ 


"Noch ein Dokument umsetz 


= "J" THEN progende=0: 


"N" THEN progende=-1 


Zurueck zur Steuer-Section 


(1143) 
(117) 
(673) 
[1463] 
(3780) 


(1276) 
[2056] 


(2237) 


c4173 
(1421) 
[1463] 
(3170) 


[555] 
(117) 
(1252) 
[1714] 
[1252] 
62173 
(1311) 
£141123 
13989) 


[1346] 
[1570] 
[1095] 
[3148] 


[1882] 
[259] 
[1040] 
[469) 
1359) 
(2501) 
611713 
[1285] 
[3328] 
(1285) 
[117] 
62179 
(1127) 
[5380] 


[2363) 


[117] 
(721) 
[2668] 


[117] 
[1164] 
[1066] 
[1164] 
0117) 
[335] 
[1083] 
[580] 
[1101] 


[987] 
(117) 
[1164] 
[ 766) 
[1164] 
1273 
[443] 
£1171 
[3250) 


[538] 
1173 
[4832] 


5 ar] 
[2555] 


E17) 
[1810] 
£147] 
[2848] 
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Dieses Programm wendet sich an alle, die ihre VORTEX-Floppy 
noch besser ausnutzen wollen. Die einprägsamen RSX-Befehle las- 
sen den Umgang mit der Floppy zum Genuß werden. Ein kurzer 
Befehl und Ihre Floppy lädt Programme bis zu 20% schneller; nun 
können Sie (auch während des Programmierens in BASIC!) mal 
schnell die CP/M-Systemspuren oder einzelne Files kopieren, sich 
ihre Header anzeigen lassen, Tracks und Sektoren laden, spei- 
chern, hexadezimal in ASCII anzeigen lassen, wichtige Laufwerk- 
sparameter einfach auslesen und verändern — die Möglichkeiten 
sind fast nur durch Ihre eigene Kreativität begrenzt (einige Ansätze 
können Sie in der DEMO sehen... . ) 


Nun aber zu den Befehlen und ihrer Handhabung: da es sich um 
eine RSX-Befehlserweiterung handelt, muß vor jedem neuen Be- 
fehl ein senkrechter Balken (SHIFT + Klammeraffe) stehen. Be- 
sonders anwenderfreundlich sind u. a. die Fehlermeldung »Para- 
meter Error« bei falscher Parameteranzahl und der LIST-Befehl, 
der alle neuen Befehle auflistet und dann auf einen Tastendruck 
wartet. 


Zuerst zu den Befehlen, die die Floppy-Parameter verändern: Mit 
SET. LV, x können Sie die Anzahl der Leseversuche festlegen. 
(Problematischen Disketten kann man mit 255 Leseversuchen 
nachhelfen). Mit SET. HZ, x setzen Sie die Hochlaufverzöge- 
rungszeit des Floppymotors. (Der Motor braucht immer einige Se- 
kunden, bis er die vereinbarte Drehzahl erreicht hat). Mit SET. 
NZ, x wählen Sie, wie lange der Motor nach einem Zugriff nach- 
laufen soll. (Wenn oft auf Diskette zugegriffen wird, ist eine lan- 
ge Nachlaufzeit günstig, da so die Hochlaufzeit eingespart wird, 
weil der Motor ja noch läuft). SET. SP, x setzt die Wartezeit des 
Kopfes, da er immer etwas braucht, um sich zu beruhigen. Wenn 
Sie diesen Wert z. B. auf 10 setzen, erhöht sich der SPeed der Flop- 
py ganz schön... 


Die Befehle GET. LV, @ GET. HZ, @, GET. NZ, @ und GET. 
SP, @ lesen die Werte für Leseversuche, Hoch- und Nachlaufzeit 
des Motors, und den SPEED der Floppy aus. Wichtig ist, daß die 
mit »@« übergebene Variable x% vor dem ersten Befehlsaufruf be- 
reits irgendeinen Wert zugewiesen bekommen haben MUSS, da es 
sonst zur Fehlermeldung kommt (also gleich am Programmanfang 
x%=0 eingeben). Mit GET. DRIVE, @ fragen Sie ab, welches 
Laufwerk gerade angeschlossen ist. x%=0 bedeutet, daß Lauf- 
werk A, x%=1, daß Laufwerk B gerade selektiert ist. GET. 
USER, @ übergibt den aktuellen User(bereich) inx%. Den »krö- 
nenden Abschluß« dieser Befehlsgruppe bilden »FDISC« und 
»SDISC«: FDISC (FastDISC) macht Ihre Floppy bis zu 20% 
schneller und SDISC stellt wieder den Ausgangszustand her. 


Kommen wir nun zu den Befehlen, die auf die Diskette zugreifen. 
Gleich zu Anfang möchten wir sie aber warnen, »Spielen« Sie nie 
mit einer Disk, von der Sie keine Sicherheitskopie haben! Das 
könnte katastrophale Folgen haben. Hoffen wir aber, daß Sie dies 
vermeiden und beschreiben wir jetzt die Befehle: READ. SEC- 
TOR, sect, trk, drv, buff liest den Sektor sect von Track trk in 
Laufwerk drv nach buff. Bei VORTEX sind die Sektornummern 
1l,2,... ‚9 und die Tracks von O0 bis 159 nummeriert (ab Track 80 
wird auf die andere Seite der Diskette zugegriffen). »Hinter« bzw. 
»über« buff müssen noch 512 Bytes für den Sektorinhalt frei sein. 
Um z.B. den ersten Sektor des Inhaltsverzeichnisses (das sich auf 
Track 2 befindet) nach 20000 zu laden, geben Sie ein READ. SEC- 
TOR, 2, 1,0, 20000 für Laufwerk A und READ. SECTOR, 2, 1, 
1, 2000 für Laufwerk B. Analog zu READ. SECTOR gibt es den 
WRITE. SECTOR, sect, trk, drv, buff-Befehl, der (es ist kaum 
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zu erraten) einen Sector im RAM ab buff auf Diskette speichert. 
Die Parameter geben an, welcher Sektor der Disk beschrieben 
werden soll; sie entsprechen denen von READ. SECTOR. Da es 
natürlich sehr umständlich und unkomfortabel ist, mit den Sektor- 
befehlen ganze Tracks (TRACK = eine der 160 Spuren, auf denen 
sich die jeweils neun Sektoren befinden) zu laden und zu SAVEn, 
gibt es die Befehle READ. TRACK, trk, drv, buff und WRITE. 
TRACK, trk, drv, buff. Der durch trk und drv definierte Track 
wird entweder nach buff gelesen (bei READ. TRACK) oder von 
da aus auf Diskette geschrieben (bei WRITE. TRACK). »trk« und 
»drv« entsprechen den SECTOR-Parametern, bei »buff« ist zu be- 
achten, daß darüber bzw. dahinter 4096 Bytes (4KB) für den 
Trackinhalt frei sein müssen. Der SEEK. TRACK, trk, drv-Be- 
fehl sucht (suchen=engl. to seek) einen Track. Das heißt, daß der 
angegebene Track angefahren wird. Durch geschickte Positionie- 
rung des Kopfes kann eine Menge Zeit gespart werden. Wie schon 
oben gesagt, gibt es bei VORTEX 160 Tracks, die von 0-159 durch- 
nummeriert sind. Andere Tracknummern können unvorhersehbare 
Folgen haben — also lieber nicht zu riskant experimentieren; 


Weil man einen Sektor aber nicht nur laden und speichern, son- 
dern erst recht untersuchen, also ansehen möchte, gibt es den Be- 
fehl DUMP. SECTOR, sect, trk, drv, buff. Er liest einen Sec- 
tor mit den gleichen Parametern wie READ. SECTOR, zeigt ihn 
aber danach gleich hexadezimal und in ASCH an — er DUMPt den 
Sektor, wie man sagt. (Wer will, kann so z. B. die CP/M-Fehler- 
meldungen suchen und ins Deutsche übersetzen. ... ). Die Unter- 
brechungsmöglichkeiten während des DUMPens sind dieselben 
wie in BASIC, einmal ESC=Stop, das zweite Mal ESC=Abbruch 
und jede andere Taste=weiter DUMPen. Damit man auch sonst 
von der DUMP-Routine profitieren kann, gibt es den »reinen« 
DUMP-Befehl: DUMP, adr:er DUMPt einen Speicherbereich ab 
adr bis zum Abbruch durch zweimal ESC. 


Neben den eben beschriebenen »Low Level«-Disk-Befehlen gibt 
es natürlich noch »High-Level«-Befehle: HEADER, filename$ 
zum Beispiel. Dieser Befehl gibt den »Header« des Files 
»filename$« an. Unter einem Header versteht man den »Kopfsatz« 
eines Files, in dem seine Startadresse, Länge, Autostartadresse 
(engl. »Entry«) und sein Typ (BASIC, binär, ASCII, unbekannt) 
vermerkt sind. Wundern Sie sich nicht, daß ASCII-Files, auch 
wenn sie bei CAT z. B. 1IK lang sind, eine Länge von Null im He- 
ader haben. Bei diesen Files definiert sich das VDOS nämlich (um 
CP/M-kompatibel zu bleiben) einen eigenen Header, der nicht so 
einfach ausgelesen werden kann. 


Die restlichen »High-Level«-Befehle enthalten alle »COPY«, sie 
dienen also alle dazu, etwas zu kopieren. Das beginnt bei FCO- 
PY, filename$, das einzelne Files kopiert (folgen Sie einfach den 
Anweisungen) und geht über DCOPY, das die gesamte Diskette 
mit Track-Anzeige kopiert (folgen Sie auch hier den Anweisungen) 
bis zu CPMCOPY, das ein einfaches Kopieren der CP/M-Spuren 
ermöglicht (auch hier den Anweisungen folgen). Nur DCOPY 
löscht Ihr gerade im Speicher stehendes BASIC-Programm mit 
100 %tiger Sicherheit - CPMCOPY verschont Ihr Programm, so- 
lange es nicht über ca. 22K lang ist (was nicht sehr oft passieren 
dürfte). Wenn Sie mit FCOPY kopieren, wird Ihr aktuelles BA- 
SIC-Programm überschrieben, wenn Sie ein BASIC (».BAS«)-Pro- 
gramm kopieren. Bei Binärprogrammen (». BIN«) kann Ihr Pro- 
gramm, es muß aber nicht, überschrieben werden. (Dies als In- 
formation um Anfragen und Mißverständnissen gleich vorzubeu- 
gen). 


So, das wären dann alle 24 VORTEX-DISKTOOL V1. 0 — Befeh- 
le. Wie gesagt muß vor jedem Befehl der »senkrechte Strich«, den 
man mit SHIFT + Klammeraffe erreicht, stehen, da es sich um 
eine RSX-Befehlserweiterung handelt. 
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Alle Befehle auf einen Blick 


Zum Abschluß nochmal eine kurze Zusammenfassung der Befehle, 
ihrer Parameter und Wirkungen: 
LIST neue Befehle auflisten 


Parameter setzen: 


SET. LV,x x Leseversuche SET. NZ, x x ms Nachlaufzeit 
SET. SP,x x ms Kopfwartezeit FDISC Floppy max. 20% schneller 
SET. HZ, x x ms Hochlaufzeit SDISC Floppy normal 


Parameter auslesen: 


GET. NZ, @ x=Nachlaufzeit 
GET. DRIVE, @ x=akt. Laufwerk 
GET. USER, @ x=aktueller User 


GET. LV, @ x=Leseversuche 
GET. SP, @ x=Kopfwartezeit 
GET. HZ, @ x=Hochlaufzeit 


»Low-Level«-Disk-Befehle: 


READ. SECTOR, sect, trk, drv, buff 

Sektor sect von Track trk von Laufwerk drv nach buff einlesen 
WRITE. SECTOR, sect, trk, drv, buff 

Sektor sect von Track trk von Laufwerk drv aus buff neu beschreiben 
READ. TRACK, trk, drv, buff 

Track trk von Laufwerk drv nach buff einlesen 

WRITE. TRACK, trk, drv, buff 

Track trk von Laufwerk drv aus buff neubeschreiben 

SEEK. TRACK, trk, drv 

Track trk von Drive drv anfahren 

DUMP. SECTOR, sect, trk, drv, buff 

Sektor wie bei READ.SECTOR lesen und dazu noch hexadezimal und 
in ASCH anzeigen 

(»sect« von 1 bis 9, »trk« von O bis 159, »drv«=0=Laufwerk A, 
=]=Laufwerk B aktiv) 


»High-Level«-Befehle 


DUMP, adr RAM ab adr hexadezimal und in ASCII anzeigen 
HEADER, filename$ Header des Files filename$ anzeigen 
FCOPY, filename$File filename$ kopieren 

DCOPY gesamte Diskette kopieren 

CPMCOPY CP/M-Spuren kopieren 


Für alle, die sich mit den neuen Befehlen so richtig vertraut machen 
wollen, ist die DEMO da. In ihr werden fast alle Befehle benutzt und 
einige der vielen Möglichkeiten angedeutet, die sich durch das VOR- 
TEX-DISKTOOL Vi. 0 eröffnen. Wenn es mal nicht angezeigt wird, 
drücken Sie bitte immer eine Taste, um zur nächsten Befehlsdemon- 
stration zu gelangen. 
Wir hoffen, daß Sie diese Erweiterung gebrauchen können und daß 
sie Ihnen genauso viel Freude bereitet wie uns. 

(Jan-Mirko Maczewski) 


1 RR [768] 
2 ' * VORTEX DISKTOOL V1.0 * [745] 
8 DEMO ” [194] 
tee reg “ [1284] 
5'* BY M.Schroeder & * [2218] 
6' * J-M Maczewski * [999] 
kn * [1284] 
PRaBeTeeeeeeeeeeeeeeereeeeee [768] 
9.° [117] 
10 MODE 1:IF PEEK(&A100)=33 THEN 30 [1937] 


20 MEMORY &AOFF:LOAD"disktool.bin":CALL &A [2159] 
100 

30 INK 1,26:INK 3,0:INK 2,24:BORDER 13:INK [3799] 
0,13: !GPEN,3 

40 FOR i=100 TO 200 STEP 2:PLOT 50,i:DRAWR [3974] 
450,0:NEXT 

50 !GPEN,3:FOR i=100 TO 200 STEP 2:PLOT 50 [3429] 
2,i:DRAWR 98,120:NEXT 

60 FOR i=50 TO 500 STEP 2:PLOT i,202:DRAWR [3193] 
98,120:NEXT 

70 !GPEN,1:MOVE 50,202:DRAW 148,322:DRAW 6 [4303] 
02,322:DRAW 502,202 

80 MOVE 602,322:DRAW 602,222:DRAW 502,102 

90 !GPEN,1:x1=50:y1=100:x2=500:y2=200:G0SU 


[2228] 
[2665] 


98 EePEe 


B 160 

100 x1=75:y1=140:x2=475:y2=150:G0SUB 160 [2218] 
110 x1=80:y1=165:x2=115:y2=175:G0SUB 160 [1541] 
120 FOR i=80 TO 115 STEP 2:PLOT i,165:DRAW [3038] 
R 0,10:NEXT 

130 LOCATE 10,3:PEN 2:PRINT"VORTEX DISKTOO [3336] 
L v1.0" 

140 LOCATE 17,21:PEN 1:PRINT"D E M O":LOCA [3315] 
TE 13,23:PEN 3 

150 PRINT CHR$(T)"TASTE DRUECKEN !":CALL & [4500] 
BB18:GOTO 170 

160 MOVE x1,y1:DRAW x2,y1:DRAW x2,y2:DRAW [2944] 
x1l,y2:DRAW x1,yl:RETURN 

170 CALL &BCO2:PEN 2:MODE 1:INK 2,15,6:INK [3496] 
3,26:LOCATE 18,10 

180 PRINT" 24 neue RSX Befehle":LOCATE 24, [2774] 
12:PRINT" fuer die" 

190 LOCATE 23,14:PRINT"Vortex-Floppy" [2804] 
220 LOCATE 1,1:PEN 1:}LIST:!FAST:INK 0,13: [3437] 
INK 1,0:MODE 2:BORDER 13:PEN 1 

230 ' * Track-&Sektor-Monitor [755] 
240 MODE 2:t=1:s=1:d=0:WINDOW#1,8,72,1,1 [2652] 
250 PAPER #1,1:CLS #1:PEN #1,0:WINDOW #2,8 [4449] 
‚12,24,24:CLS #2:!SET.NZ,500 

260 PRINT#2," Commands: ";CHR$(240);" T.u [3119] 
p ";CHR$(241); 

270 PRINT#2," T.down ";CHR$(242);" S.down [4993] 

"CHR$S(243);" S.up D Drive E Exit 

280 WINDOW 4,78,3,22:PRINT#1," DMON (c) [3636] 
1987 by M.S & J-M.M";SPC(3) 

290 PRINT#1,"Track:";HEX$(t,2);" Drive:"; [4328] 

CHR$ (65+d);" Sector:";HEX$(s,2) 

300 a$="":WHILE a$="":a$=INKEY$S:WEND:SOUND [2643] 
7,80,20,6 

310 IF ASC(a$)>=240 THEN 370 [1638] 
320 IF UPPER$(a$)="E" THEN 440 [951] 
330 IF UPPER$(a$)="D" THEN d=d XOR 1:G0SUB [3203] 
340:G0T0 260 ELSE 300 

340 PRINT#1," DMON (c) 1987 by M.S & J-M [7233] 
M Track:";HEX$(t,2);" Drive:";CHR$(65+ 

d);" Sector:";HEX$(s,2) 

350 PRINT#2,SPC(20)"*** Liste Sektorinhalt [4316] 
“*A&"CHRS (18) :CLS 

360 !DUMP.SECTOR,t,s,d,&5000:RETURN [3017] 

370 ON ASC(a$)-239 GOTO 380,390,400,420 [1340] 

380 t=t+1:IF t>159 THEN t=0:G0SUB 340:G0T0 [3470] 
260 ELSE 410 

390 t=t-1:IF t<O THEN t=159:G0SUB 340:G0T0 [2433] 
260 ELSE 410 

400 s=s-1:IF s<1 THEN s=9:G0T0 390 [886] 

410 GOSUB 340:G0T0 260 [1312] 

420 s=s+1:IF s>9 THEN s=1:G0T0 380 [2171] 

430 GOSUB 340:G0T0 260 [1312] 

440 ' * Neuer Cat mit Blocknr.anzeige [1462] 

450 MODE 2:PRINT SPC(8)"Blockbelegung alle [5281] 

r Files auf Diskette ermitteln" | 

460 PRINT: |READ.TRACK,2,0,&5000 [1355] | 

470 FOR s=&5000 TO &6200 STEP 32 [1499] 

480 IF PEEK(s+1)=&E5 THEN 575 [1211] 

490 a=(s-&5000)/&20+1:PRINT USING "###";a; [1382] 

500 PRINT SPC(3);"User ";HEX$(PEEK(s),2);S [1717] 

PC (4) 

510 FOR i=s+1 TO s+12:IF PEEK(i)=0 THEN 54 [2025] 

0 

520 PRINT CHRS(PEEK(i));:IF i-s=8 THEN PRI [2869] 

RT E@: 

530 NEXT [350] 

540 PRINT SPC(3);"Block(s):";:FOR i=s+&10 [3494] 

TO s+&20 

550 IF PEEK(i)=0 OR PEEK(i)=&E5 THEN 570 [2244] 

560 PRINT HEX$(PEEK(i),2);:IF PEEK(i+1)<>0 [2365] 
THEN PRINT"/"; 

570 NEXT:PRINT:NEXT [1354] 

575 PRINT:PRINT"Bitte eine Taste druecken [4889] 
...":CALL &BB18 

580 ' * Disk- & File-Info [796] 

590 MODE 2:PRINT" Info-File (c) J-M.M/M.S [3242] 
'87 

600 a%=0::GET.USER,@a%:b%=0:|GET.DRIVE,@b% [3094] 

610 PRINT:PRINT"Lau£fwerk"SPC(6)": "CHR$S(b% [3431] 

+65) 

620 PRINT"Aktueller User:";a%: !GET.HZ,@a%: [6421] 
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PRINT"Hochlaufzeit :"a%:!GET.NZ,@a% 7BE6OF,FEOA38,02C607,C630C3,538 [2395] 
630 PRINT"Nachlaufzeit :"a%:!GET.LV,@a%:P [7718] 55 DATA 5ABB3E,O9CD5A,BB10OF9,CITECD, 65B [1240] 
RINT"Leseversuche :"a%:|GET.SP,@a% 56 DATA 5ABBB7,C82318,F70750,617261,551 [1402] 
640 PRINT"Kopfberuhigung:"a%:PRINT:PRINT C [3582] 57 DATA 6D6574,65722D,466568,6C6572,4A0 [1123] 
HRS (7); 58 DATA 008400,008500,008700,00FE01,28F [1511] 
| 650 INPUT"Geben Sie den Filenamen ein oder [4436] 59 DATA C231A2,212CA4,CD92A3,CD18BB, 628 [2635] 
| <ENTER> fuer Optionen:",a$ 60 DATA CDCY9A3,1818DD,5601DD,5EOOEB, 5C3 [1628] 
660 WINDOW 1,80,10,25:CL$ [1188] 61 DATA 46235E,2356EB, 2201A6,ED4303,427 [2224] 
670 IF a$="" THEN 690 [793] 62 DATA A6CD77,BCC9D5,F5C5D5,111F00, 703 [1345] 
680 }HEADER,a$:CALL &BB18:G0T0 590 [1522] 63 DATA 195E23,56ED53,07A6D1,EBCD83,5E9 [1073] 
690 PRINT" Optionen : [1243] 64 DATA BCCD7A,BC211E,A4CD92,A3CD18,689 [2135] 
700 PRINT:PRINT" 1 . Catalog [1531] 65 DATA BB2A01,A6ED4B,03A6CD,8CBCD1,653 [1370] 
710 PRINT" 2 . Laufwerk wechseln [2717] 66 DATA FLELED,4BOTA6,CDI8BC,CD8FBC,7FO [1469] 
720 PRINT" 3 . User wechseln" [2300] 67 DATA 214CA4,C392A3,426974,746520,521 [2007] 
730 PRINT" 4 . Exit Prg." [1385] 68 DATA 205A69,656C07,0D0042,697474,35B [1486] 
740 PRINT:PRINT" ?" [748] 69 DATA 652051,75656C,6C6469,736B65,498 [1044] 
750 a$=INKEY$:IF a$="" THEN 750 [1426] 70 DATA 747465,206569,6E6C65,67656E,4B4 [1792] 
760 PRINT:PRINT [743] 71 DATA 3A070D,004B6F,706965,72766F,39D [1668] 
770 a=VAL(a$):ON a GOTO 790,800,810,820 [2308] 72 DATA 726761,6E6720,626565,6E6465,492 [1204] 
780 CLS:GOTO 690 [983] 73 DATA 742E20,202020,202020,0A0D00,199 [1155] 
790 MODE 2:!DIR:CALL &BB18:G0TO 590 [3132] 74 DATA ODOA46,696C65,6E616D,653A00,372 [1759] 
800 INPUT"Laufwerk:",a$:IF UPPER$(a$)="A" [3839] 75 DATA 537461,727420,20203A,004C61,355 [1862] 
THEN }A:GOTO 590 ELSE }B:GOTO 590 76 DATA 656E67,652020,3A0045,6E7472,3B2 [1229] 
810 INPUT"User:",a$:1SELECT,a$:GOTO 590 [1575] 77 DATA 792020,203A00,446174,656974,36E [1309] 
820 END [110] 78 DATA 79703A,005472,61636B, 200020, 358 [1644] 
79 DATA 6B6F70,696572,74120D,OAOOFE,425 [1571] 
80 DATA 01C231,A2CDC9,A33200,A6C5D5,641 [785] 
2 re er re [2458] 
1 DATA 210AA6,011BA1,CDDIBC,21ADA3,559 [2228] A521,6CA4CD,92A3E1,23CD92,739 [1645] 
2 DATA CDI1A2,21BOA3,CD11A2,21B3A3,5EB [2784] 83 DATA ASCDIA,AS2178.A4CD92.AIEIDF.72E [2369] 
3 DATA C311A2,65A1C3,43A2C3,56A2C3, 6A2 [1689] 84 DATA 24ASCD,1ANS21,82A4CD, 93A3EL,6TF [1033] 
5 DATA 5FA2C3,72A2C3 ,BTA2C3,8FA2C3,, TAB [1561] 86 DATA 2AFEA5,DF24A5,CD1AA5,2196A4,65C [2851] 
6 DATA 9EA2C3,D3A5C3,85A2C3,C2A2C3, 84F [2025] 87 DATA CD92A3,3A00A6,6F2600,DF24A5,51F [2330] 
7 DATA DOA2C3,07A3C3,0EA3C3 ,15A3C3 ,691 [1556] 88 DATA CD1AA5,CD7ABC,3EOACD, 5ABB3E,5F7 [1935] 
8 DATA 20A3C3,F2A5C3,B3A4C3,B6A3C3,816 [2506] 89 DATA ODC35A,BB79EE,000614,ED5B06,4B4 [1562] 
9 DATA 27A5C3,96A553,45542E,4CD653,559 [1426] 90 DATA A71600,C5D5CD,63A5D1,CD82A5,6F1 [2030] 
10 DATA 45542E,48DA53,45542E,4EDA53,47E [2494] 91 DATA D5E521,AOAACD,92A37A,D6086F,6E8 [1697] 
11 DATA 45542E,53D047,45542E,445249,3D7 [1517] 92 DATA 2600DF,24A53E,2DCD5A,BB6A2D,4B2 [2123] 
12 DATA 56C547,45542E,4CD647,45542E,459 [1311] 93 DATA 2600DF,24A521,ATA4CD, 92A3E1,61D [3288] 
13 DATA 48DA47,45542E, 4EDA47,45542E,466 [1221] 94 DATA DIC110,CFC318,A4212C,A4CD92, 640 [2281] 
14 DATA 555345 ,D24644,4953C3,534449 ,488 [1731] 95 DATA A3CD18,BB21AD,A32234,A32100,4CE [2046] 
15 DATA 53C34C,4953D4,474554,2E53D0,503 [2830] 96 DATA 010608,C5D5CD,29A3D1,14C110,4F8 [1936] 
16 DATA 44554D,D04455,4D502E,534543,3F5 [2179] 97 DATA F6C921,1EAACD,92A3CD,18BB21,665 [1888] 
17 DATA 544FD2,524541,442E53,454354, 3EE [1356] 98 DATA BOA322,34A321,000118,DFED5SB,4AD [1213] 
18 DATA 4FD257,524954,452E53,454354,409 [2047] 99 DATA 06A716,00212C,A4CD92,A3CD18,49B [971] 
19 DATA 4FD252,454144,2E5452,4143CB, 460 [1759] 100 DATA BB21AD,A32234,A32100,50CD29,48C [1137) 
20 DATA 575249,54452E,545241,43CB53,401 [1785] 101 DATA A314CD,29A321,1EA4CD,92A3CD, 602 [945] 
21 DATA 45454B ,2E5452,4143CB,,484541,3C6 [2323] 102 DATA 18BB16,0021B0,A32234,A32100,377 [1798) 
22 DATA 4445D2,46434F,50D944,434F50,482 [1533] 103 DATA 50CD29,A314CD,29A3C3,18A421,536 [1454] 
23 DATA D94350,4D434F,50D900 ,ESCDD4,5FA [2035] 104 DATA 65A13E, TCCD5A,BB7EF5,CBBFCD, 76C [1907] 
24 DATA BCDDE1,DD7500,DD7401,DD7102,66E [1459] 105 DATA 5ABBF1,23CB7F,28F3CD,1AA57E,698 [1335] 
25 DATA CYFEO4, 200BEB,DD5E02 ,DD4EO4,54D [1962] 106 DATA BTCA18,BB18E4,FEO02C2,31A2DD, 6C2 [2109] 
26 DATA DD5606,C9D121,9BA3C3,92A3FE, 728 [721] 107 DATA 5602DF,B3A3C9,000000,000000, 356 [2423] 
27 DATA 0320F5,EBDD5E,02DD56,04C9FE, 63E [2033] 150 ' [117] 
28 DATA 0120EA,7B3264,BEC9FE,0120E1,5A3 [2538] 160 ' *** VORTEX DISKTOOL V1.0 *** [2214] 
29 DATA EB3A64,BE77C9,FE0120,D7ED53,6BD [908] 170 ' written in 1987 by [1190] 
30 DATA 44BEC9,FEO120,CEEB3A,44BE77,656 [2000] 175 ' [117] 
31 DATA C9YFEO1,20C4ED,5346BE,C9YFEOL1,6B8 [1876] 180 ' Jan-Mirko und Martin [1798] 
32 DATA 20BBEB,3A46BE, 77C9FE,0120B1,614 [2707] 190 ' Maczewski Schroeder [2782] 
| 33 DATA 7B3249,BEC9YFE,0120A8,EB3A49,5B2 [1624] 195 ' [117] 
| 34 DATA BE77C9, 212800, 2244BE,3E0132,3DC [1930] 200 MODE 1:MEMORY &AOFF:adr=&A100:z=0 [1575] 
| 35 DATA 64BE3E,0518E3,213200,2244BE,3D7 [2207] 210 PRINT"Bitte warten ... lese DATAs [3240] 
| 36 DATA 3E1032,64BE3E,1918D4,FE0120,404 [2232] 220 FOR i=adr TO &A5FO STEP 12 [1103] 
| 37 DATA 80EB3A,06A777,C9FEO1,C231A2,626 [2013] 230 FOR ii=0 TO 3:READ b$ (ii) :NEXT [2737] 
| 38 DATA EB3A05,A777C9,FE01C2,31A232,507 [1195] 240 p$=b$(0)+b$(1)+b$(2)+b$ (3) [1388] 
| 39 DATA O9A6EB,22DEA2,180DCD, 21A2AF,5AO [2045] 250 FOR ii=0 TO 11 [803] 
| 40 DATA 3209A6, 22DEA2,DFADA3, 210000, 4D3 [1446] 260 b=VAL("&"+MID$(p$, (ii*2)+1,2)) [2052] 
41 DATA 062011,1000CD,3DA319,3E0DCD, 325 [1754] 270 POKE itii,b:sum=sumtb [1013] 
42 DATA 5ABB3E,OACD5A,BBCDO9,BB3006,506 [1413] 280 NEXT ii:z=z+1 [999] 
43 DATA CD18BB,FEFCC8,10E53A,09A6B7,6F7 [1066] 290 READ c$:IF sum<>VAL("&"+c$) THEN PRIN [4436] 
44 DATA C818D9,CD21A2,DFADA3,CICD21,72F [2655] T CHRS$S(T)"DATAFEHLER in"z:END 
45 DATA A2DFBO,A3C921,ADA322,34A3CD,6D4 [1720] 300 sum=0:NEXT [685] 
46 DATA 37A218,0921B0,A32234,A3CD37,46B [1671] 310 '!!ı CPc 664/6128-User bitte eingeben [2108] 
47 DATA A20E00,0C79FE,OAC8D5,ESC5DF, 663 [1975] :"POKE &A523,&49:POKE &a524,&EF" 
48 DATA 0000C1,E1D124,2418EE,C5E5D5, 640 [1878] 320 PRINT"DATAs OK.Bitte Kass/Disk zum SAV [6767] 
49 DATA ESCD6F,A30603,CD8AA3,06107E,55B [1390] En ein- legen !":CALL &BB18 
50 DATA CD74A3,3E09CD,5ABB23,10F406,53A [1708] 330 SAVE"disktool.bin",b,&A100,&500 [2281] 
51 DATA 03CD8A,A3E106,103E01,CD5ABB, 515 [1549] 340 CALL &A100 'INIT [729) 
52 DATA TECD5A,BB2310,F4D1E1,C1C97C,73F [2138] 350 PRINT"Neue Befehle :":!LIST [2727] 


53 DATA CD74A3,7D5FiF,1F1F1F,CD7DA3,529 [2005] 


Di 
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Tips & Tricks 


Ready to use Tip 


SIEVE OF ERASTOSTHENES 
von 0 auf 8190 in 0,9 Sekunden 


Wie man Primzahlen per Computer berechnen kann, zeigt 
das Sieb des Erastosthenes. Dieser Algorithmus ist sehr 
leicht umzusetzen ... 


...sofern man eine geeignete, mehr oder weniger strukturierte 
Hochsprache hat. BASIC und Pascal als bekannteste bieten sich 
da förmlich an. Daß dieses Programm aber (beinahe) genau- 
soleicht in »der Königin der Programmiersprachen« (nur ein 
kleiner Scherz am Rande), in Assembler nämlich, programmiert 
werden kann, zeigt unser diesmaliges Programm. Vorausgesetzt 


für 464-664-6128 


» SIEVE OF ERASTOSTHENES - Z80 Assembler V1.0 
(C) 26.01.1987 by COMPUTER project Software 


8000 org #8000 ; START &8000 


8000 ” 


8000 3A0600 start: a,(#0006) 
8003 FEBO “80 

8005 2006 nz,prines 
8007 2186B2 h1,#b286 
800A 223781 (patch+1),hl 
800D ZIFEIF primes: h1,8190 
8010 A7 a 

8011 CBic h 

8013 CBıiD ı 

8015 22B981 tsize_v),hl 
8018 213481 hil,texti 

x Header x) 
801B CDEE8O 


(x Test CPC Version 


; size=8190 DIV 2 


i PRINT "Computing ... 
print 


210000 h1l,0 
22BB81l tent_v),hl 
ti_v),hl 
hl 
hl,isize_v) 
b,h 
c,1 
hl,flags 
(hl),ı ; flaglı)=1 
d.h ; 
e,l 
de 


; count=O 


i FOR i=0 TO size 


; NEXT i 
hl,isize_v) ; FOR i=O TO size 
b,h 

c,ı 

hl 
de,flags 
hl,de 
a,(hl) 

a 

z,noti 
hl,tı_w 
hl 

hl,bl 
de,3 
hl,de 
(pra_v),hl 
de,hl 

hl 

hl,de 
(k_v),hl 
a ; WHILE k<size 
hl,ik_w ; 

hl 
de,flags 
hil,de 
(hl),a 
de ; k=sk+prine 
hl,(pra_v) i 

hi,de 

(k_vi,hl 

hl,isize_v) 

de,hl 

hl,ik_v 


IF flagtı) 


prine=siri+3 


k=si+prise 


flagik)=O 


a 
hi,de 
c,wend 
hl,tent_v) 
hl 

22BB81l tent_v),hl 

2ABDE1 hl,ti_vw 

23 hl 

22BD81 Gvishl 

ES hi 

a7 a 

2B hl 

ED42 hl,be 

Ei hi 

38B2 c,next2 


count=countt+i 


ENDIF 
NEXT i 


218B81 hl,text2 ; PRINT "Number of prime 
CDEE8SO print 
2ZABBBI hl,tcat_v 
CDF780 pnum 
219E81 hl,text3 


i PRINT count 
; PRINT "List of prines 


CDEE8O print 
CDEBEO erif 
320381 (x),a 
CDO6BB #bbO6 
CBAF 5,a 
FESS ATE 
2805 z,ok 
FE4E "m 
c8 z 
18F2 again 


» PRINT 
; XCOR 1 
s again: GET i 
; 1=UPPER(i) 
IF i="Y* 
GOTO ok: ENDIF 
IF i="N" 
END: ENDIF 
; ENDIF:GOTO again 


210200 ? hl,2 » PRINT 2 


100 epe 


muß natürlich werden, daß man zumindest Grundkenntnisse in 
Z80 Assembler mitbringt. Die Remarks zeigen jeweils, wie die- 
ser Programmteil in einer imaginären Hochsprache aussehen 
würde. 


Die Bytefelder könnten noch wesentlich platzsparender bear- 
beitet werden, nähme man sich statt einem Byte jeweils nur ein 
Bit vor. Das würde zwar nur mehr 1/8 des Speicherplatzes be- 
nötigen, aber die Berechnung ginge sehr schnell auf Kosten der 
Zeit. 


Dieses Programm, das etwas aus der Reihe der übrigen der Re- 
ady to use-Reihe tanzt, soll erstens dazu Mut machen, auch kom- 
plexere Probleme in Assembler anzugehen und zweitens zeigen, 
daß solche Programmierer »auch nur mit Wasser kochen« ... 


Eckehart Röscheisen 


80B4 CDF780 ; 

80B7 CDIEBI call tab s TAB 

80BA ZABSBI hl,isize_v) ; FOR i=0 TO size 
80BD b,h 
80BE c,1 
80BF bc 

8000 h1l,0 
8003 ti_v),hl 
80C6 de,flag® 
8009 hi,de 
BOCA a,(chl) 
80CB a 

8BOocCc z,not2 
80CE hl,t_v 
80D1 hl.hl 
80D2 de,3 


80D5 hl,de 
80D6 pnum 
8009 tab 

8oDc hl,tı_w 
80DF hl 

80EO ti_v),hl 
80E3 

80E4 

80ES 

80E6 

80E8 

80E9 

BOEB hl,text4 * PRINT 
LF *) 

B8OEE a,(chl) 
ing *) 

80EF a 

80Fo z 

8orl hl 

8OF2 CDSABB #bb5a 
80F5 18F7 print 


call pnus 


IF flagti) 


PRINT i+i+3 


(2 SUB write CR/ 


(#2 SUB write str 


80F7 111027 
ber *) 

80FA CD1281 
80FD 11E803 
8100 CD1281 
8103 116400 
8106 CD1281 
8109 110A00 de,10 
810C CD1281 subtst 
810F 110100 de,i 
8112 subtst: 2,47 
8ıla a 

8115 subent: hil,de 
8117 a 

8118 nc,subent 
B1laA hl,de 
811B *bb5a 


de, 10000 (x SUB write num 
subtst 

de, 1000 

subtst 

de, 100 

subtst 


8ılE B a,ix) 
ulator &*) 

8121 FES6 54 

8123 200C nz,notlf 
8125 AF a 

8126 320381 (x),a 
8129 CDIBBB *bblb 
812C DCI18BB c,#bbi8 
8ı12F erif 
8131 * a,6 

8133 (xX),a 
8136 3227B7 (#b6727),a 
8139 C9 


(x SUB write tab 


813A 040218 
813D 20536965 
8155 1820A4 
8158 31393837 
8179 OAOAOD 10,10,13 

817C 436F6D70 "Computing ..." 
8189 0DOO 13,0 


4,2,24 

" Sieve Of Erastosthenes * 

24,32, 164 

"1987 by COMPUTER project Software” 


818B 4E756D62 "Number of prines: * 
819D 00 ° 


819E ZE204069 b “u 


List of primes ? (Y/N)* 
81B6 OAODOO 


10,13,0 


81B9 _vi ; (* Variablendeklaration 
en x) 
81BB 
81BD 
8ıBF 
sıcı 
81C3 
81C4 


(*2 Datenfeld fuer Primz 


80A3 u erif 80EB 

B1cA 

803D 

80DC 

8136 

80EE size_v 81B9 

8000 subent 8115 
subtst 8112 texti 813A 
text2 818B text4 B81B6 
wend 8058 


Table used: 348 529 
Executes: 32768 
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Ready to use Tip 


ME SOFTWARE CLOCK 
Des Schneiders Uhrli 


Für Spiele, Anwendungen und andere Software, bei der 
Zeit eine Rolle spielt, kann der Schneider dank seiner 
ausgefeilten Interrupttechnik ein Uhrli nebenher unter- 
halten. 


Die Uhr wird per clock init mit call clinit eingeschaltet. Sie 
kann mit call tzero auf 00:00:00 gestellt werden oder über 
set time mit call settim individuell gestellt werden: Beim 
Einsprung müssen A die Stunden, B die Minuten und C die 
Sekunden der einzustellenden Zeit enthalten sein. Über get 
time kann ein String in ein in HL angegebenes Workarea ko- 
piert werden (call gettim). Dieser hat die Form HH:MM:SS 
und damit eine Länge von 8 Bytes, die dann als Characters 
via xBBSA ausgegeben werden können. 


(Eckehart Röscheisen) 


1000 

AOOO 1010 org #a000 
1020 
1030 KK KK KK KK KK 
1040 KK KRONE SUB TIMER 
1050 KKRRKIRRRRKOKKKK A6A4, 664, 6128 
1060 kxkkıkkkkkk Digital realtime clock 
1070 Kakakaakaaeaekkkkrkk 94 Bytes 
1080 KK KK KK SKK 
1090 

AO0O0O ZI14FAO 1100 clinit: ld hl,tickbl 

A003 013200 1110 ld bc,50 

A006 50 1120 ld d,b 

A007 59 1130 ld ec 

AOO8 C3EIBC 1140 j3p #bce9 
1150 

AOOB Z215DAO 1160 timint: ld hl,time3 

AOOE 34 1170 inc (hl) 

AOOF TE 1180 ld a,(hl) 

AO1O FESC 1190 cp 80 

AOl2 DE 1200 ret c 

AO13 3600 1210 ld (h1),O 

A015 2B 1220 dec hl 

A016 34 1230 inc (hl) 

AO17 TE 1240 ld a,(chl) 
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A029 
AO2C 
AO2D 
AOZE 
AOZF 
AO3O 
A031 
A032 
A033 


A034 
A037 
A039 
AO3A 
AOSC 
AO3D 
AO3F 
A041 
A043 
A044 
AO45 
AO46 
A047 
A048 
A049 
AO4B 
AOAC 
AO4D 


AO4F 
A057 
AOS8 
A059 


AOSB 
AOSC 
AOSD 


clinit 
nxttim 
tinel 

timint 


215BAO 
F3 
DE 
23 
70 
23 
71 
FB 
c9 


115BAO 
0603 


A000 
A039 
AOSB 
AOOB 


Table used: 


Tips 


1250 cp 80 

1260 2er © 

1270 ld (h1l),O 
1280 dec hl 

1290 inc (hl) 
1300 ld a,(hl) 
1310 cp 24 

1320 ret c 

1330 1d (hl),Oo 
1340 ret 

1350 

1360 tzero: xor a 

1370 ld b,a 

1380 ld c,a 

1390 

1400 ; A = Hours (00-24) 
1410 ; B = Minutes (00-60) 
1420 ; C = Seconds (00-60) 
1430 

1440 settim: ld hl,timei 
1450 di 

1460 ld (hl),a 
1470 inc hl 

1480 ld (hl),b 
1490 inc hl 

1500 ld (hl),c 
1510 ei 

1520 ret 

1530 

1540 ; HL = String address 
1550 

1560 gettim: 1d de,timel 
1570 ld b,3 

1580 nxttim: ld a,(de) 
1590 ld c,47. 
1600 nxtdez: inc c 

1610 sub 10 

1620 jr nc,nxtdez 
1630 add a,58 
1640 ld (hl),c 
1650 inc hl 

1660 ld (hl),a 
1670 dec b 

1680 ret z 

1690 inc hl 

1700 ld La I 
1710 inc hl 

1720 inc de 

1730 jr nxttim 
1740 

1750 tickbl: defs 8 

1760 defb O 

1770 defb #81 

1780 defw timint 
1790 

1800 timel: defs 1 

1810 time2: defs i 

1820 time3: defs 

1830 


gettim A034 
settim AO29 
time2 AOSC 
tzero A026 


152 from 


nxtdez AOSC 
tickbl AO4F 
time3 AOSD 


233 


& Tricks 


for HH:MM:SS 


Anwendungen 


WERTPAPIERBILANZ 


Das vorliegende Programm ermöglicht dem Aktien- und 
Anleihenbesitzer eine einfach zu handhabende, übersicht- 
liche Verwaltung seiner Wertpapiere und eine laufende Er- 
folgskontrolle der einzelnen Papiere und des eingesetzten 
Kapitals. Es hilft bei regelmäßiger Anwendung, fundierte 
Kauf- und Verkaufentscheidungen treffen zu können und 
nicht zuletzt wurde dabei an den jungen Sparer gedacht, der 
erst einmal »Trockenübungen« machen möchte. 
Erstellt wurde das Programm auf dem SCHNEIDER CPC 464, 
mit FLOPPY DISC DDI-I und DRUCKER NLQ 401. Es läuft 
jedoch auch mit Kassette. 
Gegenüber dem Sparbuchsparer, der den Erfolg seines Sparens 
einmal im Jahr per Zinsgutschrift mitgeteilt bekommt, ist es für 
den Wertpapiersparer ungleich schwieriger, den Erfolg oder 
Mißerfolg seines eingesetzten Geldes zu beurteilen. Wertpapiere 
haben veränderliche Kurse! Käufe und Verkäufe werden mit 
Spesen belastet; der Bestand an Wertpapieren wird oftmals um- 
geschichtet; Renditen schwanken mehr oder weniger stark. Alle 
diese Dinge erschweren die Erfolgskontrolle. 
Im vorliegenden, praxiserprobten Programm wurde nun folgen- 
der Weg beschritten, um trotzdem Erfolge oder Mißerfolge in 
DM oder % ausdrücken zu können: Am Beginn eines Jahres 
z.B. wird der Wert jeder einzelnen Wertpapierposition über den 
aktuellen Börsenkurs ermittelt. Alle Positionen zusammenge- 
nommen ergeben den Wert des Depot’s an diesem Tage. Dazu 
kommt ein Kassenbestand, der zu weiteren Käufen dient und der 
anfangs mehr oder weniger willkürlich festgelegt werden kann. 
Depot und Kassenbestand addiert,ergeben das eingesetzte Ka- 
pital. Von diesem Kapital ausgehend, wird nun in regelmäßi- 
gen Zeitabständen der, aufgrund der veränderlichen Börsenkur- 
se, neue Kapitalwert ermittelt und mit dem alten Kapitalwert ver- 
glichen. Die Differenz hieraus ist der Gewinn bzw. der Verlust. 
Bei Verkäufen verringert sich die Anzahl der Stücke und damit 
der Depotwert;gleichzeitig erhöht sich der Kassenbestand. Bei 
Käufen erhöht sich die Anzahl der Stücke und der Kassenbe- 
stand sinkt entsprechend. Käufe und Verkäufe sind demgemäß 
wertneutral. Es wird empfohlen, einmal wöchentlich einen Pro- 


für 464-664-6128 


1 REM Programm: WERTPAPIERBILANZ 

2 REM SAVE"WEPABILZ" 

3 REM --- DATEI: AKDATA 

4 REM --- (c) by Hans Mocho,Gaertnerweg 14 
CLEAR:MODE 2:BORDER 5 
V=40 [502] 
DIM A(V,2),A$(V,2),B(V,2),C$(v) [1933] 
CLS [91] 
ON ERROR GOTO 2170 [1481] 
WINDOW#3,24,42,2,2 [1168] 
WINDOW#2,1,80,25,25 [1376] 
N [117] 

[1277] 

[117] 

[5359] 


[2569] 
[1176] 
[1403] 
[1982] 
[2343] 


REM --- Menue --- 
100 ' 
110 PRINT"==================2==2=====2=2=2===== 
SZES2S2S2SZEZ22E22E22222Z22ZZEZEZE2E2S2SSSS2S SS EIS een = 
s====="; 
120 PRINT"**x* WB RT 
AB OL WECR DT Ob22R IN. 2 


2.2 2/25 
? 


130 PRINT"=================2==2=2=2====== 


[3207] 


[5359] 


102 Epe 


grammlauf durchzuführen und die dabei ausgedruckten Bilan- 
zen zu sammeln. 

Beim erstmaligen Start des Programms ist eine Wertpapierauf- 
stellung anzufertigen. Der Befehl 

<K-artei erstellen > 

ist dafür zu benutzen. DM ist unbedingt einzugeben, weil sonst 
eine falsche Bilanzberechnung nach Stückzahl erfolgt. Bei spä- 
teren Programmstarts wird nur der Befehl 

<L-aden> 

benutzt, um als erstes die DATEI zu laden. Sie enthält alle wich- 
tigen Daten der letzten Bilanz, wie Kurse, Depot, Kasse usw. 
Bei zwischenzeitlich erfolgten Änderungen der einzelnen Po- 
sitionen ist sodann auf < K > zu schalten und die entsprechen- 
de Korrektur durchzuführen. Es erscheint nunmehr eine Über- 
sicht über die vorhandenen Wertpapiere mit den jeweiligen Kur- 
sen der letzten Bilanz und dem Kassenbestand. Nach Drücken 
von< N > wird nach Datum, Anderung des Kassenbestands 
durch Käufe oder Verkäufe, Spesen, Zinsen etc. gefragt. Außer- 
dem fragt das Programm nach Dollarkurs, Durchschnittsren- 
dite, und FAZ-Index. Diese Daten sind aus den Wirtschaftsteilen 
der Zeitungen zu entnehmen und wichtig für Kauf- oder Ver- 
kaufentscheidungen; ihre Eingabe ist wahlfrei. Sodann werden 
die aktuellen Kurse abgefragt. Aus der folgenden Wertpapier- 
bilanz (siehe Bild I) können alle Daten, wie Gewinne, Depot- 
wert, Kassenstand etc. entnommen werden. Diese auf Wunsch 
auszudruckende Bilanz ist sehr hilfreich bei Anlageentscheidun- 
gen. Die gesammelten Exemplare, die im Format bewußt klein 
gehalten wurden, zeigen die Vermögensentwicklung über einen 
längeren Zeitraum und lassen Anlagefehler klar erkennen. Vor 
Abschalten des Computers werden die neu eingegebenen Da- 
ten wieder in der DATEI abgespeichert. Bei einem erneuten 
Computerlauf rücken diese neuen Daten dann in die Spalte der 
alten Daten usw. . 

Von Zeit zu Zeit empfielt sich ein Vergleich zum Jahresbeginn 
oder zu allen Kaufkursen. Dafür ist im Programm eine Korrek- 
turmöglichkeit für den »Zeitraum« vorgesehen. Das Programm 
ist für die Verwaltung von 40 verschiedenen Wertpapieren ein- 
gerichtet. Es ist vorteilhaft, die maximal zu erwartende Anzahl 
(auch größer 40) einzugeben. Dies geschieht durch Anderung 
der Variablen »V« in Zeile 20. (Hans Mocho/SH) 


140 PRINT [361] 

150 PRINT" Dieses Programm ermoeglicht d [7323] 

em Aktien- und Anleihenbesitzer eine einfa 

ch zu" 

160 PRINT" handhabende, uebersichtliche 

Verwaltung seiner Wertpapiere und eine lau 

fende" 

170 PRINT" Erfolgskontrolle der einzelnen 

Papiere und des eingesetzten Kapitals. Es 

hilfe 

180 PRINT" bei regelmaessiger Anwendung, 

fundierte Kauf- und Verkaufentscheid 

ungen" 

190 PRINT" treffen zu koennen und nicht 
zuletzt ist es als Ansporn fuer junge $ 

parer" 

200 PRINT" gedacht, die erst einmal 'Trock 
enuebungen' machen wollen." 

210 PRINT:PRINT" Es wird empfohlen, einmal 
woechentlich einen Programmlauf durchzuf 
uehren und" 

220 PRINT" die dabei ausgedruckten Bilan 
zen zur kritischen Beurteilung zu sammeln 
. Das" 

230 PRINT" Programm ist fuer die Verwalt 
ung von 40 Wertpapieren eingerichtet. Es 


[7230] 


[6570] 


[6989] 


[7807] 


[5852] 
[9179] 


[7893] 


[7689] 
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ist" 
240 PRINT" vorteilhaft, die 
e max. Anzahl 
g der" 
250 PRINT" Variablen 'V' in Zeile 20." 
260 PRINT" Der Befehl < K-artei erstellen 
> wird nur fuer die erstmalige Wertpa 
pier-" 


zu erwartend 
einzugeben, durch Aenderun 


270 PRINT" Aufstellung benoetigt. Dabei 
ist ' DM ' unbedingt einzugeben, weil 
sonst" 


280 PRINT" eine falsche Bilanzberechnung 
nach Stueckzahl erfolgt. Bei spaeteren S 
tarts"” 


290 PRINT" wird nur der Befehl < L-ade 
ın > benutzt und gegebenenfalls der B 
‚ efehl" 


ı 300 PRINT" < K-artei > bei erfolgten Besta 
| ndsaenderungen." 


310 PRINT:PRINT TAB(50),"Hans Mocho, Gaert 

nerweg 14" 

320 PRINT TAB(50),"6000 Frankfurt a.M. 1" 
330 PRINT#2,CHR$(24)"Bitte eingeben: Ä 
L-aden > < K-artei erstelle 
0% "+CHRS$ (24); 

340 D$=INKEY$:IF D$="" THEN 340 

350 IF D$<»"L" AND D$<>"1" AND D$<>"K" AND 
D$<>"k" THEN 340 


360 IF D$="L" OR D$="1" THEN GOTO 630 

370 IF D$="K" OR D$="k" THEN GOTO 410 

380 ' 

390 REM --- Kartei Aufbau/Aenderung --- 
400 ' 

410 CLS:CLS#2 

420 GOSUB 2210 

430 CLS#2:PRINT#2,CHR$(24)"Bitte neue Date 


n eingeben ! 

"+CHR$ (24); 
FOR i=0 TO 1500:NEXT 
GOSUB 2290 
I=0 
I=I+1 
n=I+4 
IF I=21 THEN CLS:GOSUB 2210:G0SUB 2290 
IF I>=21 THEN n=I-16 
510 IF I=V+1 THEN 1110 
520 PRINT TAB(2);A(I,1);:PRINT TAB(15);A$( 
I,1);:PRINT TAB(31);A$(I,2);:PRINT TAB(49) 
;A(I,2) 
530 LOCATE 62,n:INPUT C$(I) 
540 IF C$(I)="K" OR C$(I)="k" THEN 590 ELS 
E LOCATE 1,n:INPUT A(I,1) 
550 IF C$(I)="" THEN GOTO 1110 
560 LOCATE 13,n:INPUT A$(I,1) 
570 LOCATE 29,n:INPUT A$(I,2) 
580 LOCATE 48,n:INPUT A(I,2) 
590 GOTO 470 
600 ' 
610 REM --- DATEI laden --- 
620 ' 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


440 
450 
460 


470 
480 
490 
500 


OPENIN"AKDATA" 
CLS:PRINT#2," DATEI wird geladen !" 
INPUT#9,altdat$ 
INPUT#9,GN 
INPUT#9,KN 

I=0 

WHILE NOT EOF 
I=I+1 
INPUT#9,A(I,1) 
INPUT#9,A(I,2) 
INPUT#9,A$(I,1) 
INPUT#9,A$(I,2) 
INPUT#9,B(I,2) 


[5541] 


[2282] 
[7850] 


[5893] 
[7596] 
[10161] 


[4752] 
[4980] 


[1903] 
[5642] 


[1118] 
[3078] 


[858] 
[860] 
[117] 
[1668] 
[117] 
[239] 
[873] 
[7193] 


[837] 
[857] 
[420] 
[444] 
[113] 
[1494] 
[891] 
[744] 
[4361] 


[770] 
[4086] 


[318] 
[913] 
[1500] 
[1504] 
[454] 
[117] 
[1214] 
[117] 
[1000] 
[2551] 
[1262] 
[613] 
[845] 
[420] 
[1840] 
[444] 
[923] 
[877] 
[1064] 
[1058] 
[915] 


760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 


IF I=V THEN 780 
WEND 

CLOSEIN 

GA=GN 

KA=KN 

FOR I=1 TO V 
B(1,1)=B(I,2) 
B(I,2)=0 

NEXT 

GOTO 1110 


REM --- Daten sichern --- 


OPENOUT"AKDATA" 
900 CLS#2 
910 PRINT#2,CHRS(7),CHR$(24)" Daten werden 
gesichert ! 

"+CHR$ (24); 
920 
930 
940 
950 
960 
970 


PRINT#9,altdat$ 

PRINT#9,GN 

PRINT#9,KN 

FOR I=1 TO V 

PRINT#9,A(I,1) 

PRINT#9,A(I,2) 

980 PRINT#9,AS(I,1) 

990 PRINT#9,A$(I,2) 

1000 PRINT#9,B(I,2) 

1010 NEXT 

1020 CLOSEOUT 

1030 CLS#2:PRINT#2,CHR$ (24) ‚CHRS (7) "Bitte 

eingeben: < D-rucken > < E-nde 

> "+CHR$ (24) 
1040 D$=INKEY$:IF D$="" THEN 1040 

1050 IF D$<>"D" AND D$<»"d" AND DS<>"E" AN 
D D$<>"e" THEN GOTO 1040 


1060 IF D$="D" OR D$="d" THEN GOTO 1970 
1070 IF D$="E" OR D$="e" THEN GOTO 2020 
1080 ' 

1090 REM --- Gewinn / Verlust --- 

1100 ' 

1110 CLS:CLS#2 

1120 u=0 

1130 PRINTfu,'Wertpapierbila 
0 z" 

1140 PRINT#u, "---------------------- --- --- 
1150 PRINT#u,"Datum: ";datum$;:PRINT$u, TAB 


(26)"Vergleich zu ";altdat$ 

1160 PRINT#u:PRINT#u,"MENGE NAME 
KURS/A KURS/N WERT + % _ KAUFKUR 

a. 

1170 $S=0 

1180 FOR I=1 TO V 

1190 IF A(I,1)=0 THEN GOTO 1320 

1200 PRINT#u,TAB(1) USING"###4#";A(I,1); 

1210 PRINT#u,TAB(7) AS$(I,2); 

1220 PRINT#u,TAB(25) B(I,1);:PRINT#u, TAB (3 

3) B(I,2); 

„2 IF A$(I,1)="DM" OR AS$(I,1)="dn" THEN 

0 

1240 SU=A(I,1)*B(I,2) 

1250 PRINT#u,TAB(41) USING" #444"; SU; :GOT 

0 1280 

1260 SU=A(I,1)*B(I,2)/100 

1270 PRINT#u,TAB(41) USING" ###44#"; SU; 

a IF B(I,2)=0 OR B(I,1)=0 THEN GOTO 130 

1290 PRINT#u,TAB(48) USING"###.#"; (B(1,2)- 

B(I,1))/B(I,1)*100; 

1300 S=S+sU 

1310 PRINT#u,TAB(55) A(I,2) 

1320 NEXT I 


Anwendungen 


[991] 
[390] 
[752] 
[299] 
[566] 
[416] 
[1064] 
[637] 
[350] 
[349] 
[117] 
[1339] 
[117] 
[802] 
[372] 
[5643] 


[939] 
[1028] 
[1068] 
[416] 
[1058] 
[1060] 
[1139] 
[1141] 
[1049] 
[350] 
[902] 
[7853] 


[1252] 
[3116] 


[1402] 
[1540] 
[117] 
[1776] 
[117] 
[239] 
[277] 
[2777] 


[3028] 
[3900] 
[4238] 


[285] 
[416] 
[567] 
[1737] 
[1184] 
[3072] 


[1191] 


[803] 
[2688] 


[1189] 
[1700] 
[2346] 


[2694] 
[191] 


[1020] 
[375] 
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Anwendungen 


1330 ' [117] 


1340 REM --- Bilanz --- 

1350 ' 

1360 PRINT#u,"------------ Neil Alt--- 
1370 PRINT#u,"Depot = "USING"##HH##";S;:P 
RINT#u," = "USING"#ERREE";GA-KA; 

1380 PRINT#u, TAB (34) "Dollarkurs (DM) ";DK 
1390 KN=KA+KD 

1400 PRINT#u,"Kasse = "USING"HHEHHER";KN;: 
PRINT#u," = "USING" ERRREER";KA; 3 
1410 PRINT#u,TAB(34) "Rendite Oeff. ";RU;"/ 
" RO 

1420 GN=S+KA+KD 

1430 PRINT#u, "GESAMT = "USING" HRRREE";CN;: 
PRINT#u," = "USING" HREERR";GA; 

1440 PRINT#u,TAB(34)"Rendite Pfand.";PU;"/ 
" PO 

1450 E=GN-GA:IF S=0 THEN E=0 

1460 P=E/GA*100 

1470 PRINT#u,"Gewinn : "USING" ######";E;:P 
RINT#u," DM /"USING"###.#";P;:PRINT#u," %" 


1480 PRINT#u,TAB(34)"FAZ Akt.-Index";IA 

1490 PRINT#u,"Kaeufe/Verk./Bem.: ";KD;:PRI 

NT#u,P$ 

1500 PRINT#u, "---------------------------- 

1510 PRINT#u:IF u=8 THEN RETURN 

1520 PRINT#2,CHR$(24)"Bitte eingeben: < 

N-eue Kurse > < S-ichern > < D-rucken 

> < K-artei > "+CHR$ (24) ; 

1530 D$=INKEY$:IF D$="" THEN 1530 

1540 IF D$<>"N" AND D$<>"n" AND D$S<>"K" AN 

D D$<»"k" AND D$<»"S" AND D$<>"s" AND D$<) 

"D" AND D$<>"d" THEN GOTO 1530 

1550 IF D$="N" OR D$="n" THEN GOTO 1620 

1560 IF D$="K" OR D$="k" THEN GOTO 410 

1570 IF D$="S" OR D$="s" THEN GOTO 890 

1580 IF D$="D" OR D$="d" THEN GOTO 1970 

1590 ' 

1600 REM --- Neue Kurse eingeben --- 

1610 ' 

1620 CLS:CLS#2 

1630 INPUT"Aktuelles Datum 

1640 PRINT"Vergleich zu 

\ \'"zaltdat$ 

1650 PRINT#2," Anderer Vergleich gewuensch 

En Sonst beliebige Taste !" 

1660 D$=INKEY$:IF D$="" THEN 1660 

1670 IF D$<»"A" AND D$<>"a" THEN 1700 

1680 IF D$="A" OR D$="a" THEN 1690 

1690 CLS#3:LOCATE 23,2:INPUT;altdat$ 

1700 CLS#2 

1710 PRINT"Kassenstand-Aenderung ? Wertpap 

ierkaeufe, Spesen und Gebuehren mit '-' 

eingeben. 

Verkaeufe, Zinsen und Dividenden werden 

mit '+' eingege 


":datum$ 
"USING" ’ 


ben !" 

1720 INPUT"Bitte Eingeben DM ";KD 

1730 LINE INPUT"Bemerkungen ges 
P$ 

1740 PRINT"------------------------- ------ 


1750 PRINT"Sonstige Eingaben ? Die fol 

genden Eingabedaten sind wahlfrei. Bitte 
eingeben, o 

der <EN TER > druecken !" 

1760 PRINT:INPUT"Dollarkurs (DM) 

K 

1770 INPUT"Rendite Oeff. % min. 


".p 


WSRU 


104 epe 


[862] 
[117] 
[3324] 


[3283] 


[2653] 
[334] 
[5662] 


[1623] 


[986] 
[5301] 


[1917] 


[1325] 
[304] 
[4712] 


[1864] 
[4212] 


[3028] 


[1469] 
[6404] 


[1242] 
[6749] 


[1713] 
[860] 
[1531] 
[1402] 
[117] 
[1530] 
[117] 
[239] 
[1699] 
[6224] 


[4624] 
[1208] 
[2464] 
[1264] 
[1083] 


[372] 
[16066] 


[2130] 
[2391] 


[4376] 


[12669] 


[1865] 
[2302] 


1780 INPUT" % max. ";RO 
1790 INPUT"Rendite Pfand.% min. ";PU 
1800 INPUT" % max. ";PO 
1810 INPUT"FAZ Akt.-Index ":IA 


1820 CLS 

1830 PRINT"Bitte die aktuellen Kurse einge 
ben !" 

1840 PRINT"------------------------------- 


1850 PRINT" 
KURS/N " 

1860 FOR I=1 TO V 
1870 PRINT TAB(1) USING"#####";A(1I,1); 
1880 IF A(I,1)=0 THEN GOTO 1920 

1890 PRINT TAB(7) A$(I,2); 

1900 PRINT TAB(25) B(I,1); 

1910 PRINT TAB(34) :INPUT B(I,2) 


NAME 


1920 NEXT 

1930 GOTO 1110 

1940 ' 

1950 REM --- Drucken --- 

1960 ' 

1970 PRINT#8,CHR$ (27) ;CHR$ (120) ;CHR$ (0) 
1980 u=8:G0SUB 1130 

1990 ' 

2000 REM --- Ende --- 

2010 ' 

2020 CLS 

2030 PRINT#2,CHR$(24)" Sind Daten Gesicher 
Er RI /N:> 


"+CHR$ (24); 
2040 D$=INKEY$:IF D$="" THEN 2040 
2050 IF D$<>"J" AND D$<»"j" AND DS<Y"N" AN 
D D$<>"n" THEN 2040 
2060 IF D$="J" OR D$="j" THEN GOTO 2090 
2070 IF D$="N" OR D$="n" THEN GOTO 890 
2080 ' 
2090 CLS:CLEAR:BORDER 1 
2100 LOCATE 30 ‚10:PRINT"========2=22=22222z= 


2110 LOCATE 30,11:PRINT"* E N D E 


2120 LOCATE 30,12:PRINT"================== 


2130 LOCATE 1,24:END 

2140 ' 

2150 REM --- UP Fehler --- 

2160 ' 

2170 RESUME NEXT 

2180 ' 

2190 REM --- UP Karteiblatt --- 
2200 ' 

2210 PRINT"Karteiblatt" 
2220 PRINT"---------------------- e 


2230 PRINT" MENGE DM oder St N 
AME KAUFKURS ";CHR$ (24) 

" Zeile O0.K. ? "+CHR$(24) 

2240 PRINT"------------------------ ------ - 
2250 RETURN 

2260 ' 

2270 REM --- UP Steuer-Daten --- 

2280 ' 

2290 CLS#2:PRINT#2,CHR$(24)" < K-orrekte Z 
eile > < Z-eilenanfang > Eingabe 
ende < 2 mal ENTER > "+CHR$ (24); 


2300 RETURN 


[1591] 
[2178] 
[1587] 
[476] 
[91] 
[5285] 


[2712] 
[1245] 


[416] 
[2357] 
[783] 
[333] 
[1223] 
[1129] 
[350] 
[349] 
[117] 
[1529] 
[117] 
[2093] 
[1303] 
[117] 
[959] 
[117] 
[91] 
[4478] 


[1276] 
[2879] 


[1401] 
[1728] 
[117] 
[937] 
[3147] 


[2972] 


[3332] 


[1066] 
[117] 
[1128] 
[117] 
[703] 
[117] 
[2040] 
[117] 
[2015] 
[1754] 
[3637] 


[4496] 


[555] 
[117] 
[2123] 
[117] 
[9451] 


[555] 
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Tips & Tricks 


Ready to use Tip 


ma 
für 464-664-6128 Ei 
SLIME u 
A000 1010 org #a000 
2. 1020 
Bildschirm löschen 1030 aaa 
einmal auf andere Weise 1040 Kakakakakakakakakakakakakakakakakaecckk SUB SLIME 


1050 Kkakakakakakakaakakakkıkıkıkkr 464, 664, 6128 
1060 akakakakaaakakaakalakalkıalakıık Clear screen 
1070 3akakakakaakakaakackkkıkk 38 Bytes 


Wie löscht man den Bildschirm in Assembler? 1080 Kakkakakakakakakakalakakakakakalak3kalakakalakakkkkkkk 
— Na, so zum Beispiel: 1090 
A000 2100C0 1100 slime: ld h1,#c000 
A003 0619 1110 ld b,25 
cels: Id hl, #c000 ; Startadresse A005 E5 1120 loop3: push hl 
ld de,#c00l; Verschiebeadr. re ER 2 Ze Ben 
ld be,#3tft ; Länge A009 ES 1150 loop2: push hl 
ld (hl),O ; 1.Byte löschen AOOA C5 1160 push bc 
. AOOB 0650 1170 ld b,80 
Idir ‚ D’kopieren ... A00D 3600 1180 loop: ld (h1),0 
ret ; Fertig AOOF 23 1190 inc hl 
AO1O 1OFB 1200 djnz loop 
So funktioniert der CLS-Befehl in der Maschinen-Ebene. Aber ae = SER = 2 4 18 
das ist wenig reizvoll. A016 EI 1230 pop hl 
A017 7C 1240 ld a,h 
Wie wäre es einmal mit einer etwas anderen Lösch-Routine? A018 C608 1250 add a,8 
AOlA 67 1260 ld h,a 
SLIME löscht den Bildschirm von oben nach unten wie eine Art gl > a en ra 
heruntergelassene Jalousie. Allerdings sollte der Bildschirm AOIE EI 1290 pop hl 
AOIF 115000 1300 ld de,so 
e, 
möglichst noch nicht gescrollt worden sein, denn dann siehtdas | 022 ı9 ea a Kiie 
ganze noch eine Spur besser aus. A023 10EO 1320 djnz loop3 
ı A025 C9 1330 ret 
Die Routine läuft auf allen drei CPC-Computern und benötigt Ma ee ze 1340 
weniger als 40 Bytes ... ins Aoso, re MNOM Basar AU 
Hermann Röscheisen Table used: 80 from 164 


FÜR NIX GIBT’S NIX 


Aber für gute Programme und Tips & Tricks umso mehr 


Und für den 


Für den Top-Tip 
Programmhit des Monats 
des Monats ganze 


1000,- 900,- 


Das sind doch gute Argumente, ihr Programm auch 
einmal zum Hit des Monats werden zu lassen. 
Probieren geht über Studieren. 

Bitte richten Sie Ihre Einsendungen an: 

DMV Verlag, Fuldaer Str. 6, 3440 Eschwege 
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Tips & Tricks 


Befehlserweiterung für F1-X 


Wollen Sie beim Anschluß eines Vortex-Controllers lieber 
mit den AMSDOS-Befehlen arbeiten? Wenn ja, dann ist die- 
ses Programm das richtige für Sie. 


Die Erweiterung der Befehle sieht wie folgt aus: 

Tape 

ITape. in 

Tape. out 

IDrive, »A« (bzw.!Drive,»B«“) 

User, x 

Diese Befehle machen die Geräte-Konfiguration CPC + 3“ - 
Erstlaufwerk + Vortex FI-X wieder AMSDOS-Kompatibel. So 
brauchen alte Programme nicht angepaßt werden, wenn diese 
Routine vorher gestartet wurde. 

Es kann auf die aufgeführten Vortex-Befehle verzichtet werden, 
ohne darauf verzichten zu müssen. Das heißt, Sie können wäh- 
len zwischen Vortex und AMSDOS-Befehlen. 

Die Befehle sind: 

CAS — CAS. IN — CAS. OUT — SELECT. 

Aber das ist noch nicht alles, es wurden noch andere Befehle 
implementiert. 

IREAD, Anfang, Länge: 

liest headerloses File von Cassette 


IWRITE, Anfang, Länge: 

schreibt headerloses File auf Cassette. 

Z.B. kann mit folgendem Befehl der Bildschirm headerlos ab- 
gesaved werden: 


IWRITE, &C000, &4000 

und wieder laden mit 

IREAD, &C000, &4000 

und dann gibt es noch den Befehl 
ILoad, »FILENAME«, adr 


1000 DATA 01,14,A0,21,10,A0,CD,D1,BC,3E,C9 
‚CE,32,00,A0,C9,10,A0,14,AO 

1010 DATA 31,A0,C3,5E,A0,C3,62,A0,C3,66, AO 
‚Cc3,6A,A0,C3,81,A0,C3,0C,Ail 

1020 DATA C3,CD,A0,C3,69,A1,C3,89,A1,54,41 
‚50,C5,54,41,50,45,2E,49,CE " 
1030 DATA 54,41,50,45,2E,4F,55,D4,55,53,45 
‚D2,44,52,49,56,C5,52,45,41 

1040 DATA C4,57,52,49,54,C5,4C,4F,41,C4,44 
‚4F,D3,00,DF,75,A0,C9,DF,78 

1050 DATA AO,C9,DF,7B,A0,C9,DD,7E,00,DD,2A 
‚75, BE,DD, 77,05,C9,FD,CC, 07 

1060 DATA 01,CD,07,18,CD, 07,E4,CD, 07, FE, 01 
‚20,1B,DD,66,01,DD,6E, 00,23 

1070 DATA SE,23,56,1A,FE,41,28,27,FE,61,28 
‚23, FE,42,28,28,FE,62,28,24 

1080 DATA 21,AD,AO,7E,FE,00,C8,CD,5A, BB,23 
‚18,F6,42,61,64,20,63,6F,6D 

1090 DATA 6D,61,6E,64,0D,0A,00,DD, 2A, 75,BE 
‚DD,36,06,00,C9,DD,2A,75,BE 

1100 DATA DD, 36,06,01,C9, FE, 02,20,CF,DD,7E 
‚03,67,DD,7E,02,6F,DD,7E,01 

1110 DATA 57,DD, 7E,00,5F,ES5,D5,21,F3,A0,CD 
‚„AS3,AO,D1,E1,3E,00,CD,9E, BC 

1120 DATA 30,5D,C9,53,61,76,69,6E,67,20,48 
‚65,61,64,65,72,6C, 65, 73,73 

1130 DATA 20,46,69,6C,65,0D,0A,00,FE, 02,20 


[3644] 


[3519] 


[3841] 


(2651) 


[3481] 


[3373] 


[2976] 


[4031) 


[2632) 


L4276) 


13625) 


(3300) 


(3159) 


[2997] 
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mit dem Binärfiles an jede Speicheradresse geladen werden kön- 
nen (z.B. unter HIMEM) oder an Adressen, an die man mit dem 
normalen LOAD-Befehl nicht gelangt, z.B. dez 40. Sollten Sie 
die Übersicht verloren haben, so können Sie alle Befehle mit 
dem kurzen Kommando IDOS auflisten und erklären lassen. 
Anzumerken wäre noch, daß der neue USER-Befehl komfor- 
tabler ist als der alte, es lassen sich statt USER O0 — 15 nun 
USER 0 — 255 verwenden. 


Sie können auch, was nicht zu verachten ist, z.B. mit !USER, 
229 auf mit IERA, gelöschte Files zugreifen. Alle ITAPE-Kom- 
mandos greifen auf das AMSDOS-Floppy-Controller System 
zu. Das heißt, der Zugriff erfolgt auf die Epprom-Nummer 7. 
Darum alle Bastler: Wenn Sie die Nummer Ihres AMSDOS- 
Epproms verändert haben, funktionieren die Befehle nicht. 
Auch laufen die Befehle nicht mit anderen RSX-Befehlen zu- 
sammen, da bei mehreren Erweiterungen mehrmals die RSX- 
Routine #BCDl aufgerufen wird. Das macht Ihr Computer 
nicht mit. Alle alten RSX-Befehle einschließlich VDOS-, bzw. 
AMSDOS-Befehle verschwinden bei einem doppelten Aufruf. 
Das liegt aber nicht an der Erweiterung, sondern an der Rou- 
tine, die die Befehle in das Betriebssystem einbindet. Tippen Sie 
folgendes ab: 


1. Lader für das Binär-File 
1000 SYMBOL AFTER 256 
1010 MEMORY &9FFF 

1020 LOAD »dos. bin“,&a000 
1030 CALL &A000 

1040 IDOS 


und speichern Sie es ab. Danach müssen Sie die DATA-Zeilen 
1000 — 1040 abtippen und starten und wenn alles geklappt hat 
wird das ganze als Binär-File abgesaved. 


(H.-G. Esser/CD) 


‚90, DD, 7E,03,67,DD,7E, 02,6F 
1140 DATA DD, 7E,01,57,DD,7E,00,5F,E5,D5,21 
‚35,A1,CD,A3,AO0,CD,06,BB,Di1 
1150 DATA E1,3E,00,CD,A1,BC,30,1B,C9,4C,6F 
‚61,64,69,6E,67,20,48,65,61 
1160 DATA 64,65,72,6C,65,73,73,20,46,69,6C 
‚65,0A,0D,00,21,56,A1,CD, A3 
1170 DATA A0,C9,48,65,61,64,65,72,6C, 65,73 
‚73,20,45,72,72,6F,72,0A,O0D 
1180 DATA 00,FE,02,C2,A0,A0,DD, 66, 03,DD,6E 
‚02,46,23,5E,23,56, EB, DD, 56 
1190 DATA 01,DD,SE,00,D5,CD,77,BC,E1,CD,83 
‚BC,C9,21,8F,A1,C3,A3,A0,04 
i200 DATA 02,0A,18,20,20,20,20,20,20,20,20 
‚20,20,20,20,20,20,20,45,78 
1210 DATA 74,65,6E,64,65,64,20,46,31,2D,58 
‚20,44,6F,73,20,20,20,28,63 
1220 DATA 29,20,31,39,38,37,20,62,79,20,48 
‚61,6E,73,2D,47.65,6F,72,67 
1230 DATA 20,45, 73,73,65,72,20,20,20,20,20 
‚20,20,20,20,20,20,20,20,20 
1240 DATA 20,20,20,18,0D,O0A,0A,20,46,6F,6C 
‚67,65,6E,64,65,20,41,4D,53 
1250 DATA 44,4F,53,2D,42,65,66,65,68,6C,65 
‚20,77,75,72,64,65,6E,20,69 
1260 DATA 6E,20,64,61,73,20,56,44,4F,53,20 
‚65,69,6E,67,65,62,75,6E,64 
1270 DATA 65,6E,3A,0D,OA,0A,20,7C,54,41,50 
‚45,2C,20,7C,54,41,50,45,2E 
1280 DATA 49,4E,2C,20,7C,54,41,50,45,2E,4F 
‚55,54,2C,20,7C,55,53,45,52 
1290 DATA 2C,78,20,3B,20,7C,44,52,49,56,45 


[1842] 


13884) 


[2604] 


[2507] 


[3340] 
[2796] 
[2707) 
[3504] 
[2828] 


[3005] 


13332) 
[3186] 


(4483) 


[3336] 
[3477] 


[3164] 
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‚2C,22,78,22,0D,0A,0A,20,7A 
1300 DATA 75,73,61,65,74,7A,6C,69,63,68,65 [3564] 
\ ,20,42,65,66,65,68,6C,65,3A 
| 1310 DATA OD, 0A, 0A,20,7C,52,45,41,44,2C,20 [3172] 
‚73,74,61,72,74,2C,6C,61,65 
1320 DATA 6E,67,65,20,20,20,20,20,2D,2D,3E [3196] 
‚20,20,6C,65,73,65,6E,20,65 
1330 DATA 69,6E,65,73,20,68,65,61,64,65,72 [2161] 
‚6C,6F,73,65,6E,20,46,69,6C 
1340 DATA 65,73,20,76,6F,6E,20,43,61,73,73 [3145] 
‚65,74,74,65,0D,0A,20,7C,57 
1350 DATA 52,49,54,45,2C,73,74,61,72,74,2C [2601] 
‚6C,61,65,6E,67,65,20,20,20 
1360 DATA 20,20,2D,2D,3E,20,20,73,63,68,72 [2845] 
‚65,69,62,65,6E,20,65,69,6E 
1370 DATA 65,73,20,68,65,61,64,65,72,6C,6F [3575] 
‚73,65,6E,20,46,69,6C,65,73 
1380 DATA 20,61,75,66,20,43,61,73,73,65,74 [2529] 
‚74,65,0D,0A,0A,20,7C,4C,4F 
1390 DATA 41,44,2C,22,46,49,4C,45,4E,41,4D [2634] 
‚45, 2E,45,58,54,22,2C,61,64 
1400 DATA 72,65,73,73,65,0D,0A,0A,20,7C,44 [2981] 
‚4F,53,20,20,20,20,20,20,20 
1410 DATA 20,20,20,20,20,20,20,20,20,20,20 [3075] 
‚20,20,2D,2D,3E,20,20,49,6E 
1420 DATA 66,6F,72,6D,61,74,69,6F,6E,65,6E [3816] 
‚20,61,62,72,75,66,65,6E,0D 
1430 DATA OA,OA,OA,O0A,00,00,00,00,00,00,00 [3194] 
‚00,00,00,00,00,00,00,00,00 
1440 adr=&A000 [332] 
1450 ON ERROR GOTO 1500 [1519) 
1460 READ bytes [603] 
1470 POKE adr, VAL(’&"+byte$) (745) 
1480 adr=adr+i1 [392] 
1490 GOTO 1460 (391) 
1500 SAVE "dos. bin", b, &A000, adr-&9FFF (2516) 
1510 END [110] 
1000 ; Anpassung der Vortex Fl-X an die AMSDOS-Befehle: 
1010 ; ITAPE ; !TAPE.IN ; ITAPE.OUT ; IUSER ; IDRIVE 
1030 ; IREAD und IWRITE zum Laden und Schreiben 
1040 ; von headerlosen Files auf Cassette 
1050 
1060 i ILOAD laedt Binaer-Files von Cassette oder Diskette an 
1070 ; jede Adresse, auch wenn sie unter HIMEM liegt. 
1099 : (c) 1987 by Hans-Georg Esser 
1100 ; 
A000 1110 org #a000 
A000 1120 ent #a000 
BCDl 1130 logext: equ #bcdl 
A000 O114A0 1140 extern: ld bcırsx 
A003 2110A0 1150 1d hl,ıkernel 
A006 CDDIBC 1160 call logext 
A009 3EC9 1170 1d a,8c9 
A0O0B CE 1180 defb "N”"+#80 
A0O0OC 3200A0 1190 id (extern) a 
A0OOF CI 1200 ret 
A01lO 1210 kernel: defs 4 
A0Ol4 31A0 1220 rsx: defw table 
A0l6 C35EA0 1230 3p tape 
A019 C362A0 1240 jp tapein 
A0OlC C366A0 1250 j3p tapout 
AOlF C36AAO 1260 Jp user 
A022 C381A0 1270 Ip drive 
A025 C30CAl 1280 ip read 
A028 C3CDAO 1290 3p write 
A0O2B C369Al 1300 jp load 
AO2E C389Al 1310 jp dos 
A03l 544150 1320 table: defm "TAP" 
A034 C5 1330 defb "E"+#80 
A035 54415045 134 defm "TAPE.I" 
A03B CE 1350 defb "N"+#80 
A0O3C 54415045 1360 defm "TAPE.OU" 
A043 D4 1370 defb "T"+#80 
A044 555345 1380 defm "USE" 
A047 D2 1390 defb "R"+#80 
A048 44524956 1400 defm "DRIV" 
a0acC C5 1410 defb "E"+#80 
A0O4D 524541 1420 defm "REA" 
A050 c4 1430 defb "D"+#80 
A051 57524954 1440 defm "WRIT" 
A055 C5 1450 defb "E"+#80 
A056 ACAF4l 1460 defm "LOA" 
A059 ca 1470 defb "D"+#80 
AO5A 444F 1480 defm "DO" 
A0OSC D3 1490 defb "5"+#80 
A0O5SD 00 1500 defb 0 
AOSE DF 1510 tape: rst #18 
AOSF 75A0 1520 defw amsl 
A061 CI 1530 ret 
A062 DF 1540 tapein: rst #18 
A063 78A0 1550 defw ams?2 
A065 CI 1560 ret 
A066 DF 1570 tapout: rst #18 
A067 7BAO 1580 defw ams3 
A069 CI 1590 ret 
A0O6A DD7EOO 1600 user: 1d a, (ix) 
A0O6D DD2A75BE 1610 14 ix, (#be75 
A071 DD7705 1620 ld (ix+5),a 
A074 CI 1630 ret 
A075 FDCc 1640 amsl: defw #ccfd 
A077 07 1650 defb 7 
A078 OIlCD 1660 ams2: defw #cdül 
AO7A 07 1670 defb 7 
A0O7B 18CD 1680 ams3: defw #cd18 
A0O7D 07 1690 defb 7 
AO7TE EACD 1700 ams4: defw #cde4 
une snszugggpe) 
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07 1710 defb 7 
A08l FEOL 1720 drive: cp E 
A083 201B 1730 jr nz,err 
A085 DD6601 1740 ld hı (ix+1l) 
A088 DD6EEOO 1750 ld 1, (ix+0) 
A0O8B 23 1760 inc hl 
A0O8C 5E 1770 ld e, (hl) 
A0O8D 23 1780 ine hl 
A0OBE 56 1790 1d dı (hl) 
AOBF 1A 1800 1d a, (de) 
A090 FE4Ll 1810 cp "a" 
A092 2827 1820 Ir z,drivea 
A094 FES6L 1830 cp k:' 
A096 2823 1840 jr z.drivea 
A098 FE42 1850 cp bi 
A0O9A 2828 1860 jr z,driveb 
A0O9C FE62 1870 cp "HR 
A0OIE 2824 1880 jr z,driveb 
AOAO 21ADAO 1890 err: 1d hl,bad 
AOA3 7E 1900 print: Id a,chl 
A0OA4 FEOO 1910 cp 0 
AOA6 CE 1920 ret z 
AOA7 CDSABB 1930 call #bb5a 
A0OAA 23 1940 inc hl 
AOAB 18F6 1950 Ir print 
AOAD 426164 1960 bad: defm "Bad" 
AOBO 20 1970 defb 32 
AOBl 636F6D6D 1980 defm "command" 
AOB8B ODOAOO 1990 defb 13,10,0 
AOBB DD2A75BE 2000 drivea: ld ix, (#be75) 
AOBF DD360600 2010 ld (ix+6) ,0 
A0c3 CI 2020 ret 
A0OC4 DD2A75SBE 2030 driveb: 1d ix, (#be75 
A0OC8 DD360601 2040 ld (ix+6) ‚1 
A0OCC cC9 2050 ret 
AOCD FEO2 2060 write: cp 2 
AOCF 20CF 2070 Ir nz,err 
AODl DD7EO3 2080 1d a, (ix+3) 
A0OD4 67 2090 1d h,a 
A0OD5S DD7EO2 2100 ld a, (ix+2 
A0OD8 6F 2110 1a l,ıa 
A0OD9 DD7EOL 2120 1d a,(ix+l) 
A0ODC 57 2130 1d d.a 
AODD DD7EOO 2140 1d a, (ix) 
ADEO 5F 2150 ld e,a 
A0DEl ES 2160 push hl 
AOE2 DS 2170 push de 
AOE3 21F3AO 2180 ı1d hl,satext 
AOE6 CDA3AO 2190 call print 
AOE9 DI 2200 pop de 
AOEA El 2210 pop hl 
AOEB 3E00 2220 ld a,0 
ADED CDIEBC 2230 call #bc9e 
AOFO 305D 2240 jr nc,wrong 
ADF2 C9 2250 ret 
AOF3 53617669 2260 satext: defm "Saving Headerless File" 
A109 ODOAOO 2270 defb 13,10,0 
AlOC FEO2 2280 read: cp 2 
AlOE 2090 2290 3r nzıerr 
AllO DD7EO3 2300 1d a, (ix+3) 
All3 67 2310 1d a 
All4 DD7EO2 2320 ld a, (ix+2) 
All? 6F 2330 1d l,a 
All8B DD7EOL 2340 1d a, (ix+l) 
AllB 57 2350 1d d.a 
AllC DD7EOO 2360 1d a, (ix 
AllF 5F 2370 ld e,a 
Al20 ES 2380 push hl 
Al2l D5 2390 push de 
Al22 2135Al 2400 ld hl,lotext 
A125 CDA3AO 2410 call print 
A128 CDO6BB 2420 call #bb06 
Al2B DI 2430 pop de 
Al2C El 2440 pop hl 
Al2D 3E00 2450 1d a,0 
Al2F CDAIBC 2460 call #bcal 
Al32 301B 2470 Ir nc.wrong 
Al34 C9 2480 ret 
A135 AC6F6164 2490 lotext: defm "Loading Headerless File” 
Al4C OAODOO 2500 defb 10,13,0 
Al4F 2156Al 2510 wrong: Id hl,wrtext 
Al52 CDA3AO 2520 call print 
A155 cC9 2530 ret 
A156 48656164 2540 wrtext: defm "Headerless Error" 
Al66 OAODOO 2550 defb 10,13,0 
Al69 FEO2 2560 loadı cp 2 
Al6EB C2AOA0 2570 3p nz,err 
Al6GE DD6603 2580 ld h, (ix+3) 
Al7l DD6EO2 2590 1d 1, (ix+2) 
Al74 46 2600 ld bı (hl) 
A175 23 2610 inc hl 
Al76 5E 2620 1d e,. (hl) 
A177 23 2630 inc hl 
Al78 56 2640 ld d, (hl) 
Al79 EB 2650 ex de,hl 
Al7A DD5601 2660 1d d. (ix+l 
Al7D DD5EOO 2670 ld e, (ix) 
Al80 DS 2680 push de 
Al8l CD77BC 2690 call #bc77 
Al84 EI 2700 pop hl 
A185 CD83BC 2710 call #bc83 
Al88 CI 2720 ret 
A189 218FAl 2730 dos: ld hl,dostxt 
AlSC C3A3A0 2740 3p print 
AlSF 2750 dostxt: 
AlSF 0402018 2760 defb 4,2,10,24 
A193 20202020 2770 defm " Extended Fl-X Dos " 
AlB4 20202863 2780 defm (c) 1987 by Hans-Georg Esser" 
AlD2 20202020 2790 defm " ” 
AlE3 180D0OA0A 2800 defb 24,13,10,10 
AlE7T 20466F6C 2810 defm " Folgende AMSDOS-Befehle wurden in das" 
A20D 2056444F 2820 defm " VDOS eingebunden: " 
A21IF ODOAOA 2830 defb 13,10,10 


A222 20705441 2840 
A23E 20705553 2850 


defm " ITAPE, !TAPE.IN, ITAPE.OUT," 
defm " IUSER,x ; I!DRIVE," 


A250 2278220D 2860 defb 34,"x",34,13,10,10 

A256 2077573 2870 defm " zusaetzliche Befehle:" 

A26C ODOAOA 2880 defb 13,10,10 

A26F 20705245 2890 defm " !READ, start,laenge nt Zu 

A28C 20606573 2900 defm " lesen eines headerlosen Files von Cas 
A2B7 O0DOA 2910 defb 13,10 

A2BI9 20705752 2920 defm " IWRITE,start,laenge zn 


20736368 2930 " schreiben eines headerlosen Files auf Cas 


ODOAOA 2940 
A308 207CAC4F 2950 


13,10,10 
defm " !LOAD," 


A30F 22 2960 defb 34 

A310 46494C45 2970 defm "FILENAME.EXT" 

A3lc 22 2980 defb 34 

A31lD 2C616472 2990 defm ",adresse" 

A325 ODOAOA 3000 defb 13,10,10 

A328 207C444F 3010 defm " IDOS nr Zu 
A345 20496E66 3020 defm " Informationen abrufen" 

A35B ODOAOAOA 3030 defb 13,10,10,10,10 


00 3040 ende: 
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Drucken 
mit dem 8. Bit 


Dieser Beitrag wendet sich an die stolzen Besitzer des CPC 464 
und der RAM-Erweiterung der Firma Vortex, die nicht auf eine 
8-Bit Druckausgabe verzichten wollen, um z.B. Grafiken von 
Turbo-Pascal unter dem 62k-CP/M zu erstellen. Als Vorausset- 
zung hierfür ist der Eingriff in den Rechner laut Heft 5’86 CPC- 
International, der das 8. Bit unter Verwendung des Ports C Bit 
5 des 8255 (Datenausgabe an Rekorder) bereitstellt, zu sehen. 
Zur Ansteuerung dieser neu geschaffenen Schnittstelle sind 
schon viele Programme veröffentlicht worden, die sich aber alle 
an die »Nur-Basic-Programmierer« richten. Was macht aber der 
»62k-CP/M-ler“? Der muß, ob er will oder nicht, in die Tie- 
fen des BDOS und der Bankumschaltung hinabtauchen, um zu 
erforschen, wo er seine Routine zur erweiterten Druckerausgabe 
zu lassen hat. Dieser Beitrag soll Ihnen das Tieftauchen ersparen 
(vielleicht gibt es ja auch Nichtschwimmer unter den 62k- 
CP/M-lern), und einen Einblick in die Bankumschaltung geben. 


Alle Leser, zu denen sich noch nicht die RAM-Aufteilung un- 
ter dem 62k-CP/M herumgesprochen hat, sollten sich folgen- 
des Schema näher betrachten, (s. Skizze 1-3) welches den Spei- 
cher Ihres Rechners zeigt: 


Dem aufmerksamen Leser wird auffallen, daß sich der RAM, 
wie er sich den Programmen unter 62k-CP/M darstellt, in ver- 
schiedenen Speicherbänken befindet. BIOS 1, das ist die CP/M 
Zero-Page, liegt in der Grundbank, dem eingebauten Speicher, 
genauso wie der untere Teil des TPA. Der obere Teil des TPA 
und ein weiterer Teil des BIOS liegt in der RAM-Erweiterung 
auf Bank 1. Durch die Elektronik der Bankumschaltung ist ge- 
währleistet, daß ein CP/M-Programm diese beiden Speicher- 
bereiche als durchgängigen RAM sieht. Der obere Bereich der 
Grundbank, mit BIOS 2 gekennzeichnet, beinhaltet im wesent- 
lichen die allseits beliebten und nützlichen Sprungleisten und 
Routinen der Firmware, und ist ansonsten leer. Hier ist viel Platz 
für eigene Routinen, auch für die erweiterte Druckerausgabe 
(von 8600 bis A7FF) die den Firmware-Einsprung MC- 
PRINT-CHAR patched. Dieser Einsprung liegt bei BD2B der 
Grundbank. Wie bekommt man nun ein Programm in diesen 
Bereich? — Ganz einfach: man lädt es in den unteren TPA, 
schaltet den oberen Block des Speichers auf die Grundbank und 
verschiebt das Programm an die vorgesehene freie Stelle. Dann 
schaltet man den oberen Block zurück auf Bank 1 und springt 
WBOOT an. Fertig ist die auf 8 Bit erweiterte Druckerausga- 
be-Routine. Was man dazu kennen muß, sind freilich die Be- 
fehle zur Bankumschaltung. Derer gibt es jedoch zweierlei: 
Zum einen besitzt die Speichererweiterung ein Bank-Select-Re- 
gister, was wir hier nicht brauchen, da für das 62k-CP/M im- 
mer nur die Bank 1 der Erweiterung aktiv ist, zum anderen wer- 
den Bit 5 und Bit 6 des Ports 7Fxx, der auch das Gate-Array an- 
spricht, zum Blockselect und Mapping-Enable benutzt. Dabei 
bedeuten: 

BIT 5: 1 = Schalte Grundbank ab und blende Erweiterung ein 
0 = Schalte Erweiterung ab und blende Grundbank ein 

BIT 6: 1 = Wähle oberen Block der Erweiterung an 0 = Wähle 
unteren Block der Erweiterung an 

Was wir hier brauchen ist nur das 5. Bit des Ports 7Fxx, da der 
obere Block der Speichererweiterung immer angewählt bleiben 
kann, es sei denn, man möchte im Drucker-Spooler irgend et- 
was manipulieren (natürlich nur von einem Programm aus, was 
oberhalb 8000 im RAM liegt, da es sich sonst selbst den Tep- 
pich unter den Füßen wegzieht). 
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Da jetzt die grundlegenden Dinge bekannt sind, kann man sich 
getrost dem Listing zuwenden. Das Programm heißt CENTRO- 
NI.COM, wurde mit dem Wordstar geschrieben und danach 
durch den Makroassembler M80 und den Linker L80 genudelt. 
Sie können es auch einfach mit dem DDTZ eingeben, da es nicht 
so umfangreich ist. Wenn Sie das tun, brauchen Sie natürlich 
nicht auf die Label »Anfang« und »Done« bzw. »Ende« zu ach- 
ten. Sie tippen einfach die Mnemonics ein und überall, wo im 
Op-Code ein Label steht, schauen Sie in der Spalte links nach 
und geben die entsprechenden Hex-Werte ein. 

Wie Sie sicher schon erraten haben, sind eigentlich 2 Program- 
me nötig. Einmal die Drucker-Routine selber und als zweites 
ein Ladeprogramm, welches die Drucker-Routine in die Grund- 
bank schiebt und den Restart bei BD2B durch einen Sprung auf 
die Routine ersetzt. 

Das Ladeprogramm beginnt bei »Start«. Als erstes wird durch 
DI der Interrupt gesperrt, was man bei Bankumschaltungen tun- 
lichst immer machen sollte, da sich sonst der Rechner diskret 
verabschiedet. Danach wird die Bankumschaltung durch das 
Laden von BC mit 7FEE (7F = Portadresse, EE = »gängiger« 
Wert, der eigentlich alles so läßt wie es ist) vorbereitet und das 
Bit 5 in C zurückgesetzt (Sie erinnern sich: BIT 5 = 0 schaltet 
die Erweiterung ab und blendet die Grundbank ein). OUT (C),C 
vollbringt die Bankumschaltung. Die nächsten Befehle laden an 
die Stelle BD2B der Firmware-Sprungleiste den Sprung zur neu- 
en Drucker-Routine, hier nach A400. Sie können sich auch ei- 
nen anderen Speicherbereich aussuchen, der frei ist, müssen 
dann aber auch die Call-Adressen in der Drucker-Routine ent- 
sprechend ändern. Falls Sie mit dem Assembler arbeiten, än- 
dern Sie nur den Wert in der Konstanten »Ziel« und hinter der 
Assembler-Direktive .Phase. Im Anschluß daran werden in die 
Register HL die Quelle, in DE das Ziel und in BC die Anzahl 
der zu verschiebenden Bytes geladen und mit LDIR das Ver- 
schieben des Programms realisiert. Zum glücklichen Ende ge- 
hört noch die Einblendung der Bank 1 der Erweiterung, das Zu- 
lassen des Interrupts und ein Jump nach 0000. 

Die Drucker-Routine tippen Sie direkt im Anschluß an das La- 
deprogramm ein. Sie rettet zuerst BC und setzt das neue 7. Bit 
zu 0 (mit D7LOW). Dann wird untersucht, ob das auszugebende 
Zeichen das 7. Bit gesetzt hat (also > 127 ist). Wenn nein wird 
es einfach ausgegeben (MCPRCA), ansonsten wird in XPRII 
das 7. Bit gesetzt, das Zeichen ausgegeben und das 7. Bit wie- 
der rück- gesetzt. Zum Schluß wird BC restauriert und die Rou- 
tine mit RET verlassen. Die beiden Routinen D7LOW und 
D7HIGH laden erst die Portadresse F6 (Port C des 8255) nach 
B und lesen den Port aus. Dann wird das Bit 5 entweder rück- 
gesetzt (LOW) oder gesetzt (HIGH) und wieder ausgegeben. 
Für alle M80 Besitzer sei gesagt, daß der Befehl ». PHASE 
Adresse« den Assembler anweist, den Code für den Speicher 
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ab Adresse zu erzeugen (hier A400), aber direkt hinter das La- 
deprogramm abzulegen. Der Befehl ». DEPHASE« macht diese 
Direktive rückgängig. Außerdem braucht der M80 die Label 
» Anfang« und »Start« für die Berechnung der Anzahl Byte, die 
umgeladen werden sollen. Nach dem Linken steht Ihnen die Da- 
tei CENTRONI.COM zur Verfügung. 


Diejenigen unter Ihnen, die das Programm mit dem DDT oder 
DDTZ eingegeben haben, gehen mit CTRL C ins Betriebssy- 
stem und speichern mit »Save 1 Centroni.com« das Programm 
ab. 


Zu bemerken ist, daß das Programm nicht mit dem Drucker- 
spooler der RAM-Erweiterung zusammenarbeitet. Schalten Sie 
also den Spooler ab (mit der Datei »SPOOL.COM«). 


Da wir gerade dabei sind in den Speicherbänken rumzuwüh- 
len, können wir auch noch ein anderes Problem behandeln. Ha- 
ben Sie schon mal versucht von Turbo-Pascal unter 62k-CP/M 
einige Firmware-Routinen anzuspringen (mittels INLINE-Sta- 
tements)? -Ja werden Sie sagen, das geht doch tadellos. Tut es 
auch, solange Ihr Programm den freien Speicher nicht bis zum 
Anschlag (FBASE) ausnutzt. Falls doch (vielleicht mittels rie- 
siger Arrays) können Sie nach Aufruf von Firmware-Routinen 
den Rechner nur noch ausschalten oder wenigstens ein System- 
Reset durchführen, da der Prozessor ins Bodenlose abgetaucht 
ist. Der Grund dafür ist, daß Ihre Arrays eine Sprungleiste in 
der Bank 1, die parallel zur Firmware-Sprungleiste der Grund- 
bank liegt, also mitten im TPA, überschrieben und damit zer- 
stört haben. Sehen Sie sich die Sprungleiste im TPA in unzer- 
störtem Zustand an, sehen Sie nur lauter CALL F554. Alle 
Firmware-Calls gehen also auf eine Routine in BIOS. Wenn Sie 
also im Inline-Statement mit CALL BBF6 z.B. die Routine 
GRA-LINE-ABSOLUT aufrufen, so wird über BBF6: CALL 
F554 nach F554 gesprungen, wobei die nachfolgende Adres- 
se, hier also BBF9 auf dem Stack liegt. Innerhalb der Routine 
F554 wird der Wert aber vom Stack geholt und nach O04F in 
die Zero-Page geladen, außerdem wird das L-Register mit 57 
geladen. Danach folgt über die zentrale Bankumschalt-Routi- 
ne F4FD gekoppelt mit ihrem Teil in der Zero-Page bei 004A 
der Einsprung in die Grundbank bei 8000. In der dortigen Rou- 
tine wird das H-Register mit A8 geladen und der Interrupt-Vektor 
umgebogen, was hier aber nebensächlich ist. Mittels PUSH HL 
und RET erfolgt ein Sprung nach A857, was wiederum eine 
Sprungleiste ist. Von dort erfolgt der Einsprung in eine Routi- 
ne bei 8118 die den Wert aus 4F holt. Dieser Wert stellt das ur- 
sprüngliche Sprungziel plus 3 in die Firmware dar. Dieser wird 
jetzt nun 3 mal dekrementiert und als Adresse angesprungen. 
Damit ist der Firmware-Aufruf bewerkstelligt. Falls Sie mit Ih- 
ren Arrays aber die Sprungleiste mit den CALL’s F554 über- 
schrieben haben, funktioniert das ganze nicht. Die Lösung des 
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Problems liegt in dem direkten Ansprung von F554 und zwar 
nicht über ein CALL sondern ein JUMP, wobei vorher die zu 
CAlLLende Adresse+3 auf den Stack gePUSHd wird. Das sieht 
im Inline-Statement folgendermaßen aus: 


PROCEDURE Call; 

(*in BC steht die zu rufende *) 
BEGIN (* Adresse *) 
INLINE ($03/$03/$03/ 


(* INC BC/ANC BCINC BC/ *) 
$C5/ (* PUSH BC *) 
$C3/854/$F5); (* JPF554 *) 
END; (* Call *) 
Über die Procedure Call laufen alle Firmware-Aufrufe. Die auf- 
rufenden Proceduren übergeben im BC-Register das Sprung- 
ziel, also die Firmware-Adresse. Bei dem oben genannten Bei- 


spiel GRA-LINE-ABSOLUT = BBF6 sieht das so aus: 


PROCEDURE GraLineAbsolute 

(xy: Integer); 

BEGIN 

INLINE ($2AX/ (* LDHL,(x) *) 
$EB/ ("EX DEAL *) 
$2ANyl (* LDHL,(y) *) 
$01/$F6/$BB/ (* LD BC,BBF6 *) 
SCIHCOA)); (".JP Gall”) 

END; (* GraLineAbsolute *) 


Mit der Procedure Call sind sie jetzt in der Lage, alle Firmwa- 
re-Routinen zu nutzen. 

Wer auf den Geschmack gekommen ist, unter CP/M noch ei- 
nige trickreiche Routinen, die die Firmware stark beanspruchen, 
zu basteln, soll sich doch mal an einer Hardcopy-Routine ver- 
suchen, die aus einem CP/M-Programm ohne weiteres aufge- 
rufen werden kann (z.B. mit CTRL kleine ENTER-Taste). Man 
könnte diese Routine vielleicht in die Ticker-Chain (1/50 sec) 
einklinken .... usw. Viel Spaß beim Programmieren. 


Anleitung zum Test des Drucker-Programmes. 

* Voraussetzung ist ein CPC464 mit 8-Bit Centronics-Schnittstelle 

* 62k-CP/M laden 

* Druckerspooler abschalten, falls überhaupt initialisiert mittel 
SPOOL.COM 

* Drucker einschalten, am besten auf Engschrift 

* Datei TEST.COM aufrufen 

— Diese Datei gibt den Zeichensatz von 20hex bis 7Fhex und von 
AOhex bis FEhex aus. Dabei erscheinen bei AOhex bis FEhex 
die gleichen Zeichen wie von 20hex bis 7Fhex. 

* Jetzt CENTRONI.COM aufrufen 

* Datei TEST.COM erneut aufrufen 

— Diese Datei gibt den Zeichensatz von 20hex bis 7Fhex und von 
AOhex bis FEhex aus. Dabei erscheinen bei AOhex bis FEhex 
jetzt die Grafikzeichen. (L. Papenkort) 


Passiert 
‚garnichts 
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MACRO-80 3 44 Seite I 
0000 

87F2 

A400 

BOo2B 

0100 F3 

0101 01 7FEE 
0104 cB A939 
o106 ED 49 
0108 2! 802B 
0108 3E C3 
0100 77 

O10E 23 

o10f 3E 00 
oil 77 

o112 23 

0113 3E Aa 
0115 77 

o116 21 012A 
0119 11 A400 
oılc 01 002C 
olır ED BO 
0121 01 7FEE 
0124 ED 49 
0126 FB 

0127 c3 0000 
012A 

A400 cs 

Asoı CD AsıB 
AsO& cB 7F 
A406 20 085 
AAOB CD A418 
A4OB cı 

AsOC c9 

AAOD cD A423 
A41O CD A418 
A413 CD A4ıB 
AAlE cı 

A417 c9 

Aale cr 

A419 87r2 
AsıB 06 F6& 
A41D ED 48 
AsirF cB A9 
Aa2ı 18 06 
A423 06 F& 
A426 ED 48 
A427 cB EI 
A4A29 ED 49 
A42B c9 

0166 


1280-Code erzeugen 
absolute Lage 
tab 100 hex 


Adresse von MC PRINT CHAR 


idanın kommt die Drucker-Routine 
‚Firmware-Einsprung ın Sprungleiste 


sinterrupt sperren 


iGrundbank selektieren 
und ausfuehren 


iCode fuer JP 

tund rein ! 

ein Byte weiter 
iLow-Byte Adresse 
jund rein 

teın Byte weiter 
sHigh-Byte Adresse 
rein damit | 


erschiebeziel 
Anzahl der Bytes 


wieder 
jund zurusc 


auf Bank I 
jetzt koennen wieder Interrupts komen 
IWarmstart 


inur fuer Adressberechnung 
ıCode fuer A400 erzeugen 


ıBC retten 
»D7 LOW setzen 
sıst BIT 7 HIGH ? 


siund ausgeben 
BC zurueck 
sENDE 


setze BIT 7 HIGH 
susgeben 

setze BIT 7 LOW und ENDE 
BC restaurieren 

ENDE 


kAnsprung von MC PRINT CHAR 


;Port C 8255 
Ihole Port 
BRES BIT 5 
1Portausgabe 
ıPort C 8255 
ihole Port 
ISET BIT 5 
IPortausgabe 
tund fertig 


280 
ASEG 
OR6 1004 
; 
MCPRIN EQau OTF2H+8000H 
ZIEL Eau OA4OOH 
MCPRCH EQU OBD28H 
fi 
START DI 
LD BC, T7FEEH ;Portadresse laden 
RES 5,C 
our C,c 
LD HL,MCPRCH sMc PRINT CHAR 
LD A,OC3H 
LD CHLI,A 
INC HL 
LD A,00 
LD (HLI,A 
Inc HL 
LD A.OAAH 
LD HL). A 
Lo HL. ANFANG Anfang des Programms 
LD DE,ZIEL ’ 
LD BC , DONE-ANFANG 
LOIR 
LD BC, T7FEEH ‚Port-Adresse 
our c),c 
EI 
JP 0000 
; 
ANFANG: DS o 
; 
PHASE VOALOOH 
’ 
PUSH BC 
CALL D7LOW 
BıT 7, 
JR NZ, XPRII JA =--) setze HIGH 
CALL NCPRCA 
POP Bc 
RET 
3 
xPRII: CALL D7’HIGH 
cALL MCPRCA 
CALL D7LOW 
POP BC 
RET 
’ 
MCPRCA: RST 
DEFW MCPRIN 
’ 
D7LOW: LD B,OF6H 
IN c,(c) 
RES „c 
JR 070uT 
D7HIGH: LD B,OFEH 
In c,ic 
SET 5,C 
D7oUT: our e).,c 
RET 
’ 
DEPHASE Phase zuruscksetzen 
1 
DONE: Ds ° 
END START 


ILabel zur Adressberechnung 
IEnde des Progranns 


Weitere Sonderhefte im Verlag erhältlich 


Sonderheft 1/86 und 2/86: 

Software — Listings — Infos für alle Schneider CPC! 
Sonderheft 1 beinhaltet eine abwechslungsreiche Samm- 
lung beliebter und nützlicher Programme aus den Sparten 
‚Anwendung, Spiel und Tips & Tricks. 

Der große DFÜ-Sonderteil zeigt Ihnen alles Wissenswerte 
zur Datenfernübertragung auf und vermittelt Basiswissen. 
Insgesamt 28 aktuelle Listings — Software satt im-CPC 
Sonderheft 


Richten Sie Ihre Bestellungen an: 
DMV-Verlag, Fuldaer Str. 6, 3440 Eschwege 


Sonderheft 3/86: 

Reviews — Spiele — Anwendungen — ein wahres Hit- 
Sammelsorium birgt das CPC-Sonderheft 3/86. 

Die besten Spielprogramme im Überblick und viele Tips, 
Lösungen und Karten zu Computerspielen- und Abenteu- 
ern. Begeistern wird Sie auch der Flugsimulator — ein ech- 
ter Leckerbissen zum Eintippen! Fantasy- und Adventure- 
freunde werden sich über das erste Rollenspieladventure 
Monstergarten sicherlich genauso freuen, wie die 
Hardware-Freunde über die Echtzeituhr zum Selbstbau. 

Des weiteren gibt es viele tolle Programme aus den Berei- 
chen Spiel, Anwendung und Utilities sowie fundierte Berich- 
te über die effektive Interruptprogrammierung. Da ist für je- 
den etwas dabei. Und natürlich: Alle Programme sind auch 
auf Diskette oder Kassette erhältlich! 


(de Schneuser-Magazın 


nerder 


DPF NETION AL 


Sonderheft 4/87 

Programmiersprachen — Anwendungen in Turbo-Pascal 
und mannigfaltige Informationen stehen im Mittelpunkt des 
4. CPC Sonderheftes. Mit über 200 Seiten praller CPC- 
Informationen, Tips und wertvollen Programme das idea- 
le Sammelsurium für jeden CPC-Anwender. Interessiert? — 
dann sollten Sie sich schnell entscheiden, denn es sind nur 
noch wenige Restposten verfügbar. 
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EDIT-LIST 


Das vorliegende MC-Programm simuliert die drei BA- 
SIC-Befehle EDIT., LIST. und LIST, —, welche auf 
Rechnern, wie z. B. dem EGC Colour-Genie, vorhanden 
sind. 


Diese Befehle veranlassen den Rechner entweder, von ihm als 
fehlerhaft erkannte Programmzeilen im EDIT-Modus auf den 
Bildschirm zu bringen, oder die Fehlerzeile bzw. den Pro- 
srammbereich ab der Fehlerzeile zu listen,und das alles ohne 
Eingabe der Zeilennummer. Diese Befehle erhöhen den Kom- 
fort der Fehlerbehandlung doch beträchtlich, da das ausgespro- 
chen lästige Eintippen von Zeilennummern nahezu vollkommen 
entfällt. 


Bei der Konzeption des Programms habe ich folgende Anfor- 

derungen gestellt: 

I. Auf das doch etwas umständliche Einrichten von RSX-Be- 
fehlen soll verzichtet werden. 

2. Der Rechner soll die Befehle bei Auftreten eines Fehlers 
nicht automatisch ausführen, sondern sie sollten dem An- 
wender per Tastendruck zur Verfügung stehen; nicht jede als 
fehlerhaft erkannte Zeile enthält nämlich auch den Fehler, 
so daß in diesen Fällen ein automatisches Editieren nicht son- 
derlich sinnvoll ist. 

3. Nach Anderung einiger ROM-Adressen sollte das Programm 
auch auf dem CPC 664/6128 lauffähig sein. 


Um dem Rechnern, die den genannten Befehlen entsprechen- 

den Eigenschaften zu verleihen, müssen folgende Dinge bekannt 

sein (mit den in Klammern angegebenen Adressen für den 

6564/6128 dürfte das Programm auch für diese Computer zu ver- 

wenden sein): 

I. Die Adresse der Fehlerzeile. Sie liegt im Vektor &ADA6 
(&AD8C/&ADSC). 

2. Die ROM-Routine »Zeilennummer holen«. Sie befindet sich 
an der Adresse &DDD9 (&DEBD/&DEBBß) und lädt in 
Kenntnis der Zeilenadresse die Zeilennummer ins Register 
HL. 

3. Die ROM-Routine »Programmbereichlisten« beginnt bei 
&EIOD (&EIE8/&EIE3). Die Register BC und DE müssen 
die Start- bzw. Endzeilennummer enthalten. 

+. Die Eingabeschleife, in die der Rechner immer nach Durch- 
führung der ihm aufgetragenen Befehle springt (z.B., um sich 
mit READY zu melden), beginnt bei &C064 (&C058/ 
&C058). Auch bei Auftreten eines Fehlers läuft er nach vor- 
heriger Ausgabe der Fehlermeldung in die Eingabeschlei- 
fe. Erst dort wird entschieden, ob es sich bei dem aufgetre- 
tenen Fehler um einen SYNTAX-ERROR handelt, d.h., ob 
der Inhalt der Adresse &ADAA (&ADW/&ADIO), welche 
die Fehlernummer enthält, gleich &02 ist, also gleich der 
Nummer für den SYNTAX-ERROR. Trifft dies zu, so wird 
die Fehlerzeile im EDIT-Modus ausgegeben, sofern sich der 
Rechner im Programmodus befindet. Auch darüber wird in 
der Eingabeschleife entschieden, und zwar nur dann, wenn 
ein SYNTAX-ERROR vorliegt (aus diesem Grunde erschei- 
nen Programmzeilen mit anderen Fehlern normalerweise 
auch nicht im EDIT-Modus auf dem Bildschirm). Ob nun 
der Programmodus vorliegt, wird in diesem Falle anhand des 
Inhalts der Adresse K&ADAA (& AD90/&ADI90; Adresse der 
Fehlerzeile) geklärt. Ist der Wert größer Null, so ist aus der 
Sicht des Rechners der Programmodus eingeschaltet. 

Mit diesem Wissen ist es leicht, den Rechner davon zu überzeu- 

gen, daß jede Fehlerzeile auf dem Bildschirm zu erscheinen hat. 

Da bei Auftreten eines Fehlers während des Programmablaufs 
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der Inhalt von &ADAA immer von Null verschieden ist, muß 
von dem Maschinenprogramm aus die Speicherzelle &ADA6 
(&AD8C/&ADSC) immer nur mit dem Wert &02 des SYN- 
TAX-ERRORSs belegt werden. Auf diese Weise »sieht« der Rech- 
ner immer einen SYNTAX-ERROR und muß, da er sich immer 
im Programmodus glaubt, jede Fehlerzeile editieren. 

Nach diesen Ausführungen muß zum Assemblerlistung m.E. 
nur noch soviel gesagt werden, daß das Freischalten des obe- 
ren ROMs (für alle Rechner gleich: CALL &B900) eine abso- 
lute Notwendigkeit ist, da sich der Rechner ansonsten im RAM 
verfängt und abstürzt. Im übrigen kann das MC-Programm 
durch eine etwas effektivere Programmierung durchaus um ei- 
nige Bytes kürzer gehalten werden, aus Gründen der Übersicht- 
lichkeit habe ich aber darauf verzichtet. 

Wer den Basic-Lader benutzt, möge bitte die übliche Reihen- 
folge Abtippen — Abspeichern — Ausprobieren einhalten. Soll 
das Programm an einer anderen Stelle als & A000 installiert wer- 
den, sind die mit dem Label LISTI verbundenen Adressen ent- 
sprechend zu ändern, ebenso das Memory und die CALLs bei 
der Tastenbelegung. Die Bedienung des Programms ist sehr ein- 
fach, nach dem Laden mit RUN “stehen die Befehle auf den Zah- 
len 7, 8 und 9 des Tastenblocks zur Verfügung, und zwar in Form 
von z.B. KEY 135,°CALL & A000“ +CHR$(13) für “LIST.“. Ein 
Umdefinieren ist natürlich jedem freigestellt. 

Wichtiger Hinweis: Wird vor Benutzen der Befehle im Direkt- 
modus ein Fehler verursacht, werden die Adressen &ADAA und 
&ADA6 auf Null gesetzt. Die Befehle verlieren dann ihre Wir- 
kung solange, bis wieder ein Fehler im Programmodus auftritt. 


(Michael Heyl) 


10 MEMORY &9FFF [134] 
20 FOR adr=&A000 TO &AO2A:READ a$:POKE adr [3025] 
‚VAL("&"+a$) :NEXT 

30 DATA CD,OE,A0,EB,18,14,CD,OE 
40 DATA AO,11,FF,FF,18,0C,CD,00 
50 DATA B9,2A,A6,AD,CD,DC,DD,44 
60 DATA 4D,C9,CD,0OD,E1,CD,64,C0 
70 DATA CD,00,B9,3E,02,32,AA,AD 
80 DATA CD,64,C0 

90 KEY 135,"CALL &A000"+CHRS (13) 
100 KEY 136, "CALL &AO06"+CHRS (13 
110 KEY 137,"CALL &A020"+CHR$ (13) 


[1251] 
[1339] 
[792] 
[1751] 
[1457] 
[453] 
[2206] 
[2344] 
[945] 


EERRES EDIT-LIST-Routine (C) Michael Heyl 1987 anaann 

A000 1) ORG &A000 ;Start MC-Progrann 

A000 CDOEAO 20 LIST. CALL LISTI ‚StartZeilennr. £Ür LIST. holen 
A003 EB 30 EX DE,HL ;Startzeilennr.=Endzeilennr. 
A004 1814 40 IR LIST2 ‚nach LIST2:Listen 

A006 CDOEAO 50 LIST.- CALL LIST ;Startzeilennr. £fÜr LIST.- holen 
A009 A1FFFF 60 LD DE,&FFFF ;Default-Endzeilennr. 

A0O0OC 180C 70 JR LIST2 ;nach LIST2:Listen 

AO0OE CDOOBI 80 LISTI CALL &B900 ‚oberes ROM freischalten 

AOll 2AAGAD 90 LD HL, (&ADA6) ;Zeilenadr. nach HL 

A014 CDDIDD 100 CALL &DDD9 ;Zeilennr. holen (nach HL) 

AO1T 44 110 LD B,H sals Startzeilennr. ... 

R0i8 4D 120 1LD cC,L DERTeR nach BC 

A019 c9 130 RET ‚zurück zu LIST. oder LIST.- 


CALL &E10D 
CALL &C064 
CALL &B900 
LD A,&02 
A025 32ARAD 130 LD (&ADAA),A 
A028 CD64CO 190 CALL &C064 


‚Listen 

‚zur Eingabeschleife 

;oberes ROM freischalten 

‚Nr. für SYNTAX-ERROR nach A .... 
je... und nach &ADAA 

;zur Eingabeschleife 
Programr:EDIT-LIST Start:&A000 Ende:&A02A LäÄnge:&002B 
Labeltabelle: 
A000 = LIST. A006 = LIST.- 
AOOE = LISTI AO1lA = LIST2 
A020 = EDIT 
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Super 
Trace 


Programm-Beschreibung 


Das Programm »Super Trace« dient zum Verlangsamen 
des Programmablaufes (von BASIC- und MC-Pro- 
grammen). 


Diese hat den Vorteil, daß alle Abläufe zum Teil zeitlupen- 
artig dargestellt werden und somit der Programmfluß in 
Ruhe überprüft werden kann. Somit können Fehler eventuell 
schneller erkannt werden und außerdem werden Details 
sichtbar, die bei normaler Geschwindigkeit kaum auffallen 
würden. Das Programm selbst ist in Assembler geschrieben 
und nützt die Interrupt-Möglichkeiten des CPC dazu aus, 
diesen beliebig in seiner Geschwindigkeit zu beeinflussen. 
Die Geschwindigkeit läßt sich über den RSX-Befehl; SPEED 
einstellen. Zusätzlich gibt es je einen Befehl zum Ein- bzw. 
Ausschalten der Erweiterung (;TRACE. ON und ;TRACE. 
OFF). Damit auch bei extrem starker Verlangsamung ein 
Programm beendet werden kann, bevor dieses zu Ende ist, 
besteht die Möglichkeit, die Erweiterung durch Drücken der 
Taste TAB wieder auf normale Arbeitsgeschwindigkeit zu 
setzen. Dabei wird die Verzögerung auf 1 gesetzt, sie muß 
jedoch noch separat ausgeschaltet werden. 

Bei einer Verzögerung von z. B. 410 läßt sich auch der Auf- 
bau der Zeichen am Bildschirm in Zeitlupe erkennen. Wenn 
Sie diesen Wert setzen, ist beim Listen eines Programmes 
deutlich zu erkennen, wie jedes Zeichen Byte für Byte von 
oben nach unten erstellt wird. 

Das Programm ist mittels des BASIC-Ladeprogrammes im 
Speicher frei verschiebbar und läuft auf allen drei CPC. Al- 
lerdings darf es nur in die zentralen 32k geladen werden, da 
ansonsten die Interrupt-Steuerung sowie die RSX-Einbin- 
dung nicht korrekt arbeitet. 
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Befehlsliste zu Super Trace 


1. TRACE. ON (keine Parameter). Hiermit schalten Sie die 
Erweiterung ein. 


2. SPEED, Verzögerung. Mit diesem Befehl können Sie die 
Arbeitsgeschwindigkeit Ihres CPC bestimmen. Dabei er- 
reichen Sie die höchste Geschwindigkeit mit dem Wert 
1. Die sinnvoll anzuwendende kleinste Geschwindigkeit 
liegt bei Wert 410. 


ACHTUNG: 

Ein Wert von O bedeutet eine Verzögerung von 65535. Die- 
sen Wert sollten Sie nicht verwenden. 

WICHTIG: 


Sie können die Geschwindigkeit jederzeit durch Drücken der 
TAB-Taste auf 1 setzen. 


3. TRACE. OFF (keine Parameter). Der Befehl dient zum 
Ausschalten der Erweiterung. 


(Klaus Kremer) 
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#8000 
290 : 
310 :RSX-Befehle in das System einbinden 
330 i 
350 RELOC: 
370 


44 [2143] 


BC.RSX iAdresse der RSX-Befehlstabelle 
HL. KERNAL iAdresse des 4-Byte-Speichers 
LOGEXT 


20 ' ‚SUPER TRACE// 1356] nu i mochnalinen Aufruf 
30 '------- 12143) ' ı Befehlen unterbinden 
40 6147] NANETABELLE VRlkaemU der mufakinseite 


TON 
SPEED 
T OFF 


50 '%%* fuer Schneider/Anstrad CPC 464/664/ [3073] 
6128 xx 


60 ' [117] DEFM "TRACE.O* 
70’ Copyright (c) 1987 by K.Kremer L[1029] DEFB "N"+#80 
80 ' [117] Apesaas 
90 ' Programm-Stand: 17.06.1987 [2395] "TRACE. OF" 
100 ' [117] ee 
110 '------------------------- [2143] 
EEE TEEN 790 IKK EEK HERE KI KK K 

818 
120 ' [117] 830 LOGEXT: EQU #BCDI {RSX-Erueiterung einbinden 
130 INPUT" Ab welcher Speicherstelle soll S [5531] nes m IKL DEL FAST TICKER 
uper race geladen werden" ‚a 898 BENzEL® EOU #BCD7 N NEW FRAME FLY 
140 dif=a-32768 1389) 930 TESTKE: EOU MBBıE IKM TEST KEY 
150 ' [117] 950 WAITCH: EQU #BBO6 ’ WAIT CHAR 


97® CHARRE: EQOU #BBoCc b CHAR RETURN 
990 ; 
1010 iKKKcKcEKEE EEK RER EEK EEK EEK ER EKEEEKE ER 
1030 ; 
1050 :Routine zum Einhaeneen der Erweiterung 
7 


160 MEMORY a-1: FOR i=a TO a+171:READ x%: PO [2760] 
KE 1,x%: NEXT 

170 614173 
180 DATA &00,&01,&14,&80,&21,&10,&80,&CD,& [1695] 
D1, &BC, &3E 

190 DATA &C9, &32,&00,&80,&C9,&00,&00,&00,& [2921] 
00,&1F,&80 

200 DATA &C3, &92,&80, &C3, &9E, &80,&C3,&69,& [1338] 
80, 854, &52 

210 DATA &41,&43, &45, &2E, &4F, &CE, 853, 850,& [2200] 
45,845, &C4 

220 DATA &54,&52,&41,&43,&45, &2E, &4F,&46,& [1714] 
C6,&00,&AF 

230 DATA &32,&5B,&80, &32,&64,&80,&21,457,& [2418] 
80,806, &81 

240 DATA &0E,&FC, &11,&75,&80,&CD, &E0,&BC,& [2651] 
06, &81,&0E 

250 DATA &FC, &11,&81,&80,&21,&60,&80,&C3,& [1907] 
D7 , &BC, &00 

260 DATA &00,&00,&00,&00,&81,&75,&80,&00,& [1814] 
00,&00, &59 

270 DATA &80,&00,&81,&81,&80,&00,&21,857,& [2018] 
80, &CD, &E6 

280 DATA &BC, &21,&60,&80,&C3,&DD, &BC, 42A,& [2210] 
90,&80, &AF 

290 DATA &2B, &BD, &20, &FC, &BC,&20,&F9,&C9,& [2139] 
SE, &44, &CD 

300 DATA &1E, &BB, &28, &ED, &21,&01,&00,&22,& [1664] 
90,&80,&C9 

310 DATA &00,&01,&00, &3A, &8F, &80, &FE,&01,& [1819] 
C8, &3C, &32 

320 DATA &8F,&80,&18,&98,&FE,&01,&C0,&DD,& [2190] 
6E, &00, &DD 

330 DATA &66,&01,&22,&90,&80,&C9,&00,&00,& [1873] 
00,&00,&00 

340 ' [117] 
350 DATA 32770, 32773,32781, 32788, 32791,327 [2516] 
94, 32797, 32824 

360 DATA 32827, 32830, 32837,32847,32850,328 [2033] 
61,32870,32874 

370 DATA 32880, 32886, 32908, 32915, 32922,329 [1945] 
36 

380 ' [117] 
390 RESTORE 350 (741) 
400 FOR 1%=1 TO 22:READ a2:a2=a2+tdif:wert= [9019] 
(PEEK (a2) +PEEK(a2+1)%*256) : wert=wert+dif: PO 

KE a2, wert-FIX(wert/256)x256: POKE a2+1, FIX 
(wert/256): NEXT 

410 ' [117] 
420 SAVE"trace"”,b,a%, 172 [1071] 
430 PRINT" Initalisierung durch 'CALL";a;"' [2901] 


xOR A ; Zaehler der beiden Bloecke loeschen 
LD (BZAEHLER),A ; indem sie auf ® gesetzt 
LD (B2ZAEHLER).A ;ı werden 
iAdresse des ersten Blockes 
;Prioritaet der Interrupt-Routine 
. :RAN/RON-Status 
‚INT ROUTINE iAdresse der ersten Routine 
CALL NENFTICKER sierste Routine einreihen 
LD B,x10000001 ıPrioritaet der Interrupt-Routine 
LD cC,252 ıRAM/ROM-Status 
LD DE, INT 2ROUTINE ‘ di 
LD HL,BLOCK2 4 
JP _NEWFFLY ;2. Routine einreihen 


1350 : 

137® BLOCKi: DEFB ®,® sInzerrupt-Block 1 
1390 DEFB 0,0 

1410 BZAEHL: DEFB ® 

1430 DEFB x10000001 

1450 BL_AD: DEFW INT_ROUTINE 
1470 DEFB ® 


1490 ; 
1510 BLOCK2: DEFB ®,© iInterrupt-Block 2 
1530 DEFB ®,® 
155® B2ZAEH: DEFB ® 
1578 DEFB x10000001 
DEFW INT 2ROUTINE 
DEFB ® 


1690 :Befehl >TTRACE. OF F< 
1710 : 
1738 T OFF: LD HL,BLOCKI i beide Bloecke aus den 
1750 CALL DELFTICKER ;  Interrupt-Ketten 
LD HL, BLOCK2 ; ausblenden 
JP _DELFFLY 


LEE 22 2 22 2 22 EEE a2 2 a aa ss = ss ss ss sa ss se m 2 m m = 0 ss = << 2 2 2 2 2 2 © 2 


iINTERRUPT STEUERUNG *#xSYSTEM-SCHLEIFExz* 


1918 : 

1938 INT RO: LD HL. (VERZOEGERUNG iVerzoegerung holen 

1950 A iA:=® 

1970 i 

199® LOOP1: HL * Hl bis auf ® herabzaehlen 
201® cp L 


NZ,LOOPI 
H 
NZ,LOOPI 
;iFertie 


2150 :Tastatur-Abfrage 
2170 : 
219® INT 2R: LD A.68 i  TAB-Taste gedrueckt? 
CALL TESTKEY 
JR Z. INT ROUTINE :NEIN?>weiter mit der Verzoegerungsr. 
LD HL.1 i  JA?>Verzoegerung auf | 
LD (VERZOEGERUNG), HL ;i setzen 
RET ; und fertig 


2330 TONOFF: DEFS 1 ;Speicher fuer EIN/AUS-Flag 
2350 VERZOE: DEFB 1,® ;Speicher fuer die Verzoegerung, 
2370 :Standard-Inhalt:1 

2390 : 

2410 :ktstEEEKtecEKicEEEEEE EEK REEREERRERERERKERKK ERIK KK EEK 

2430 ; 


2450 :Befehl >TRACE. ON< 
2470 : 


2490 T ON: LD A, (TONOFF) ; Flag fuer EIN/AUS holen 
2510 cp ı sEIN? 

2530 RET Z JA?>Fertig 

2550 INC A ’ ansonsten Flag 

2578 LD (TONOFF),A ; auf "EIN" setzen und 
2590 JR INT System einschalten 
2610 : 

2630 ikkKKkacKKEcKKEcKEcK EEE EHEERKEKEEKEKEKEL HERREN KEN 
2650 : 

2678 :Befehl >S P E E D< 


440 ' [117] 
(110) 


cp 1 ;1 Parameter? 
RET NZ »NEIN?> Routine beenden 
LD L,(10 i Vergroesserung holen 
LD H,(1X+1) 
LD (VERZOEGERUNG), HL ; und merken 

idas war schon alles 
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nn | ———— 


80 INPUT"Name des ASCII-Programms ";1$ [1964] 
90 PRINT"Listing auf <B>ildschirm oder <D> [4698] 
rucker ? "; 
100 a$=UPPER$ (INKEY$) [789] | 
110 IF a$="B"THEN an$=CHR$ (24) :aus$=CHR$ (2 [2370] 
4) :win=0:G0TO 140 
120 IF a$="D"THEN an$=CHR$ (27)+"E":aus$=CH [3288] 
RE RS (27)+"F":win=8:G0TO 140 
130 GOTO 100 [417] 
20 ( I“ - 
30 Om ERROR coTo 30 140 PRINT a$ [399] 
40 WBILE a$ (1) O"8" 145 OPENIN 1$ [733] 
RER 150 WHILE NOT EOF [1840] 
anz=i-1 160 LINE INPUT#9,a$ [1529] 
80 INPUT"Name des ASCII-Programms ";1$ 170 FOR j=1 TO anz [1290] 
90 PRINT"Listing auf <Brildschirm oder <D’rucker ? "; 180 k=1 [192] 
100 a$=UPPER$ (INKEYS$) r 
110 IF a$="B"THEN an$=CHR$ (24) :aus$=CHR$ (24) :win=0:60T0 140 190  wo=INSTR(k,a$,a$(j)) [1038] 
= Fi an$=CHR$ (27)+"E":aus$=CHR$ (27)+"F":win=8:G0TO 200 IF wo=0 THEN 290 [675] 
140 PRINT a$ 210 IF MID$(a$,wo-1,1)>"=" THEN 290 [2494] 
145 OPENIn 15 En 220  x$=MID$(a$,wo+LEN(a$(j)),1) [1722] 
230 IF x$)"=" THEN 290 [1982] 
160 L 9, 
170. FOR ja Toaız- 240 IF x$="1" THEN 290 [1486] 
= niet: , 250 IF x$="$" THEN 290 [973] 
ee 260 a$=LEPT$ (a$,wo-1)+an$+a$(j)+aus$+RIG [3063] 
210 IF MID$(a$,wo-1,1)>"=" THEN 290 HT$(a$,LEN(a$)-wo+1-LEN(a$(j))) 
220 xS=NID$ (a$,wo+LEN(a$(5j)) ‚1) 270 k=wo+LEN(a$(j)) [354] 
Eee 280 IF k<LEN(a$) THEN 190 [836] 
250 7 er TEEN 290 eu 290 NEXT [350] 
a$=LEFT a$,wo-1)+an$+a$(j)+aus$+RIGHT$ (a$,LEN(a$) -wo+l-LEN 300 PRINT#win,a$ [697] 
270 k=wo+LEN(a$(j)) 310 WEND [390] 
320 CLOSEIN [752] 
330 END [110] 
a ä ; 340 IF ERR=15 THEN j=anz:RESUME 290 [979] 
Ein besonderer Vorteil der CPC BASIC-Interpreter ist der, daß 350 ee ERR:STOP [2486] 
sämtliche Befehle beim Auflisten von Programmen in Groß- 360 DATA OUT,ABS,AFTER,AND,ASC,ATN, AUTO [2460] 
buchstaben ausgegeben werden. Trotzdem wäre es nützlich, sie 370 DATA BIN$,BORDER,BREAK [1124] 
noch deutlicher hervorzuheben. 380 DATA CALL,CAT,CHAIN,CHR$,CINT,CLEAR,CL [3146] 
P E ; G,CLOSEIN, CLOSEOUT,CLS,CONT,COS,CREAL 
Diesem Zweck dient das vorliegende Programm. 390 DATA DATA,DEC$,DEF,DEFINT,DEFREAL,DEFS [4917] 
Es sucht aus einem als ASCII-Datei abgespeicherten BASIC- | TR,DES DELPTE,DT a a Haze 
Programm (SAVE »name«,a) sämtliche Befehle heraus und gibt Fig EN SUNE ERROR 
5 R ” H E,ERL,ERR,ERROR, EVERY, EXP 
die daraufhin geänderten Zeilen aus. Da das Programm recht 
A : re “= R : 410 DATA FIX,FN,FOR,FRE [630] 
langsam arbeitet, ist es hauptsächlich für Druckerbesitzer in- 420 DATA GOSUB,GOTO [691] 
teressant, doch es ist auch eine Bildschirmausgabe möglich. Auf 430 DATA HEX$,HIMEM [1089] 
dem Bildschirm erscheinen die Befehle invertiert, auf dem 440 DATA IF,INK,INKEY,INKEY$,INP,INPUT,INS [2097] 
Drucker werden sie durch Fettdruck hervorgehoben. TR,INT a 
a r e 450 DATA JOY 115 
Die Druckercodes in Zeile 120 bedeuten: 460 DATA KEY [91] 
ESC »E« = Fettdruck ein EEE EL BSOREERIEE RER [4125] 
BROS ESROERR 480 DATA MAX, MEMORY, MERGE,MIDS,MIN,MOD,MOD [2070] 
und können bei Bedarf z.B. in Unterstreichen oder Doppeldruck E,MOVE ,MOVER 
geändert werden. 490 DATA NEXT,NEW,NOT [820] 
500 DATA ON,OPENIN,OPENOUT,OR,ORIGIN [1483] 
(Ralf Wegener/SH) 510 DATA PAPER,PEEK,PEN,PI,PLOT,PLOTR,POKE, [3941] 
‚POS,PRINT 


520 DATA RAD,RANDOMIZE,READ,RELEASE,REM,RE [5478] 
MAIN, RENUM,RESTORE, RESUME, RETURN, RIGHT$,RN 

.. h; ’ D,ROUND, RUN 
fur 464-664-6128 530 DATA SAVE,SGN,SIN,SOUND,SPACES,SPC,SPE [4771] 
ED,SQ,SOR,STEP,STOP,STR$,STRING$, SWAP, SYMB 


OL 

540 DATA TAB,TAG,TAGOFF, TAN, TEST, TESTR, THE [4978] 

N, TIME,TO,TROFF,TRON 

550 DATA UNT,UPPER$, USING [1027] 
10 MODE 2 [513] 560 DATA VAL,VPOS [402] 
20 DIM a$(158) :DEFINT a-z [997] 570 DATA WAIT,WEND,WHILE,WIDTH,WINDOW,WRIT [3311] 
30 ON ERROR GOTO 340 [1537] E 
40 WHILE a$(i)o"@" [936] 580 DATA XOR,XPOS [614] 
50 i=i+1:READ a$(i) [1250] 590 DATA YPOS [481] 
60 WEND [390] 600 DATA ZONE [337] 
70 anz=i-l [577] 610 DATA @ [215] 
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Tonkopfjustage 


Dieses Programm dient dazu, den Tonkopf des CPC optimal 
auf den Stand des Tonkopfes einzustellen, mit dem das zu la- 
dende Programm abgesaved wurde. (Im Klartext: Read error’s 
zu vermeiden oder auszuschalten) 


Das Programm funktioniert wie folgt: Das Programm »Tonjust. 
dat« abtippen und starten. Es wird, nachdem das Programm über- 
prüft hat ob alles in Ordnung ist, ein Binärfile (TONJUST. BIN) 
auf Diskette erzeugt. Das Programm wird folgendermaßen ge- 
startet: 

l. Memory setzen: Memory &6400-1 

2. Load »Tonjust. Bin« 

3. Call &6400 

Die Kassette mit dem zu ladenden Programm einlegen. Mit Tasten- 
druck >2< in das Hauptprogramm umschalten. Jetzt müssen Sie 
mit einem kleinen Schraubendreher die Stellschraube des Tonkop- 
fes durch Drehen derselben auf Rechtsanschlag bringen; dann 
PLAY und irgendeine Taste drücken. 


für 464-664-6128 u: 


10 VAR a a a a a a a a a a a a a a a a a k a ı a a a 
20 '* TONJUST.DAT - DATA-Lader von 'CPC' * 
30 VER a a a a a a a a a a a a a a a a ı a a a 
40 ' 

50 DATA 6400,3E,01,01,1A,1AıaCD,32,BC,1DFC 
60 DATA 6407,3E,02,01,03,03,CD,32,BC,1C64 
70 DATA 640F,3E,03,01,09,09,CD,32,BC,1CD4 
80 DATA 6417,01,00,F6,ED,49,3E,01,CD,12EF 
90 DATA 641F,0E,BC,21,21,65,CD,14,65,2E61 
100 DATA 6427,CD,06,BB,FE,32,28,15,FE, 7E64 
110 DATA 642F,33,C8,FE,31,20,F2,CD,14,3416 
120 DATA 6437,BC,21,BF,65,CD,14,65,CD,41CF 
130 DATA 643F,18,BB,18,D4,CD,14,BC,21,2BEl 
140 DATA 6447,04,66,CD,14,65,CD,18,BB,03F7 
150 DATA 644F,CD,14,BC,DD,21,75,64,DD,7919 
160 DATA 6457,7E,00,FE,00,28,24,DD,23,2089 
170 DATA 645F,DD,66,00,DD,23,DD,6E,00,7860 
180 DATA 6467,DD,23,54,5D,1C,01,4F,00,696A 
190 DATA 646F,77,ED,BO,18,E2,0F,C9,EO,111E 
200 DATA 6477,0F,ED,AO,FF,FC,10,FF,FB,2195 
210 DATA 647F,20,00,01,10,F6,ED,49,3E,1588 
220 DATA 6487,01,CD,DE,BB,2A,1F,65,11,2247 
230 DATA 648F,00,00,CD,C0,BB,11,00,00,103C 
240 DATA 6497,D5,CD,DA,64,CD,F5,64,FE,414A 
649F,00,20,05,21,00,00,18,0E,OA8E 
260 DATA 64A7,6F,26,00,11,02,00,CD,BE,3E24 
64AF,BD,06,35,2B,10,FD,22,1F,583F 
280 DATA 64B7,65,D1,25,CD,F6,BB,D1,CD,1483 
290 DATA 64BF,09,BB,FE,OD,CA,18,64,FE,3356 
300 DATA 64C7,62,CC,03,65,13,7A,FE,02,04BE 
310 DATA 64CF,20,C6,7B,FE,80,20,C1,C3,24C1 
320 DATA 64D7,50,64,06,F5,0E,00,16,FF,3E33 
330 DATA 64DF,AF,ED,60,CB,14,30,01,3C,6C2E 
340 DATA 64E7,15,20,F6,FE,FF,20,02,3E,14E2 
350 DATA 64EF,00,32,1E,65,C9,F5,01,10,0C9E 
360 DATA 64F7,7F,ED,49,E6,1F,F6,40,ED,O00CD 
370 DATA 64FF,79,F1,C9,3A,F5,64,FE,F5,1D71 
380 DATA 6507,28,04,3E,F5,18,02,3E,C9,1DED 
390 DATA 650F,32,F5,64,C9,7E,FE,00,C8, 2490 
400 DATA 6517,CD,5A,BB,23,18,F6,00,00,6648 
651F,00,0F,01,1F,06,02,18,54,024C 
420 DATA 6527,20,4F,20,4E,20,4B,20,4F,0303 
430 DATA 652F,20,50,20,46,20,4A,20,55,045D 
440 DATA 6537,20,53,20,54,20,41,20,47,0583 
653F,20,45,18,0F,03,1F,08,04,02C0 
460 DATA 6547,57,72,69,74,74,65,6E,20,3FA8 
654F,62,79,20,4F,6C,69,76,65,2DFD 


[1543] 
[2030] 
[1543] 
[117] 

[2004] 
[1965] 
[1212] 
[2409] 
[1610] 
[2520] 
[1786] 
[2613] 
[2159] 
[1676] 
[1669] 
[1662] 
[2137] 
[2116] 
[1361] 
[2140] 
[1293] 
[1149] 
[1505] 
[1204] 
[1956] 
[1804] 
[1439] 
[2435] 
[3048] 
[1647] 
[1953] 
[2665] 
[2159] 
[2378] 
[2271] 
[2114] 
[2957] 
[1087] 
[1211] 
[1567] 
[1729] 
[2209] 
[1915] 
[1359] 
[1214] 
[2462] 
[2176] 
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Nun baut sich der Bildschirm auf. Die grünen (mittleren) Linien 
kennzeichnen den bestmöglichen Einstellbereich für HEADER- 
LOSE Programme (z.B. Spiele). Die roten Linien kennzeichnen 
den Einstellbereich für HEADER Programme. Der Kassettenmo- 
tor ist bereits eingeschaltet. Wenn Signale von der Kassette gele- 
sen werden, dann werden diese auf dem Bildschirm in Form von 
weißen Linien dargestellt. Der Hintergrund verändert sich bei je- 
dem neuen gelesenen Byte in die jeweilige Farbe. Wenn das zu sehr 
ablenkt, kann dies beliebig mit einem Druck auf die Taste »b« ein- 
oder ausschalten. Nun liegt es an Ihnen und Ihren Augen. Durch 
Drehen nach links oder rechts versucht man den bestmöglichen 
»Linienstand« (Tonkopfstand) zu finden. 
Am besten ist die Aufnahmequalität, wenn die weißen Linien nicht 
mehr über die angegebenen Markierungen der jenachdem roten 
oder grünen Linien treten. Durch Druck auf ENTER gelangen Sie 
wieder in das Hauptmenü zurück. Jetzt haben Sie keine Probleme 
mehr mit dem Einladen fremder oder mit hoher Baudrate abgesav- 
ter Software. Wenn Sie Ihren Tonkopf eichen wollen, empfiehlt es 
sich die mitgelieferte Demokassette von Schneider (464) oder ge- 
kaufte Software (464, 664, 6128) zu benutzen. 

(O. Geisen/CD) 


480 DATA 6557,72,20,47,65,69,73,65,6E,3D90 
490 DATA 655F,0F,02,1F,0A,0A,28,31,29,04FB 
500 DATA 6567,20,20,20,20,49,6E,73,74,1D62 


[1825] 
[2395] 
[1337] 
[1591] 
[1474] 
[1527] 
[2489] 
[1121] 
[2329] 
[1233] 
[2127] 
[2572] 
[2089] 
[921] 

[1698] 
[1944] 
[2002] 
[2861] 
[1915] 
[2161] 
[1766] 
[2456] 
[1685] 
[1724] 
[1917] 
[1558] 
[2461] 
[2270] 
[2166] 
[1549] 
[2496] 
[2221] 
[2151] 
[1853] 
[1295] 
[502] 

[1870] 
[1112] 
[117] 

[462] 

[883] 

[717] 

[2485] 
[1890] 


510 DATA 656F,72,75,6B,74,69,6F,6E,65,2C2D 
520 DATA 6577,6E,1F,0A,0E,28,32,29,20,309A 
530 DATA 657F,20,20,20,50,72,6F,67,72,1B90 
540 DATA 6587,61,6D,6D,1F,0A,12,28,33,27EB 
550 DATA 658F,29,20,20,20,20,0F,01,18,1BA6 
560 DATA 6597,45,4E,44,45,18,0F,01,1F,3D31 
570 DATA 659F,06,19,28,43,29,20,31,39,05E3 
580 DATA 65A7,38,37,20,20,20,62,79,20,179A 
590 DATA 65AF,20,20,2D,47,2D,2D,53,2D,1887 
600 DATA 65B7,6F,2D,66,2D,74,2D,00,0F,31CB 
610 DATA 65BF,02,1F,01,01,42,69,74,74,05D8 
620 DATA 65C7,65,20,62,65,66,6F,6C,67,32A3 
630 DATA 65CF,65,6E,20,53,69,65,20,64,2AC8 
640 DATA 65D7,69,65,20,41,6E,77,65,69,2FDF 
650 DATA 65DF,73,75,6E,67,65,6E,0D,0A,2DFO 
660 DATA 65E7,64,65,72,20,62,55,69,6C,253A 
670 DATA 65EF,69,65,67,65,6E,64,65,6E, 2534 
680 DATA 65F7,20,41,6E,6C,65,69,74,75,0951 
690 DATA 65FF,6E,67,2E,00,0F,01,1F,01,2B43 
700 DATA 6607,01,4B,61,73,73,65,74,74,1BCO 
710 DATA 660F,65,20,65,69,6E,6C,65,67,32DD 
720 DATA 6617,65,6E,20,75,6E,64,20,20,28D0 
730 DATA 661F,50,4C,41,59,20,64,72,75,36B1 
740 DATA 6627,565,63,6B,65,6E,2E,1F,01,2297 
750 DATA 662F,03,44,61,6E,6E,20,54,6F,1977 
760 DATA 6637,6E,6B,6F,70,66,20,61,75,2427 
770 DATA 663F,66,20,47,72,75,6E,64,73,366B 
780 DATA 6647,74,65,6C,6C,75,6E,67,20,2AFE 
790 DATA 664F,62,72,69,6E,67,65,6E,2E,241E 
800 DATA 6657,1F,0D,19,18,50,72,65,73,0D91 
810 DATA 665F,73,20,61,6E,79,20,6B,65,38BB 
820 DATA 6667,79,18,00,00,00,00,00,00,3A80 
830 DATA *ENDE* 

840 adr=&6400:zeile=50:MEMORY adr-1 

850 READ d$:IF d$="*ENDE*"THEN 960 

860 pr=0 

870 FOR i=1 TO 8 

8830 READ a$:a=VAL("&"+a$) 

890 POKE adr,a:adr=adr+i1 

900 pr=pr*2:IF pr)65535 THEN pr=pr-65535 
910 pr=UNT(pr)XOR a:IF pr<O THEN pr=pr+655 


920 NEXT i 

930 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 THE 
N pr2=pr2+65536 

940 IF pr<>pr2 THEN PRINT"Pruefsummenfehle 
r in Zeile";zeile:STOP 

950 zeile=zeile+10:G0TO 850 

960 SAVE"TONJUST.BIN",B,&6400,&270 

970 PRINT d$:END 

Di 


[375] 
[2610] 


[3615] 
[1911] 


[2014] 
[346] 
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Anwendungen 


Abhilfe schafft hier eine relative Dateiverwaltung, bei der die 
Datensätze sofort auf Disc geschrieben werden und bei der Aus- 
gabe von der Diskette gelesen werden. Leider unterstützt das 
sonst sehr gute Schneider Locomotive Basic keine relativen Da- 
teien, so daß ich mein Programm in Turbo Pascal 3.0 geschrie- 
ben habe. 


Der Aufbau des Programmes 


Das Programm DELUXE DATA SYSTEM ist eine universel- 
le Dateiverwaltung, die mit relativen Dateien arbeitet. Das Pro- 
gramm läuft unter Turbo Pascal und ist als Programmbiblio- 
thek aufgebaut. Dies hat den Vorteil, daß man das Programm 
sehr leicht verbessern kann. DATA DELUXE SYSTEM besteht 
aus 10 einzelnen Modulen: 


1. DDS .PAS Hauptprogramm 

2. SCR-INIT.INC Initialisierung des Bildschirms 

3. NEW-COM .INC Prozeduren zum Abspeichern, Laden, 
Ausgabe eines Datensatzes etc. 

4. INIT .INC INITMENU.INC Menuepunkt Initialisierung 

5. EINGABE .INC Menuepunkt Eingabe 

6. AUSGABE .INC Menuepunkt Ausgabe 

7. SUCHEN .INC Menuepunkt Suchen 

8. AENDERN .INC Menuepunkt Andern 

9. LOESCHEN.INC Menuepunkt Löschen 

0. MENU .INC Hauptmenue 


Das 4. Modul paßt nicht als ganze Textfile in den Turbo-Edi- 
tor des Schneider CPC 464/664, so daß dieses Modul in die Da- 
teien INIT.INC und INITMENU.INC aufgeteilt werden muß. 
Das Programm wird wie folgt compiliert: 


Turbo starten 

. Frage »Include error message (Y/N) ?« mit N beantworten 
Mit M DDS.PAS als Mainfile angeben 

Mit O das Compiler-Options-Menue anwählen 

Mit C Compiler-Option auf COM-HFile einstellen 

Mit Q das Compiler-Options-Menue verlassen 

Mit C compilieren 

Mit Q Turbo verlassen 


enaupunn 


Nun kann man mit DDS das Programm DELUXE DATA SY- 
STEM aufrufen. 
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Deluxe Data Sysiem 


Dateiverwaltungen gibt es zur Zeit wie Sand am Meer. Ne- 
ben speziellen Dateiverwaltungen für Adressen, Vokabeln 
etc. gibt es auch solche, die universell einsetzbar sind. Doch 
leider arbeiten die meisten dieser Programme mit sequen- 
tiellen Dateien, das heißt, man kann eine bestimmte Anzahl 
von Datensätzen eingeben, diese stehen dann im RAM Spei- 
cher und können editiert und auf Diskette abgespeichert 
werden. Jedoch ist der Speicher des Schneider CPC, speziell 
bei den Modellen 464/664, nicht besonders groß, so daß 
man, wenn man größere Datenbestände zu verwalten hat, 
seine Daten auf mehrere Dateien aufteilen muß. 


DELUXE DATA SYSTEM im Detail 


Nachdem man DELUXE DATA SYSTEM gestartet hat, befin- 
det man sich im Hauptmenue. In den ersten beiden Zeilen be- 
findet sich die Überschrift und der Copyrightvermerk. In der 
4. Zeile stehen die Menuepunkte Initialisierung, Eingabe, Aus- 
gabe, Suchen, Andern, Löschen und Ende. Mit den Cursorta- 
sten — und — kann man die Menuepunkte anwählen. Durch 
Drücken der Leertaste wird der angewählte Menuepunkt aus- 
geführt. Im folgenden werden die einzelnen Menuepunkte er- 
läutert: 


Initialisierung 


Unter dem Hauptmenue öffnet sich ein Dialog Window. In die- 
sem erscheint ein Untermenue mit folgenden Menuepunkten: 


<1> Farben einstellen 

Falls Ihnen die Grundeinstellung der Farben nicht gefällt, kön- 
nen Sie die Farben ändern. Die Farbcodes des CPC stehen im 
Handbuch. Orientieren Sie sich nicht nach dem geöffneten Win- 
dow, sondern nach der Überschrift oder nach dem Hauptme- 
nue, da beim Öffnen eines Windows Hintergund- und Stiftfar- 
ben vertauscht werden (Inversdarstellung). 


<2> Maske eingeben 

Unter diesem Menuepunkt können Sie die Datenmaske einge- 
ben. Eine Datenmaske beinhaltet die Struktur eines Datensat- 
zes. Sie müssen die Anzahl der Datenfelder pro Datensatz ein- 
geben. Danach müssen Sie für jedes Datenfeld ein Maskenstring 
und die maximale Länge des Datenfeldes eingeben. Ein Mas- 
kenstring ist die Bezeichnung eines Datenfeldes. Er kann bis zu 
20 Zeichen lang sein. Sie können bis zu 30 Datenfelder mit je 
255 Zeichen definieren. So ist es möglich, sehr komplexe Da- 
tenbestände zu verwalten. 


<3> Maske speichern 

Um nicht immer wieder beim Neustart des DELUXE DATA 
SYSTEM die Datenmaske neu eingeben zu müssen, können Sie 
die Maske auf Diskette abspeichern und später wieder unter Me- 
nuepunkt <4> von Diskette laden. Sie müssen einen Datei- 
namen eingeben, der nicht länger als 8 Zeichen lang sein darf. 


Sonderheft 5’87 


Übrigens sei hier angemerkt, daß man unter CP/M viel mehr 
Möglichkeiten zur Gestaltung des Dateinamens hat, als unter 
AMSDOS. Zeichen wie »/«, »_]« oder Klammeraffe werden 
ohne weiteres angenommen. Allerdings kann man auf diese Da- 
teien von AMSDOS nicht zugreifen. Das Löschen der Datei mit 
ERA oder das Umbenennen mit REN ist von AMSDOS eben- 
falls unmöglich. 


<4> Maske laden 

Hier kann man eine Maske von Diskette laden. Wird ein Da- 
teiname eingegeben, der nicht existiert, erhält man eine Feh- 
lermeldung. 


<5> Suchmaske 

Sie können hier festlegen, nach welchem Datenfeld gesucht wer- 
den soll. Wird hier kein Datenfeld als »Suchfeld« (dieser Aus- 
druck wird im Laufe dieser Beschreibung noch häufiger vor- 
kommen) definiert, so wird das erste Datenfeld als Suchfeld an- 
genommen. 


<6> Ende 
Rückkehr zum Hauptmenue. 


DELUXE DATA SYSTEM benutzt zwei Standardprozeduren, 
die in jedem Menuepunkt gleich sind. Da diese ja immer gleich 
sind, erkläre ich hier die Funktion dieser Prozeduren. Zum ei- 
nen wird, falls kein Dateiname gespeichert ist, die Eingabe eines 
Dateinamens verlangt. 

Ist schon ein Dateiname gespeichert, hat man die Möglichkeit, 
diesen zu ändern, um ggf. eine andere Datei zu bearbeiten. Ist 
die Datei nicht vorhanden, so erhalten Sie bei den Menuepunk- 
ten Ausgabe, Suchen, Andern, und Löschen eine Fehlermel- 
dung und gelangen in das Hauptmenue zurück. 

Bei dem Menuepunkt >Eingabe< wird eine neue Datei er- 
öffnet. 

Bei den Menuepunkten > Ausgabe<, >Suchen< ‚und >Än- 
dern< haben Sie die Möglichkeit, den Bereich, in dem nach 
einem Datensatz gesucht werden soll, zu beschränken. Zum 
Beispiel können Sie einen Datensatz im Bereich vom 132. bis 
zum 296. Datensatz suchen lassen. Der Rest der Datei wird ig- 
noriert. 

Zuerst werden Sie gefragt: »Ab welchem Datensatz«. Drücken 
Sienur <ENTER>, so wird 1 angenommen. Danach wird die 
Frage »Bis zu welchem Datensatz« gestellt. Drücken Sie nur 
<ENTER>, so wird bis zum Ende der Datei gesucht. Dies 
geht nur, falls die Datei nicht mehr als 9999 Datensätze hat. 

Übersteigt die eingegebene Zahl die Anzahl der Datensätze der 
Datei, so wird ebenfalls bis zum Ende der Datei gesucht. Falls 
keine Maske gespeichert ist, erhalten Sie bei den Menuepunkten 
Eingabe, Ausgabe, Suchen, Andern und Löschen eine Fehler- 
meldung und gelangen zum Hauptmenue zurück. 


Eingabe: 

Hier können Sie Datensätze in eine Datei schreiben. Sind in der 
Datei schon Datensätze enthalten, so wird die Datei erweitert. 
Der ersten Zeile des Dialog Windows können Sie entnehmen, 
welchen Datensatz Sie im Moment eingeben. Drücken Sie 
<ENTER>, wenn die Eingabe des ersten Datenfeldes gefor- 
dert wird, gelangen Sie in das Hauptmenue zurück. 


Ausgabe: R 

Unter diesem Menuepunkt können Sie sich einen Überblick 
über Ihre Datenbestände verschaffen. Es wird immer das Such- 
feld eines Datensatzes innerhalb des Bereichs entweder auf dem 
Bildschirm oder Drucker ausgeben. 
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Anwendungen 


Wenn Sie den Bildschirm als Ausgabegerät wählen, wird das 
Dialog Window vollgeschrieben, dann wartet das Programm bis 
Sie die Leertaste drücken, dann wird die Ausgabe fortgesetzt. 


Suchen: 

Nach eventueller Eingabe eines neuen Dateinamens und Ein- 
gabe des Bereichs, werden Sie aufgefordert einen Suchbegriff 
einzugeben. Alle Datensätze (innerhalb des Bereichs), in de- 
ren Suchfeld der Suchbegriff enthalten ist, werden komplett auf 
dem Bildschirm ausgegeben. Erscheint ein Datensatz auf dem 
Bildschirm, so können Sie entscheiden, ob dieser Datensatz aus- 
gedruckt werden soll. 


Ändern: 

Nach den üblichen Standardprozeduren müssen Sie einen Such- 
begriff und den neuen Inhalt des Suchfeldes eingeben. Wird ein 
Datensatz gefunden, in dessen Suchfeld der Suchbegriff enthal- 
ten ist, so wird dieser wieder auf dem Bildschirm ausgegeben, 
und Sie entscheiden, ob das Suchfeld verändert werden soll oder 
nicht. 


Löschen: 

Dieser Menuepunkt unterscheidet sich kaum vom Menuepunkt 
Suchen. Sie entscheiden nur nicht, ob der Datensatz ausge- 
druckt werden soll, sondern ob der Datensatz gelöscht werden 
soll. 


Ende: 
Beenden des Programms und Rückkehr zu CP/M. 


Kompatibel??? 


Wie Sie als Turbo-User sicher wissen, gibt es Turbo-Pascal für 
die unterschiedlichsten Systeme (CP/M 80, CP/M 86, MS-DOS, 
PC-DOS u.a.). Es ist aber fraglich, ob DELUXE DATA SY- 
STEM auf anderen Computern lauffähig ist. Das Programm be- 
nutzt nämlich Steuerzeichen zur Farbeinstellung und zur Win- 
dowtechnik. Sicher ist aber, daß das Programm auf dem CPC 
464, CPC 664 sowie auf dem CPC 6128 läuft. 


Benutzertips 


Das Programm ist so gestaltet, daß es bedingt durch Falschein- 
gaben nicht abbricht oder sogar abstürzt. Ein Auftreten von Run- 
Time-Errors ist unwahrscheinlich. Wechseln Sie während des 
Programmablaufs nie die Diskette!!! Dann kommt es nämlich 
zum gefürchteten BDOS-Error, und das Programm wird abge- 
brochen. Das Programm (COM-File) nimmt 17 KByte in An- 
spruch, eine Maskendatei belegt etwa 1 KByte auf der Disket- 
te, so daß 151 KB für Dateien frei sind. 


(Jochen Skulj) 


Die Zeilennummern in den Listings dürfen nicht mit ein- 
getippt werden, sie sind nur als Eingabe-HILFE gedacht. 


Übrigens ist das lauffähige Programm auch als COM-File 
auf unserer Data-Box. 
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Anwendungen 


Deluxe Data System 


: DDS. PAS 
: Hauptprogramm 
: Jochen Skulj, 1987 


: PROGRAW Deluxe_Data_Systen; 
& 
Ä 
c 


Extension_l = '.DAT'; 
Extension_2 = '.MSK'; 


: TYPE 
Datentyp 
Maskentyp 
Strtyp STRING (255); 


: VAR 
Daten : Datentyp; 
Maske : Maskentyp; 
Datei : FILE OF CHAR; 
Nax_Laenge 
Maximal : INTEGER; 
Drucker ; INTEGER; 
Dateiname : STRIBG 18); 


Such_Num : INTEGER; 
Start_Pos : INTEGER; 
End_Pos : INTEGER; 
Position : ISTEGER; 
Exist : BOOLEAR; 


8 
t INCLUDE - Dateien nachladen 


(81 SCR-IBIT. INC > 
{81 NEV-CON. INC ) 
«81 INIT.INC } 

($1 INITMERU. IC } 
{$1 EISGABE. INC ) 
($1 AUSGABE. ISC ) 
{81 SUCHEN. INC } 
{$1 AENDERR. 
($1 LOESCHEE 
(sI MEBU. INC ) 


Screen_Init; 
Hauptmenue; 


1: 
2: 
3: 
4: 
fi 
6: 
Ei 
8: 
9: 


: BEGIE 


Konstanten-, Typen- und Variablendefinition 


ARRAY [1..30) OF STRING [255]; 
ARRAY [1..30) OF STRIBG 120); 


ARRAY [1..30) OF INTEGER; 


Bildschirm aufbauen ) 
Neue Kommandos 
Initialisierung 


Eingabe 
Ausgabe 
Suchen 
Aendern 
Loeschen 
Hauptmenue 


: Deluxe Data System 
: SCR-IBIT. INC 
: Unterprograma, Teil I 


Bildschirm-Initialisterung 


: Jochen Skulj, 1987 


PROCEDURE Window (Links, Rechts, Oben, Unten : INTEGER); 


Write (#26,Chr (Links),Chr (Rechts),Chr (Oben),Chr (Unten)); 


: PROCEDURE Paper (Farbe : IBTEGER); 


: BEGIN 
: EBD; 
da 
: PROCEDURE Pen (Farbe : INTEGER); 


BEGIE 


Write (#28,Chr (0),Chr (Farbe),Chr (Farbe)); 


Write (8#28,Chr (1),Chr (Farbe),Chr (Farbe); 


: PROCEDURE Border (Farbe : INTEGER); 


BEGIN 


Write (#29,Chr (Farbe),Chr (Farbe)); 


: PROCEDURE Dialog_Vindow; 


; BEGIN 
Window (1,80,6,23); 
LowVideo; 


: PROCEDURE Fehler_Window; 


: VAR 
Lauf : INTEGER; 


BEGIE 
Window (1,80,25,25); 
LowVideo; 

ı ClrSer; 
: END; 


LO ISHBANE 


: PROCEDURE Set_Pointer (Anzahl : INTEGER); 


: VAR 


: PROCEDURE Close_Vindow; 
: BEGIN 


BoraVideo; 
ClrSer; 


: END; 


Ä ne 


: PROCEDURE Screen_Init; 
: BEGIE 


CirSer; 

Window (1,80,1,29; 

Paper (0); 

Border (0); 

Pen (9; 

GotoXY (20,19; 

Write CODELUXE DATA SYSTEN 1.0; 
GOTOXY (24,2); 

Write ('(C) Copyright 1987 by Jochen Skulj'>; 
Window (1,80,3,59; 

GotoXY (1,2); 

Write ('Initialisierung' >; 
GotoXY (20,2); 

Vrite ('Eingabe'); 

GotoXY (31,29; 

Write ('Ausgabe'); 

GotoXY (42,2); 

Write ('Suchen'); 

GotoXY (52,2); 

Write ('Aendern'); 

GotoXY (63,2); 

Write ('Loeschen’); 
GotoXY (75,2); 

Write ('Ende'); 

Window (1,80,24,24); 


: Deluxe Data System 

: BEV-CON. ISC 

: Unterprograma, Teil II 
Befehlserweiterung 

: Jochen Skulj, 1987 


: PROCEDURE Data_Vrite; 


: Var 


Lauf_l :INTEGER; 
Lauf_2 :INTEGER; 
WriteCh :CHAR; 


: Begin 


Position: =Positiontl; 
For Lauf_1:=1 To Maximal Do 
Begin 
1f Length (DatenlLauf_1])<Max_LaengelLauf_1} Then 
Begin 
For Lauf_2:=Lengtb (Daten[Lauf_1})+1 To Max_LaengelLauf_1] Do 
DatentLauf_1]:=DatentLauf_1]+' '; 
End; 
For Lauf_2:=1 To Max_LaengelLauf_1) Do 
Begin 
WriteCh:=Copy (DatenlLauf_1],Lauf_2,1); 
Vrite (Datei, WriteCh); 
End; 
End; 


: End; 
: Procedure Data_Read; 


; Var 


Lauf_l, Lauf_2 : INTEGER; 
ReadCh :CHAR; 


; Begin 


Position: =Position#+1; 
For Lauf_l:=1 To Maximal Do 
Begin 
DatenlLauf_1}:=''; 
For Lauf_2:=1 To Max_LaengelLauf_1} Do 
Begin 
Read (Datei, ReadCh); 
Daten(.Lauf_1.):=Concat (Daten(.Lauf_l.), ReadCh); 


{ Filepointer auf den n-ten ) 
{ Datensatz ’ 


Max_Summe : INTEGER; 
Lauf : INTEGER; 


Max_Summe: =Max_Summe+Max_Laenge (Lauf); 
Seek (Datei,0); 
:=1 To Anzahl Do 


IF EOF (Datei)=FALSE Then 

BEGIB 
Seek (Datei, FilePostDatei)+Max_Summe); 
Position: =Position#l; 

END; 


: PROCEDURE Fehler; 


: BEGIB 
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Fehler_Vindow; 
GotoXY (31,19; B 
Write ("Eingabe - Fehler'); D BEGIS 
Delay (2000); 
Close_Vindow; 
Vindow (1,80,6,23); 


: EBD; 


anna nn re) 


: PROCEDURE Test; 


{ Andere Datei eroeffnen ? ) 


: VAR 
Wahl : CHAR; 


: BEGIR 
If Length (Dateiname)>0 Then 
BEGIS 
Febler_Vindow; 
Write ("Dateiname : 
Repeat 
Read (KBD, Wahl); 
Until (Wahl='J') OR (Wahl="B"); 


*,Dateiname,* - Moechten Sie den Namen aendern (J/D ? '); 


END; 


1f (Length (Dateiname)=0) OR (Wahl='J') Then 
BEGIN 


SEITHER 


: VAR 

„Vindow; 

dr ! © Menu_Vahl : 
Vrite ("Bitte geben Sie den Dateinamen ein (max. 8) ! *); Lauf_Var 
Read (Dateiname); 


END; R 
Exist:=TRUE; ; VAR 
Assign (Datei, Dateinams+Extension_1); } Stift 


4$1-) ß Hintergrund 
Reset (Datei); : Okay 


ar : __PROCEDURE Farben; 


Anwendungen 


Until lOResult=0; 
if End_Pos=0 Then 


End_Pos: =9999; 


END; 
Until Start_Pos<End_Pos; 


Programmname : Deluxe Data System 

Dateiname : IB1T.IBC 
Modul : Unterprog: 
Initialisierung 
: Jochen Skulj, 1987 
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PROCEDURE Initialisierung; 


IBTEGER; 
: ISTEGER; 


{ Farben neu einstellen ) 


: INTEGER; 


INTEGER; 


if IOResult<>0 Then 
BEGIE 
Exist:=FALSE; 
Rewrite (Datei); 
END; 
419) 
Close_Window; 


: PROCEDURE Data_Dut (Kanal : Strtyp); ( Datensatz auf Drucker oder Bildschirm } 


t oder Drucker ausgeben 
: VAR 


Lauf_l : 
Lauf_2 : INTEGER; 
Laenge : ISTEGER; 
Out » TEXT; 


INTEGER; 


: BEGIN 
If Kanal="Printer' Then 
BEGIN 
BormVideo; 
Assign (Out, 'LST:*); 
END 
ELSE 
Assign (Out, 'COB:*>; 
Laenge:=Length (Maske [L1}); 
For Lauf_1:=2 To Maximal Do 
BEGIE 
1f Length (Maske [Lauf_1})>Laenge Then 
Laenge: =Length (Maske [Lauf_1}); 
EBD; 


Writeln (Out, Datensatz Br.: „Position; 
VWriteln (Out); 
For Lauf_l:=1 To Maximal Do 
BEGIS 

Vrite (Out,Maske [Lauf_1l); 

For Lauf_2:=Length (Maske [Lauf_1}) To Laenge Do 

Write (Out,' "9; 

Write (Qut,': 3; 

Vriteln (Out, Daten [Lauf_1}); 
END; 
If Kanal="Printer' Then 

LowVideo; 


im: 
172: BEGIE 
173: lf (Maximal=0) AND (Exist=FALSE) Then 
174: BEGIE 
175: Febler_Vindow; 
176: GotoXY (24,1); 
ı77: Write ('Maske und Datei nicht vorhanden’); 
178: Delay (2000); 
179: Close_Vindow; 
180: EBD 
181: ELSE 
182: BEGIE 
183: If Maximal=0 Then 
184: BEGIN 
185: Fehler_Window; 
186: GotoXY (26,19; 
187: Write ('Es ist keine Maske vorhanden’); 
188: Delay (2000); 
Close_Vindow; 
END; 
if Exist=FALSE Then 
BEGIB 
Fehler _Window; 
GotoXY (26,1); 
Vrite ('Es ist keine Datei vorhanden’); 
Delay (2000); 
Close_Window; 


204: PROCEDURE Bereich; 
205: 


Febler_Window; 
Write ('Ab welchem Datensatz : '); 


i81-} 

Read (Start_Pos); 
181+ 

10Result=0; 


Fehler Window; 

Write ('Bis zu welchem Datensatz : '); 
i81-) 

Read (End_Pos); 

“sie 

Close_Window; 
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BOOLEAB; 
Lauf_Var : ISTEGER; 
BEGIE 
Repeat 
Okay: =FALSE; 
Dialog_Window; 
Vriteln; 
Repeat 
Vrite ('Bitte geben Sie die Stift-Farbe ein (0 - 26) '! *>; 
41-) 
Readin (Stift); 
181) 
Until IOResult=0; 
Vriteln; 
Repea‘ 
Write ("Bitte geben Sie die Hintergrund-Farbe ein (0 - 26) ! *); 
481-) 
Readin (Hintergrund); 
1814} 
Until IOResult=0; 
If (Stift>-1) OR (Stift«27) OR (Stift<>Hintergrund) Then 
Okay: =TRUE; 
IF (Hintergrund>-1) OR (Hintergrund<27) OR (Hintergrund<>Stift) Then 
Okay: =TRUE; 
IF OkaysFALSE Then 
Fehler; 
Until Okay=TRUE; 
Close_Vindow; 
Pen (Stift); 
Paper (Hintergrund); 
Border (Hintergrund); 


PROCEDURE Maske_Eingeben; 


VAR 
Lauf : ISTEGER; 


BEGIN 
Repeat 

Dialog_Vindow; 

Vriteln; 

Write ("Bitte geben Sie die Anzahl der Datensaetze ein (1 - 30) ! *); 

441-) 

ReadIn (Maximal); 

“in 

11 (Max 
Fehler; 


Until (Naximal>0) AND (Maximal<31) AND (IOResult=0); 
For Lauf:=1 To Maximal Do 
BEGIE 
Dislog_Vindow; 
Vriteln; 
481-) 
Vrite ("Bitte geben Sie den ',Lauf,'. Maskenstring ein (max. 20) ! '); 
Readin (Maske (Lauf) ); 
481) 
Vriteln; 
Repeat 
GotoXY (1,4); 
For Lauf_Var:=1 To 80 Do 
Write (* *); 
GotoXY (1,4); 
Vrite ('Bitte geben Sie die maximale Laenge ein (max. 255) ! '); 
Read (Max_Laenge [Lauf)); 


If (Max_Laenge [Lauf]<1) OR (Max_Laenge [Lauf]>255) OR (IOResult<>0) 
igen 


Febler; 
Until (Nax_Laenge [Lauf}>0) ASD (Max_Laenge [Lauf]<256) AD (IOResult=0); 


EBD; 
Close_Vindow; 


1<1) OR (Maximal>30) OR (lOResult<>0) Then 


END; 


PROCEDURE Naske_Speichern; 


TYPE 
Masken_Record = RECORD 
Str : STRING [20); 


Len : IBTEGER; 
END; 


VAR 
Masken Satz : Masken_Record; 
Nas Datei : FILE OF Masken_Record; 
Lauf_Var : ISTEGER; 


BEGIE 
Dialog_Window; 
Vriteln; 
481-) 
Vrite ("Bitte geben Sie den Dateinamen ein (max. 8) 
Readin (Dateiname); 
(81) 
Assign (Masken_Datei, Dateiname+Extension_2); 
Rewrite (Masken_Datei); 
Masken_Satz.Str:=''; 
Masken_Satz Len:=Maximal; 
Write (Nasken_Datei, Masken_Satz); 
For Lauf Var:=] To Max 
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Anwendungen 


BEGIR 
Masken _Satz Str =Maske [Lauf_Var): 
Masken Satz Len -Max_Laenge [Lauf Var]; 
Write (Masken Datei, Masken Satz), 

EBD; 

Close (Masken Datei), 

Clase_Window; 


PROCEDURE Maske_Laden; 


TYPE 
Masken_Record = RECORD 
Str : STRIEG 120); 
Len : IBTEGER; 
ERD; 


VAR 
Masken_Satz Masken_Record, 
Masken_Datei : FILE OF Masken_Record, 
Lauf_Var IBTEGER:; 


BEGIE 
Dialog_Window; 
Writeln; 

481-} 
Write ("Bitte geben Sie den Dateinamen ein (max 
Readin (Dateiname); 
Assign (Masken_Datet, Dateiname»Extension_2); 
Reset (Masken_Datei >; 
(81%) 
if l0Result‘>0 Then 
BEGIE 
Fehler_Window; 
GatoXY :30,1>; 
Write ('Maske nicht vorhanden’), 
Delay (2000); 
Close_Window; 
END 
ELSE 
BEGIB 
Read (Masken_Datei, Masken Satz); 
Naximal:=Masken_Satz.Len, 
For Lauf_Var:=] To Maximal Do 
BEGIS 
Read (Masken_Datei, Masken_Satz'; 
Maske !Lauf_Var) Masken Satz Str; 
Max_laenge [La.f_Var) =Masken_Satz Len, 
EBD; 
Close ‘Datei’; 
END, 
Dialog_Window; 
Close_Vindow; 


PROCEDURE Suchmaske, 


BEGIN 
Dialog_Window; 
Vriteln; 
Vriteln (' Suchmasken - Menue de 
Writeln (* nesdansesseinnnnen 9 
Vriteln; 
For Lauf_Varı=1 To Maximal Do 
BEGIR 

Write 1'c°:329; 

if Lauf_Var<10 Then 

Write c0'); 

Write (Lauf_Var); 

Write (3 *); 

Writeln (Maske [Lauf_Var)>; 

Writeln; 

END; 

Repeat 
Febler_Window; 
GotoXY (35,1); 
481-) 

Write ('Ihre Wahl :'»; 

11%) 

Read (Such_Bum); 
Until (Such_Bum>0) ARD (Such _NumMaximal+l) AND ‘1QResult=0); 
Close_Vindow; 
Window (1,80,6,23); 


Close_Vindow; 


Programmname : Deluxe Data System 
Dateiname EINGABE. IBC 
Modul Unterprograma, Teil IV 
Eingabe der Datensaetze 
; Jochen Skulj 


PROCEDURE Eingabe; 


sosausaun. 


VAR 
Lauf_Var_! : ISTEGER; 
ISTEGER; 
INTEGER; 


lf Maximalci Then 

BEGIE 
Febler_Window; 
GotoXY (26,19; 
Vrite ('Es ist keine Maske vorhanden' ); 
Delay (20009; 
Close_VWindow; 

ERD 

ELSE 

BEGIS 
Test; 
Laenge:=Length (Maskel1}); 
For Lauf_Var_1:=2 To Kaximal Do 
BEGIB 

lf Length (Maske iLauf_Var_l})>Laenge Then 
Laenge:=Length (Maske !Lauf_Var_1)>; 

END; 
Set_Potnter (9999); 
Position: =Position+l; 


120 EePe 


i: 
2: 
I: 
4: 
S: 
6: 
7 

8: 
9 


: VAR 
Lauf_Var_l : IBTEGER; 


Dialog_Window; 

Vriteln ("Datensatz *„Position. 
Vriteln; 

Write (Maske {1]), 


For Lauf_Var_2:=Length (Maske (1!) To Laenge Do 


Write 1" ®3; 
Write ct: 9; 
i81-) 
din Daten Li); 
If Length ‘Daten [1})>0 Then 
BEGIE 
For Lauf_Var_l:=2 To Maximal De 
BEGIS 
Write (Maske ILauf_Var 1}; 


For Lauf Var 2: =Lengtb (Maske iLauf_Var_il) To Laenge Do 


Vrate rt" "4; 
Write 1" ı, 
481-3 
Readin ‘baten ILauf_Var_il); 
“ie 
EBD; 
Data_Vrite; 
EBD; 
Until Length ‘Daten [11)=0, 
Close (Datei); 
Close_Vindow; 
EBD; 


: EBD; 


Programmname : Deluxe Data System 
Dateiname : AUSGABE. INC 
Unterprogramm, Teil V 
Ausgabe der Datensaetze 
: Jochen Skulj, 1987 


PROCEDURE Ausgabe; 


Lauf_Var_2 : IBTEGER; 
Wait_Chr : CHAR; 
Vabl : CHAR; 


: BEGIE 


Test; 
Pruefen; 
lf (Exist=TRUE) ABD (Maximal>0) Then 
BEGIE 
Bereich; 
481-) 
Repeat 
Fehler_Window; 
Write ("Ausgabe auf Drucker (J/Wi ? '>; 
Read (Wahl); 
Vahl:=Upcase (Wahl); 
Until (IOResult=0) ABD ((Wahl=']') OR (Wahl='B' >>; 
1s1#) 
If Wahl='7' Then 
BEGIE 
Close_Window; 
Start_Pos: =Start_Pos-!; 
Set_Pointer (Start_Pos); 


Waille (Hot EOF (Datei)) ABD (Position<End_Pos) Do 


BEGIE 
Dialog_Window; 
Vriteln (Br "Maske [Such_Bum) >; 
For Lauf_Var_2:=1 To 16 Do 
BEGIR 


l£ «EOF (Datei>=FALSE> AND (Position‘End_Pos) Then 


BEGIN 
Data_Read; 
Write (Position:4); 
Yrite. 0: 9%; 
Writeln (Daten [Such_N: 
EBD; 
EBD; 
Febler_Window; 
GotoXY 125,19; 
Write ('>)> Weiter mit (Leertaste) <'); 
Vait_Chr:='@'; 
BorzVideo; 
Repeat 
Read (KBD, Wait_Chr’; 
Until Wait_Chr=' '; 
LowVideo; 
Close_Window; 
EBD; 
Dialog_Window; 
Close_Window; 
EBD; 
If Wahl='J' Then 
BEGIE 
Set_Pointer (Start_Pos); 
Writein ('Br. ske [Such_Num) >; 


While (Bot EOF (Datei)) ABD (Position<End_Pos) Do 


BEGIS 


If (EOF (Datei)=FALSE) AND (Position<End_Pos) Then 


BEGIE 
Data_Read; 
Write (LST, Position:4); 
Write (LST, ': "3; 
Vriteln (LST, Daten [Such_Bum) >; 
END; 
END; 
EBD; 
Close (Datei); 
EBD; 
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: VAR 


: BEGIE 


EIEDERER 


: VAR 
Alt_Str : STRIEG [255); 
Beu_Str : STRIEG 255); 
Vahl : CHAR; 

: BEGIE 


t Deluxe Data System ) 
{ SUCHES. IBC ) 
{ Unterprogramm, Teil VI ) 
t Suchen eines Datensatzes I 
t ; ) 
t 


PROCEDURE Suchen; 


Vabl : CHAR; 
Such_Str : STRING [255]; 


ron 
Pruef: 
If (Exist=TRUE) AHD (Maximal>0) Then 
BEGIS 
Bereich; 
Dialog_Window; 
Vrite (Maske [Such_Num],' ; 
181-) 
Readin (Such_Str>; 
(81%) 
Start_Pos: =Start_Pos-]; 
Set_Pointer (Start_Pos), 
While (Bot EOF (Datei)? OR (Position>’End_Pos) Do 
BEGIE 
Data_Read; 
1° Pos (Such_Str, Daten [Such_Numl )>0 Then 
BEGIE 
Dialog_VWindow; 
Vriteln; 
Data_Out ('Screen'); 
481-) 
Repeat 
Fehler_Window; 
GotoXY 134,19; 
Vrite ("Drucken (J/M) ? '>»; 
Read (Wahl); 
Vabl:=Upcase (Wahl); 
Close_Vindow; 
Until (IOResult=0) ABD ((Wahl="J") OR (Wahl='E')); 
1) 
If Vabl='J' Then 
Data_Out ('Printer'); 


END; 
END; 
Dialog_Window: 
Close_Vindow; 
Close (Datei); 
END; 
: EBD: 


c 

{ Programmname : Deluxe Data System ’ 
{ Dateiname : AENDE! ’ 
{ Modul : Unterprogramm, Teil VII > 
t Aendern der Datensaetze ’ 
t Autor : Jochen Skulj, 1987 ) 
kaum nn mannnaanssssannunnnnnennsennunn ) 


PROCEDURE Aendern; 


T 
Pruefen; 
if (Exist=TRUE) ABD (Maximal>0) Then 
BEGIS 
Bereich; 
Dialog_VWindow; 
(1) 
Vrite (Maske [Such_Bum),' (Alt) : "3; 
Readin (Alt_Str>; 
Vriteln; 
Vrite (Maske [Such_Buml,' (Beu) : '); 
Readin (Beu_Str>; 
419) 
Start_Pos: =Start_Pos-1; 
Set_Pointer (Start_Pos); 
While (Bot EOF (Datei)) OR (Position>End_Pos) Do 


BEGIS 
Data_Read; 
1f Pos (Alt_Str, Daten [Such_Rum))>0 Then 
BEGIS 
Dialog_VWindow; 
Vriteln; 
Data_Dut ('Screen'); 
(81-} 
Repeat 
Fehler_Window; 
GotoIY 132,1); 
Write ('Aendern (J/B) : *>; 
Read (Wahl); 
Vahl:=Upcase (Wahl); 
Close_VWindow; 
Until (IOResult=0) AHD ((Wahl='J") OR (Wahl= 
11%) 
If Wahl='J" Then 
BEGIN 
Daten [Such_Sum) :=Beu_Str; 
Position: =Position-1; 
Set_Pointer (Position); 
Data_Vrite; 
EBD; 
EBD; 
EBD; 


Dialog_Window; 
Close_Window; 
Close (Datet); 
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voyauaun» 


vsoyouaun. 


Programmname : Deluxe Data System 

Dateiname : MER. IBC 

Modul programm, Teil IX 
Hauptmenue 


: Jochen Skulj, 1987 
dessmnnansnne Bannannnn nn nn - 


: PROCEDURE Hauptmenue; 


COBST 
Links 
Rechts 
Choose 
Items 


: CHAR = #242; 

" CHAR = #243; 

: CHAR = #32; 

: ARRAY [1..7) OF STRING [15] = ('Initialisierung', 


*Aendern', 

"Loeschen', 

"Ende'); 
=, 

20, 

2, 

42, 

52, 

63, 

75); 


: ARRAY [1.71 OF IBTEGER 


: VAR 


Wabl : IBTEGER; 
Key : CHAR; 


: BEGIR 


Wahl: =1; 
While VWahlc>7 Do 
BEGIE 
Key:='#; 
While Key<>Choose Do 
BEGIE 
Window (1,80,4,4); 
GotoXY (Item_Pos [Wahl},1); 
LowVideo; 
Write (Items [Wahl)); 
KoraVideo; 
Key:='#'; 
Wblle (Keyc>Rechts) ABD (Key<>Links) AND (Key<>Choose) Do 
Read (KBD, Key); 
GotoXY (Item_Pos (Vahll,1); 
Write (Items [Wahl]; 
lf Key=links Then 
BEGIN 
Vahl:=Wahl-1; 
If Wahl<1 Then 
Vahl:=1; 
EBD; 
lf Key-Rechts Then 
BEGIN 
Vahl:=Vahl+1; 
If Vabl>7 Then 
Vahl:=7 
END; 
Wahl Of 
1: Inttialisierung; 
: Eingabe; 
: Ausgabe; 
: Suchen; 
: Aendern; 
: Loeschen; 


END; 
END; 
Window (1,80,1,25; 
CrSer; 


: END; 


“ Intttalisterung 
eo 


Writeln; 
Vriteln; 
Vriteln; 
Vriteln; 
Vriteln; 
Vriteln; 
Vriteln; 


em 
v2 
Vriteln ('<c3> 
Vriteln (4 
Vriteln ('<5> 
Vriteln ('<6> 
Repeat 
Febler_VWindow; 
GotoXY (31,19; 
Vrite ("Ihre Wahl (1 - 6) : 
181) 
Read (Menu_Vahl); 
181%) 
Close_Window; 
Until (Menu_Wahl>0) ABD (Menu_Wahl<8) ARD (1OResult=0); 
Case Menu_Vahl Of 
; Farben; 
: Maske_Eingeben; 
: Maske_Speichern; 
: Maske_Laden; 
: Suchmaske; 
END; 
Until Menu_Vahl=6; 
Dialog_VWindow; 
Close_Window; 


Farben Einstellen’: 
Maske Eingeben ': 
Maske Speichern ' 
Maske Laden ® 
Suchmaske . 
Hauptmenue ® 
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Anwendungen 


Turbo-Pascal 


Windows 


Textfenster-Technik 
unter CPIM 3.0 


Angeregt durch den Beitrag »Graphik unter CP/M 3.0 und Tur- 
bo-Pascal« im Sonderheft Nr. 4 habe ich eine Bibliothek mit 
Routinen zur Bearbeitung von Textfenstern zusammengestellt. 
In den Inlineprozeduren wird ebenfalls die Funktion USERF 
im Bios nach Übergabe der benötigten Parameter angesprun- 
gen. Die Bibliothek läßt sich beliebig erweitern. Zum Abschluß 
ein kleiner Tip für all diejenigen, die Turbo-Pascal unter CP/M 
2.2 benutzen. Ersetzen Sie die Adresse &FC5A durch &BE9B, 
dann können Sie die Prozeduren auch in Ihre Turbo-Pascal Pro- 
gramme unter CP/M 2.2. einbauen. 


Literaturhinweise: 

Janneck/Mossakowski, 

ROM-Listing CPC 464/664/6128, 1986 M&T Verlag 
Brückmann/Englisch/Gerits/Steiger 

CPC 664/6128 INTERN, 1985 Data Becker 


(Hans-Werner Fromme) 


BAZEZEZZTEZEZEZZZS ZZ ZEZ ZZ ES ZEZ ZZ ET ZZEZZ EZ ZZ EZ ZEEZ EEE EZ SZES EEE 
" 


“ VIEDOW.IBC * 
“* 5 
(e Bibliothek zur Text-Window Bearbeitung fuer SCHNEIDER CPC6125 ” 

unter CP/M 3.0 (Plus) [2] 
“* 02) 


(# zusammengestellt von 


Hans-Werner Fromne im Maerz 1987 " 


2 
3: 
4: 
8: 
6: (# 
7: 
8 
9 
10: 


(“ CPC-Firmware-Routinen werden ueber die Adresse der ” 
‘# BIOS-Funktion Sr. 30 (USERF) = AFCSA initialisiert *) 
(8--------- m m m nn * 
(s WINDOW. ISC beinhaltet folgende Prozeduren: 2] 
(* ” 
(#  Textinit; Initialisierung des Text-Packs * 
(8  TextReset; Ruecksetzen des Text-Packs ” 
(# *) 
(#  WinSelect (WindowNr: byte); Wahl des aktuellen Fensters *) 
(e  WinEnable(S1,21,52,22: byte); Festlegung der Fenstergrenzen ” 
(#  WinFrameEnable *) 
(# (81,21,52,22: byte); wie WinEnable, jedoch mit Rahmen L2} 
(@  WinSwap(WinKrl,WinSr2: byte); Parameteraustausch zweier Windows ” 
(e  WinClear; Aktuelles Fenster loeschen “ 
(# * 
(*  WinSetCursor (X, Y: byte); Cursor im akt. Fenster positionieren #) 
(*  WinGetCursor (VAR X, Y: byte); Position des Cursors abfragen [2] 
(#  WinCursorOn; Cursor einschalten “” 
(«  WinCursorOff; Cursor abschaiten " 
(# [3 
(#  WinSetPen(Penär: byte); Schreibfarbe f. akt. Fenster setzen #) 


(# _ WinSetPaper (PaperXr: byte); Hintergrundfarbe f. akt. F. setzen ®) 


(#  WinInvers; Pen- und Paper-Farbe tauschen * 
(#  WinSetBack (Modus: byte); Wahl des Hintergrund-Modus 2) 
* [2 


(# WinVrite(ASClI:char); 
(#  WinRead(VAR ASCIl:char); 


Fenster * 
Fenster lesen #) 


Zeichenausgabe im akt 
Zeichen aus dem akt 


(* *) 
(#  GetVin(VAR S1,21,S2,22:byte); Abfrage der akt. Fenstergrenzen *) 
(* ” 


EILZEEEZZEZZZZZZZEZEZZZZZSZSZEZZEZESTEZETETSESISTETESETETTIITEREIETEIETETTE 


: PROCEDURE TextInit; 
BEGIN 
inline ($cd/$85a/$fc/$4e/$bb) 
END; 


PROCEDURE TextReset; 
BEGIN 
inline (80d/$85a/$fc/851/$bb) 
END; 


PROCEDURE WinSelect (WindowNr: byte); 
BEGIN 
inline (83a/WindowNr/$cd/$5a/$fc/$b4/$bb) 
END; 


PROCEDURE WinEnable (S1,21,52,22: byte); 
BEGIN 
inline (834/51/867/83a/S2/857/ 


amp 


: CONST texti ='##* CPC6128 - 


$3a/21/86f/83a/22/858/ 
scd/85a/8fc/$66/$bb) 


END; 


PROCEDURE VinSwap(VinEri,WinKr2: byte); 
BEGIE 
inline (83a/WinEr1/$47/$3a/WinNr2/$4f/ 


Scd/85a/$fc/$b7/$bb) 
EBD; 
: PROCEDURE WinClear; 
BEGIS 
inline ($cd/$5a/$fc/$6c/$bb) 
END; 


: PROCEDURE VWinSetCursor (Zeile, Spalte: byte); 


BEGIN 
inline ($3a/Zeile/$6F/$3a/Spalte/$67 
$cd/85a/81c/875/$bb) 
END; 


PROCEDURE WinGetCursor (VAR Zeile, Spalte: byte); 
BEGIF 
inline (8cd/$5a/$fc/878/$bb/ 
37c/832/Spalte/$7d/832/Zeile) 


[ETTELELERETETTESTETTTETETETETETESESTEETEIESZSEIZESZESZESZERZEZ ZZ ZEZEI EEE 22 


“* 12) 
(#  WINDENO. PAS » 
‘* Demonstrationsprogramn zur Textfestertechnik ” 


(# CPC 6128 - Turbo-Pascal - CP/M 3.0 *) 


(d------------ m m 
(* benoetigt wird WIEDOV. IBC 

(8----------- 141 
(# zusammengestellt von Hans-Werner Fromme im Maerz 1987 


|i;°:;°:;°;ee 


ASZZZZZEZ ZZ EZ ZIZZZZEI ZZ EG 


: PROGRAM windemo; 


TURBO PASCAL - 
text2 #+ Bitte Taste druecken ###'; 
text3 ='### Ende der Vorstellung ###'; 


: VAR chr:char; 


k,i:integer; 


{81 window. inc ) 


: BEGIB 
ClirSer; 
TextInit; 


++ Textfenster #0 »* 


.....0.0 
WinSelect (0); 
VinFrameEnable(2,2,78,2); 

WinInvers; 

WinClear; 

VWinSetCursor (1,1); 

FOR i1:=1 TO length(texti1) DO WinVrite(ord(copy(text1,1,19)); 
WinCursorOff; 


EEITTESTESTETZETEEE ET 
WinSelect (1); 
WinFrameEnable (2,21,78,21; 

WinInvers; 

WinClear; 

WinSetCursor (1,1); 

FOR 1:=1 TO length(text2) DO WinWritetord(copy(text2,1,1))); 
VWinCursorOff; 

read (kbd,chr); 


ss0944# Textfenster #1 #+ 


...0.eee) 


ee Textfenster #2 #+ 1. 

WinSelect (2); 

WinFrameEnable (2,5,39,18); 

WinClear; 

WinSetCursor (1,1); 

WinCursorOff; 

REPBAT 
FOR 1:=33 to 255 DO WinVrite(i); 
1:=1; 

UNTIL Keypressed; 

VWinSelect (1); 

delay(1000); 

WinClear; 

delay(1000); 

WinSelect (2); 

WinClear; 


a... Textfenster #3 seasnesanneannnnnenatette) 
WinSelect (3); 
WinEnable (44,5,76,18); 
WinInvers; 
WinClear; 
VinSetCursor (7,3); 
FOR i:=1 to length(text3) DO WinVritetord(copy(text3,i,1))); 
WinCursorOff; 
delay(3000); 


TextInit; 
ClrScr 
END. 
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Fenster-Demonstration ###'; | 


——— 


CPC 
DATABOX 


— Das ist die Software zum CPC Magazin — 


DATABOX: Für alle CPC’s als Kas- 
— mehr als der übliche Soft- Ze a en ee re 
wareservice . 
Inhalt der Databox zu 
Sonderheft 5/87 
— bringt alle sechzehn Pro- Diskette/Kassette 1 
gramme des Sonderhef- ARE: PEN Gbasic 
tes auf Kassette oder 3’: 5/87 Vier gewinnt Poker 
Diskette Convert Diskool 
Für Vortex-Anwender;, Erweitertes DOS Wertpapierbilanz 
DOS-ErWelterung Envpro Terminalprogramm 
er Secret Cavern Tennis-Manager 
r } Grundlagen: Colfunkt Morse-Trainer 
— Die Programme sind, Soundprogramppiörung Unilab Mensch ärgere 
durch den auf den Daten- Bi u = a A 
3 En: Zeitsigna ime 
I Er ah = Erasto (DEVPAC) Timer (DEVPAC) 
mu or, au allen rei Tennis Manager Emulator 


I“ 

# ea. 

CPC-Rechnern lauffähig. A Ai ‚ 
Diskettenutilities , 


Spieletips: 
— trägt das Titelbild des Lageplaner 
gleichzeitig erscheinen- 


den Sonderheftes. 


— über 500 KByte Software 
für Ihren CPC! 


Einzelbezugspreise für DATABOX: 

je Diskette 3’ 24,— DM zuzüglich 3,— DM Porto/Ver- 
packung (im Ausland zuzüglich 5,— DM Porto/Ver- 
packung). 

Kombi-Pack (3“ -Diskette | +II) nur 38—- DM 


Bitte benutzen Sie den Bestellcoupon! 


DIVINZ 


Daten & Medien Verlagsges. mbH 
Postfach 250 


3440 Eschwege 


Diskette/Kassette 2 
Sounddemos Schlumpi 


Runner Defprint 

Crazystamps Drucken mit dem 
8.Bit 

Tonjustage Bundeslisga 

Lister Windows 

Deluxe Data Sy- 

stem Timeout 

Tilgung Guazuela 

Memory Trace 

Fehlereditor Checksummer 


je Kassette 14,— DM zuzüglich 3,— DMPorto/Ver- 
packung (im Ausland zuzüglich 5,— DM Porto/Ver- 


packung). 

Kombi-Pack (Kassette I +II) nur 25,—- DM 
EEE 
FEINEN SELTEE che et green 
Hiermit bestelle ich die Databox zum Sonderheft 5/87 
Diskette | 24,- DM D Diskette Il 24,- DM 
(beidseitig) (beidseitig) 


Kombi-Pack Diskette I + II 38,- DM 


Kassette | 14,— DM U Kassette Il 14,— DM 
Kompi-Pack Kassette | + II 25,- DM 


zuzüglich 3,— DM Porto/Verpackung 
(im Ausland zuzüglich 5,— DM Porto/Verpackung) 


bitte liefern Sie per NN 
V-Scheck liegt bei 


Spiele 


Und suchen vielleicht einmal eine Abwechslung zum Schach- 
computer? Dann ist VIER GEWINNT das ideale Programm für 
Sie, da es sich nicht nur durch eine hervorragende Grafik, son- 
dern vor allem durch eine außerordentlich hohe Spielstärke aus- 
zeichnet (CPC 464/6128). 


Vier Gewinnt ist ein beliebtes Strategiespiel mit einfachen Spiel- 
regeln: Ein 7 x 6 Felder großes Spielfeld wird senkrecht zwi- 
schen zwei Spielern aufgestellt. Der eine Spieler erhält rote, der 
andere gelbe Spielsteine. Sie werfen nun abwechselnd je einen 
ihrer Steine in einen der sieben Schächte des Spielfeldes (Aus- 
setzen ist nicht erlaubt). Dieser Stein fällt dann bis ganz unten 
durch. Auf diese Weise werden die Schächte nach und nach auf- 
gefüllt. Sieger ist, wer als erstes vier Steine in eine Reihe be- 
kommt, senkrecht, waagrecht, oder diagonal. Dieser Spielge- 
danke eignet sich sehr gut zur Umsetzung in ein Computerpro- 
gramm, so daß solche auch schon oft vorgestellt wurden. Bis- 
her spielten die Computer aber meist ziemlich schwach und 
waren so dem Menschen fast immer unterlegen. Es lag also 
nahe, einmal ein Programm zu schreiben, das den Rechner als 
ernstzunehmenden Gegner auftreten läßt und außerdem noch 
einige zusätzliche Funktionen bietet (z.B. Züge zurücknehmen 
oder Seitenwechsel), um so das Spiel interessanter zu gestal- 
ten. Um die große Anzahl der erforderlichen Rechenoperatio- 
nen in absehbarer Zeit durchführen zu können, mußte die ge- 
samte Strategie des Computers in Maschinensprache geschrie- 
ben werden. Das Programm arbeitet dabei nach dem Minimax- 
Prinzip: Zunächst werden alle Stellungen, die innerhalb einer 
gegebenen Anzahl von Zügen erreicht werden können, ermit- 
telt und bewertet. Mit Hilfe der so gewonnenen Informationen 
kann dann der beste Zug herausgefunden werden. Besondere 
Sorgfalt wurde dabei auf den alles entscheidenden Stellungs- 
bewerter gelegt, was allerdings auch zur Folge hatte, daß der 
Computer nicht wesentlich besser spielt, wenn er zwei Züge 
vorausberechnet (Spielstufe I), als wenn er nur bis zum näch- 
sten Zug weiter »denkt«. Erst bei drei Zügen (Spielstufe 2) tritt 
eine deutliche Verbesserung der Strategie ein. Neben der ho- 
hen Spielstärke sollte das Programm aber auch über eine an- 
spruchsvolle Grafik verfügen. Besondere Schwierigkeiten be- 
reitete dabei die Animation eines fallenden Spielsteins. Auch 
dafür war ein kleines Maschinenprogramm erforderlich, wel- 
ches einen Stein auf dem Bildschirm darstellt, ohne dabei das 
Spielfeld zu überschreiben. Mit Hilfe dieses Programms war 
es dann möglich, den Eindruck zu erwecken, als würde ein Stein 
hinter dem Feld hinunterfallen und wäre nur durch die Löcher 
hindurch sichtbar. Doch überzeugen Sie sich selbst von der 
Spielweise des Computers. Werden Sie ihn schlagen? 
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VIER 
gewinnt 


Sind Sie ein Liebhaber 
von Strategiespielen? 


PROGRAMMABLAUF 


Nach dem Start des Basic-Programms wird zunächst das Ma- 
schinenprogramm aus DATA-Zeilen in den Speicher gelesen. 
Mögliche Tippfehler werden durch ein doppeltes Prüfsystem mit 
ziemlicher Sicherheit erkannt — und die fehlerhafte Zeile an- 
gezeigt. Hat das Einlesen geklappt, erscheint das Titelbild auf 
dem Bildschirm, und Sie können wählen, mit welchen Steinen 
Sie spielen möchten, und ob Sie den ersten Zug machen wol- 
len. Danach wird das Spielfeld angezeigt. Rechts am Bildschirm 
befindet sich eine Liste aller zusätzlichen Optionen, die Ihnen 
während des Spiels zur Verfügung stehen: TIP, ZUG ZURUCK- 
SPIELEN, SEITEN-WECHSEL, SPIELSTUFEN ANDERN, 
FELD MANIPULIEREN und DEMO-SPIEL. Darüber kön- 
nen Sie die Spielstufen ablesen, in denen der Computer spielt. 
Die linke Stufe (Nr. 1) gibt dabei an, wie stark der Computer 
gegen Sie spielt, während die rechte (Nr. 2) die Spielstärke des 
zweiten (Computer-)Spielers im Demo-Spiel darstellt. Sie kön- 
nen also beim Demo-Spiel die Spieler mit zwei unterschiedli- 
chen Spielstufen gegeneinander antreten lassen. In den unter- 
sten beiden Zeilen werden Ihnen alle im Verlauf eines Spiels 
wichtigen Informationen angezeigt. Jedesmal wenn Sie am Zug 
sind, erscheint ein Spielstein Ihrer Farbe über Schacht 1. Durch 
Drücken einer Zahl von 1 bis 7 können Sie ihn beliebig posi- 
tionieren. Wenn Sie dann ENTER drücken, fällt der Stein in den 
zuletzt angewählten Schacht, und der Computer ist an der Reihe. 
Der zuletzt gemachte Zug wird jeweils dadurch gekennzeichet, 
daß die Zahl unter dem entsprechenden Schacht blau auf- 
leuchtet. 


Um die zusätzlichen Optionen aufzurufen, geben Sie, wenn Sie 
am Zug sind, anstatt einer Zahl den Anfangsbuchstaben des ge- 
wünschten Menüpunktes und anschließend ENTER ein. 


TIP 

Der Computer sagt Ihnen, welchen Zug er an Ihrer Stelle tun 
würde. Dabei wird die rechte Spielstufe (Nr. 2) verwendet. Be- 
trachtet er mehrere Züge als gleichwertig, so zeigt er diese alle 
an. Ihr Spielstein wird gleich über dem angezeigten Schacht po- 
sitioniert, Sie brauchen nur noch ENTER zu drücken (natür- 
lich können Sie auch einen anderen Zug machen). 


Zug zurückspielen 

Der letzte Zug (blau markiert) wird zurückgenommen. Dazu 
wird der entsprechende Stein wieder vom Spielfeld entfernt. 
Diese Option kann sooft aufgerufen werden, bis sich das Spiel 
wieder in der Ausgangsstellung (in der Regel das leere Feld) be- 
findet. 
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Wechseln 

Sie übernehmen die Steine des Computers, während er mit Ihren 
Steinen weiterspielt. Wenn nach dem Aufruf der beiden zuletzt 
genannten Menüpunkte nicht mehr Sie, sondern der Compu- 
ter an der Reihe ist, wird dieser Fall angezeigt. Sie können dann 
zwar noch mehr Menüpunkte aufrufen (eventuell noch weite- 
re Züge zurücknehmen, so daß wieder Sie an der Reihe sind), 
eine Zugeingabe wird jedoch ignoriert, an Ihrer Stelle macht 
dann der Computer seinen Zug. 


Spielstufen ändern 

Sie können neue Werte für die oben angezeigten Spielstufen be- 
stimmen. Geben Sie dazu jeweils eine Zahl von O bis 4, gefolgt 
von ENTER, ein. Die Spielstufe gibt, wie bereits erwähnt, an, 
wieviele Züge der Computer vorausdenkt. 


Feld manipulieren. 

Diese Option erlaubt es Ihnen, während eines Spiels das Spiel- 
feld beliebig »umzubauen«. Dazu erscheint unten links im Feld 
ein blinkendes Kreuz als Cursor, das Sie mit den Cursortasten 
bewegen können. Mit »R« und »G« wird auf Cursorposition ein 
roter bzw. gelber Stein gesetzt, mit »DEL« wieder weggenom- 
men. »CLR« löscht das gesamte Spielfeld und setzt den Cur- 
sor wieder in Ausgangsposition. Mit »ENTER« können Sie Ihre 
Eingabe abschließen. Alle falsch positionierten Spielsteine wer- 
den dabei wieder entfernt. Das Spiel wird dann ganz normal 
fortgesetzt. Beachten Sie aber, daß das von Ihnen konstruierte 
Spielfeld immer eine Ausgangsstellung darstellt, von der aus kei- 
ne Züge zurückgenommen werden können. 


Demo 

Der (Computer-) Spieler 2 (Spielstufe Nr. 2) spielt nun an Ih- 
rer Stelle weiter. Das Demo kann abgebrochen werden, indem 
Sie irgend eine Taste drücken, solange der entsprechende Text 
im unteren Fenster erscheint. Sie spielen dann mit den Steinen 
des Spielers weiter, der als nächstes am Zug gewesen wäre. 


Spielende 

Ein Spiel ist beendet, wenn es einem Spieler gelingt, vier sei- 
ner Steine in eine Reihe zu bekommen, oder das ganze Spiel- 
feld voll ist (in diesem Fall geht das Spiel unentschieden aus). 
Das Spielende wird auf dem Bildschirm angezeigt. Drücken Sie 
dann irgend eine Taste, um wieder zum Titelbild zu gelangen. 
Sie können ein laufendes Spiel auch abbrechen, in dem Sie zwei- 
mal die ESC-Taste betätigen. Auch dann kehren Sie wieder zum 
Titelbild zurück. Dieser Abbruch ist allerdings nicht möglich, 
solange der Text »Ich überlege...« angezeigt wird. 


VARIABLENLISTE 

a,b Hilfsvariablen für unterschiedliche Zwecke 

anf Nummer des Spielers, der den ersten Zug machte 

c Kontrollvariable beim Einlesen des Maschinenprogramms / 


Hilfsvariable bei Zugeingabe 


dx, dy Richtungsangaben für x- u. y-Koordinaten 

fd Flag für DEMO-Spiel 

fl gibt an, ob ein bzw. welcher Spieler gewonnen hat / zT. 
auch Flag für verschiedene Zwecke 

fm Flag, ob Feld manipuliert wurde 

h Hintergrundfarbe bei Ausgabe eines Menuepunktes (vgl. 
m,v) 

i Schleifenvariable / Hilfsvariable für Tastaturabfr. 

J Schleifenvariable 

k Kontrollsumme (richtiger Wert) beim Einlesen des Maschi- 
nenprogramms (vgl. s) 

m gibt an, welcher Menuepunkt (=Option) ausgegeben wer- 
den soll (vgl. h,v) 

0 Adressvariable beim Einlesen des Maschinenprogramms 

q Nummer des Spielers, der gerade an der Reihe ist 

s Kontrollsumme (tatsächlicher Wert) beim Einlesen des Ma- 
schinenprgs. (vgl. k) 

t! ° Hilfsvariable für Warteschleifen 
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v Vordergrundfarbe bei Ausgabe eines Menuepunktes (vgl. 
h,m) 

x x-Koordinate / Bit-Maske bei Übergabe des Spielfeldes an 
das Maschinenprg. 

y y-Koordinate 

z Zug (Schachtnr.) / Anzahl gültiger Steine nach »Feld mani- 
pulieren« / Zeilernnr. bei Maschinenprg. einlesen 

zu Zugzähler (vgl. z(x)) 

a$ Hilfsvariable für unterschiedliche Zwecke 

i$ Hilfsvariable für Tastaturabfrage 

s$ Hilfsvariable zum Einlesen der SYMBOL-Daten 

c(x) Farbe des Spielers Nr. x 

f(x,y) Spielfeld 

h(x) Anzahl Steine im Schacht x 


z(x) Züge seit Ausgangsstellung, wichtig für »Zug zurückneh- 


men« (vgl. zu) 
m$(x,y)y. Zeile des x. Menüpunktes 


(Michael Knaup) 


für a62-664.61 28 Be Ei I 


10 Key GUSSINDAANTRRNÄNG af 
30 REM % *** VIER GEWINNT *** % [2011] 
40 REM % % [378] 
50 REM % August 1986 % [909] 
60 REM % % [378] 
70 REM KKKKKKKCKKKKKKCHKHKHHKHCHCH [1554] 
80 : [174] 
90 REM Version: [763] 
100 REM -Basicloader [1133] 
110 REM -keine Steuercodes [2351] 
120 ; [174] 
130 SYMBOL AFTER 256:MEMORY &96FF:SYMBOL A [2388] 
FTER 246 
140 MODE 1:INK 0,0:INK 1,13:BORDER 0:PAPER [3180] 
0:PEN 1:CL$S 
150 PRINT"Farbmonitor [j/n] ? ";CHR$(143) [2710] 
;CHRS$ (8); 
160 WHILE i$<>"j" AND i$<>"n":i$=LOWERS(IN [3976] 
KEY$) :WEND 
170 IF i$="j" THEN POKE &A0O10,1:PRINT"ja" [4928] 
ELSE POKE &A010,0:PRINT"nein" 
180 POKE &A011,0:POKE &A012,0 [1168] 
190 GOSUB 2760 [899] 
200 FOR i=246 TO 252:FOR j=0 TO 4 [1499] 
210 READ s$:s(j)=VAL("&x"+s$) :NEXT [1720] 
220 SYMBOL i,0,0,s(0),s(1),s(2),s(3),s(4), [2154] 
O:NEXT 
gr SYMBOL 253,&66,&0,&78,&C,&7C,&CC,&76,& [2423] 


240 SYMBOL 254,&66,&0,&3C,&66,&66,&66,&3C, [2711] 


SYMBOL 255,&66,&0,&66,&66,&66,&66,&3E, [1989] 


SPEED INK 25,10:PRINT CHR$(23);CHRS(4) [1997] 


[174] 


280 REM KAKKHKKHEKHK 


[878] 

290 REM % Vorspann % [1266] 
300 REM KKKKKKKKKKKK [878] 

310 : [174] 

320 CALL &BBOO:CLEAR:ON BREAK GOSUB 270 [1934] 
330 DEFINT a-z:DIM £(7,8),h(7),z(42),c(2), [2690] 
s(2),m$(6,3) 

340 DEF FNx(x)=14*x-11:DEF FNy(x)=x*24+30 [1698] 
350 RANDOMIZE TIME:RESTORE 3130 [2186] 


360 FOR i=1 TO 6:FOR j=1 TO 3:READ a$ [2454] 


epce 125 


Spiele 


370 a=INSTR(a$,"["):IF a THEN a$=LEFT$(a$, 
a-1)+CHR$ (253)+MID$ (a$,a+1) 

380 a=INSTR(a$,"]"):IF a THEN a$=LEFT$(a$, 
a-1)+CHR$ (255)+MID$ (a$,a+1) 

390 m$(i,j)=a$:NEXT j,i 

400 s(1)=PEEK (&A011):s(2)=PEEK (&A012) 

410 IF PEEK(&A010) THEN RESTORE 3160 ELSE 
RESTORE 3170 

420 MODE 1:FOR j=0 TO 3:READ a:INK j,a:NEX 

T:BORDER 0 

430 PAPER O:PEN 2:LOCATE 8,3:PRINT"V IER 

GEWINNT" 

440 PEN 1:LOCATE 17,5:PRINT CHR$ (164) ;1986 
450 PEN 3:LOCATE 12,7:PRINT"by Michael Kna 
up" 

460 PEN 1:LOCATE 1,14:PRINT"Wollen Sie mit 
den ";:PEN 2:PRINT"roten";:PEN 1:PRINT" o 
der ";:PEN 3:PRINT"gelben":PEN 1:PRINT"Ste 
inen spielen ?" 

470 PRINT CHR$(2);CHR$(10);"[r/g] ? 
$(143) ;CHR$ (8) ; 

480 i$="":WHILE i$<>"r" AND i$()"g":i$=LOW 

ER$ (INKEY$) :WEND 

490 IF i$="r" THEN c(1)=4:c(2)=2:PRINT"rot 

" ELSE c(1)=2:c(2)=4:PRINT"gelb" 

500 PEN 1:LOCATE 1,21:PRINT"Wollen Sie den 
ersten Zug machen ?" 
510 PRINT:PRINT"[j/n] ? 

8); 

520 i$="":WHILE i$c>"j" AND i$<c>"n":i$=LOW 
ER$ (INKEY$) :WEND 

530 IF i$="j" THEN PRINT"ja":anf=2 ELSE PR 
INT"nein":anf=1 

540 t!=TIME+300:WHILE t!>TIME:WEND 

550 : 
560 REM KKKKKKKKKKKKK 

570 REM % Spielfeld % 

580 REM KAAAKKAKEKEKK 

590 : 

600 MODE 0:FOR j=0 TO 15 

610 READ a:IF a<O THEN a=-a:READ b ELSE b= 


";CHR 


";CHR$ (143) ;CHR$ ( 


a 
620 INK j,a,b:NEXT 

630 ORIGIN 0,0,0,388,48,350:CLG 15:0RIGIN 
0,0,0,640,0,400 

640 FOR i=6 TO 1 STEP-1:FOR j=1 TO 7 

650 CALL &9804,FNx(j),FNy(i),256 

660 NEXT j,i 

670 z=0:G0SUB 2550 

680 a$=CHR$ (150)+CHR$ (154) +CHR$ (156) :PEN 1 
0:LOCATE 14,1:PRINT a$;" ";a$ 

690 a$=CHR$ (149) :LOCATE 14,2:PRINT a$;" "; 
a; Yeas; "as 

700 a$=CHR$ (147)+CHR$ (154) +CHR$ (153) :LOCAT 
E 14,3:PRINT a$;" ";a$ 

710 PEN 11:LOCATE 13,2:PRINT CHR$ (246) ;:LO 
CATE 17,2:PRINT CHR$ (247); 

720 WINDOW 1,20,24,25:PRINT CHR$ (2); 

730 WINDOW#1,15,15,2,2:PAPER#1,0:PEN#1,c(1 
) :PRINT#1,HEX$ (s(1)); 

740 WINDOW#2,19,19,2,2:PAPER#2,0:PEN#2,c(2 
) :PRINT#2,HEX$ (s(2)); 

750 PAPER#3,0:PEN#3,1 

760 h=0:v=1:FOR m=1 TO 6:G0SUB 2670:NEXT 
7170 : 

180 REM KKKKKKKKCKKHHHCHH 

790 REM % Hauptprogrann % 

800 REM KKKKKKKEEHHHCHHH 

810 : 

820 qsanf:zu=0:x=0:y=0:dx=0:dy=0:fl=-1 

830 WHILE fl=-1 

840 ON q GOSUB 2160,1010 

850 GOSUB 880 


126 EPE 


[4245] 
[3986] 


[1364] 
[2237] 
[2485] 


[3613] 
[3666] 


[1772] 
[3264] 


[9084] 


[4447] 
[4658] 
[4155] 
[4138] 
[2063] 
[2205] 
[2758] 


[2517] 
[174] 
[955] 
[1792] 
[955] 
[174] 
[1828] 
[2326] 


[1752] 
[2400] 


[1248] 
f1652] 
[396] 

[1027] 
[3939] 


[4067] 
[3381] 
[4482] 


[2427] 
[3595] 


[2520] 


[1775] 
[2461] 
[174] 

[1043] 
[1350] 
[1043] 
[174] 

[2223] 
[1194] 
[906] 

[1060] 


860 q=q XOR 3:WEND 
870 GOTO 2400 

880 : 

890 REM KAKKKKKKKKHKKKKKKK 

900 REM % Zug ausfuehren % 

910 REM KKKKKKKKKKKKKKKKKH 

920 : 

930 h(z)=h(z)+1:£(z,h(z))=q:zu=szu+t1:z(zu)= 


z 

940 FOR j=FNy(7) TO FNy(h(z)) STEP-2 

950 CALL &9804,FNx(z),j,c(q) 

960 NEXT:GOSUB 2550 

970 z=&A100:FOR i=1 TO 7:FOR j=1 TO 8 

980 POKE z,£f(i,j):z=z+1:NEXT j,i 

990 CALL &9802,@fl,@x,@y,@dx,@dy 

1000 RETURN 

1010 : 

1020 REM KRITIK 

1030 REM % Spieler Zug % 

1040 REM KKKKKKKKAKKKKCK 

1050 : 

1060 c=1:fd=0:CLS:PEN 11:PRINT CHR$ (7) ;CHR 
$(10);"Bitte Zug eingeben !"; 

1070 IF c<8 THEN CALL &9804,FNx(c),FNy(7), 
c(2) ELSE m=c-7:h=1:v=3:G0SUB 2670 

1080 i$="":WHILE i$="":i$=UPPER$ (INKEY$) :W 
END 

1090 IF c<8 THEN CALL &9804,FNx(c) ,FNy(7), 
0 ELSE IF i$<>CHR$(13) THEN m=c-7:h=0:v=1: 
GOSUB 2670 

1100 IF i$=CHR$ (13) THEN 1190 

1110 IF i$>"0" AND i$<"8" THEN c=VAL(i$) 
1120 IF i$="T" THEN c=8 

1130 IF i$="Z" THEN c=9 

1140 IF i$="W" THEN c=10 

1150 IF i$="S" THEN c=11 

1160 IF i$="fF" THEN c=12 

1170 IF i$="D" THEN c=13 

1180 GOTO 1070 

1190 IF c>7 THEN ON 
0,1620,1890,1750 
1200 IF q=1 THEN 2160 

1210 IF h(c)=6 THEN PEN 2:CLS:PRINT CHR$(7 
);CHR$ (10) ;"Unerlaubter Zug.":GOTO 1070 
1220 z=c:RETURN 

1230 : 
1240 REM 
1250 REM 
1260 REM 
1270 : 
1280 IF q=1 THEN PRINT CHR$ (30) ;CHR$ (7) ;:G 
OTO 1080 

1290 GOSUB 2260 

1300 CLS:PEN 11:PRINT CHR$ (7) ;CHR$ (10) ;"Me 
in Tip: " 

1310 PEN c(2}:FOR j=1 TO PEEK(&A001) 

1320 PRINT HEX$ (PEEK(&A0O01+j));:IF j<>PEEK 
(&A001) THEN PRINT","; 

1330 NEXT:i$=CHR$ (z+48) 

1340 GOTO 1090 

1350 : 

1360 
1370 
1380 
1390 : 
1400 CLS:PEN 2 

1410 IF zu=0 THEN PRINT CHR$(7);"Spiel ber 
eits in Ausgangsstellung.":GOTO 1080 
1420 z=z (zu) :zu=zu-1 

1430 FOR j=FNy(h(z)) TO FNy(7) STEP 2 

1440 CALL &9804,FNx(z),j,c(f(z,h(z))) 

1450 NEXT:t!=TIME+150:WHILE t!>TIME:WEND 
1460 CALL &9804,FNx(z),FNy(7),O 


c-7 GOTO 1230,1350,149 


akx%k 


rk Tip 
k%* 


ar 


*** Zug zurueckspielen 
six 


REM 
REM 
REM 
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[1264] 
[347] 
[174] 
[1169] 
[2036] 
[1169] 
[174] 
[4633] 


[2892] 
[1419] 
[1190] 
[1681] 
[1293] 
[1460] 
[555] 
[174] 
[947] 
[2169] 
[947] 
[174] 
[6777] 


[4661] 
[1626] 
[5860] 


[1419] 
[2461] 
[1781] 
[1719] 
[704] 

[1066] 
[580] 

[1255] 
[317] 

[2264] 


[1188] 
[5197] 


[1360] 
[174] 
[413] 
[573] 
[413] 
[174] 
[3043] 


[871] 
[1434] 


[1695] 
[3610] 


[855] 
[393] 
[174] 
[413] 
[651] 
[413] 
[174] 
[491] 
[5772] 


[2088] 
[2104] 
[1828] 
[4108] 
[1853] 


1470 £(z,h(z))=0:h(z)=h(z)-1:q=q XOR 3 
1480 z=z (zu) :GOSUB 2550:G0T0O 1580 

1490 : 

1500 REM *x%xx% 

1510 REM *** Wechsel 

1520 REM *xx 

1530. : 

1540 FOR i=1 TO 6:FOR j=1 TO T:£(j,i)=(£(j 


‚1) XOR 3)*SGN(£(j,i)):NEXT j,i 


1550 a=c(1):c(1)=c(2):c(2)=a:anf=anf XOR 3 
:q=q XOR 3 

1560 PEN#1,c(1):PRINT#1,HEX$ (s(1)); 

1570 PEN#2,c(2) :PRINT#2,HEX$ (s(2)); 

1580 CLS:IF q=2 THEN IF fd THEN 1010 ELSE 
1730 

1590 PEN 2:PRINT CHR$ (7) ;"Achtung:" 

1600 PEN 11:PRINT"Ich bin am Zug." 

1610 GOTO 1080 

1620 : 

1630 REM *%*x* 

1640 REM *%*%* Spielstufen aendern 

1650 REM *** 

1660 : 

1670 FOR j=1 TO 2 

1680 CLS:PEN c(j):PRINT CHR$ (10) ;"Stufe";j 


;"[0-4]: 
8); 

1690 i$="":WHILE (i$<"0" OR i$>"4") AND i$ 
<>CHR$ (13) :i$=INKEY$:WEND 

1700 IF i$<>CHR$(13) THEN PRINT i$;CHR$(8) 
;:s(j)=VAL(i$) :GOTO 1690 

1710 POKE &A010+j,s(j) :PRINT#j,HEX$ (s(j)); 
1720 NEXT 

1730 CLS:PEN 10:PRINT"O.k.":PEN 11:PRINT"B 
itte Zug eingeben !"; 

1740 GOTO 1080 

1750 
1760 
1770 
1780 
1790 
1800 
1810 


";:PEN 11:PRINT HEX$(s(j));CHRS( 


“xx 


*%*%* Demo 
223 


REM 
REM 
REM 


fd=-1 

IF zu<2 AND £fm=0 THEN z=INT(RND*7)+1 
ELSE GOSUB 2260 

1820 CLS:PEN 2:PRINT"Taste":PEN 11:PRINT C 
HR$(243);" Abbruch Demo"; 

1830 GOSUB 880:CL$S 

1840 IF £l»-1 THEN 2400 


1850 q=q XOR 3:IF INKEY$="" THEN 1810 

1860 m=6:h=0:v=1:G0SUB 2670 

1870 IF q=1 THEN 1490 

1880 GOTO 1010 

1890 : 

1900 REM *x*x* 

1910 REM *%*%* Feld manipulieren 

1920 REM *x*x* 

1930 : 

1940 x=1:y=1:z=0:G0SUB 2550:CLS:TAG:PLOT 0 


‚36,11:CALL &BBE4:a$="":FOR j=240 TO 243:a 
$=a$+CHR$(j)+",":NEXT:PRINT LEFT$(a$,7);:T 
AGOFF:PEN 11:PRINT CHR$ (10) ;"R,G,DEL,CLR,E 
NTER"; 

1950 MOVE x*56-32,y*48+46:DRAWR 0,-14,14:M 
OVER 4,14:DRAWR 0,-14:MOVE x*56-44,y*48+38 
:DRAWR 30,0:MOVER -30,2:DRAWR 30,0 

1960 i=0:WHILE (i<240 OR i>243) AND i<>71 
AND i<>82 AND i<>127 AND i<>13 AND icd16:i 
$="":WHILE i$="":i$=UPPER$ (INKEY$) :WEND:i= 
ASC (i$) :WEND 

1970 IF i=71 THEN IF c(1)=4 THEN £(x,y)=1 
ELSE £(x,y)=2 

1980 IF i=82 THEN IF c(1)=2 THEN £(x,y)=1 
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[2409] 
[2168] 
[174] 
[413] 
[658] 
[413] 
[174] 
[4433] 


[2943] 


[1815] 
[1602] 
[2130] 


[1982] 
[2757] 
[387] 
[174] 
[413] 
[999] 
[413] 
[174] 
[615] 
[4905] 


[3812] 
[3481] 


[1984] 


[350] 
[3972] 


[387] 
[174] 
[413] 
[757] 
[413] 
[174] 
[399] 
[3555] 


[3847] 


[1547] 
[921] 
[1790] 
[2245] 
[1146] 
[345] 
[174] 
[413] 
[2316] 
[413] 
[174] 
[9227] 


[6419] 


[7357] 


[1805] 


[2319] 


ELSE 
1990 
2000 
2010 IF 
2020 IF 
2030 IF 


£f(x,y)=2 
IF i=127 THEN £(x,y)=0 
CALL &9804,FNx(x),FNy(y),c(£(x,y)) 


i=240 THEN y=y+1:IF y>6 THEN y=1 
i=241 THEN y=y-1:IF y<1 THEN y=6 
i=242 THEN x=x-1:IF x<1 THEN x=7 
2040 IF i=243 THEN x=x+1:IF x>7 THEN x=1 
2050 IF i=16 THEN FOR i=6 TO 1 STEP-1:FOR 
j=1 TO 7:£(j,i)=0:CALL &9804,FNx(j),FNy(i) 
‚O:NEXT j,i:x=1:y=1 

2060 IF i<>13 THEN 1950 

2070 FOR i=1 TO 7:£fl=0:h(i)=0:z=0:FOR j=1 
TO 6 
2080 
2090 
)=j 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
ELSE 


IF fl THEN £(i,j)=0 
IF £(i,j)=0 THEN £fl=-1 ELSE z=z+t1:h(i 


CALL &9804,FNx(i),FNy(j),c(£(i,j)) 
NEXT j,i 

q=2:zu=0:anf=2-(z MOD 2) 
TAGOFF:m=5:h=0:v=1:G0SUB 2670: £fm=-1 
LOCATE#3,1,23:PRINT#3,SPACE$ (10); 
GOTO 1010 


REM KRKKKKEAARRRRNN 
REM % Computer Zug % 
REM KAHKRHRKKERELEIK 


IF zu=0 AND £fm=0 THEN z=INT(RND*7)+1 
GOSUB 2260 

2220 IF s(1)<2 THEN RETURN 

2230 PRINT CHR$(T7);:CALL &9804,FNx(z),FNy( 
7),c(1)+4 

2240 t!=TIME+600:WHILE t!>TIME:WEND 

2250 RETURN 

2260 : 

2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 


REM KCEHEEKCHEEKHEHHEEHEEHEK 
REM % besten Zug ermitteln % 
REM KKKKKHKCKEHHKKKHHCEKHHH 


IF q=1 THEN x=0 ELSE x=3 

z=&A1l00:FOR i=1 TO 7:FOR j=1 TO 8 
POKE z,(£f(i,j) XOR x)*SGN(£(i,j)) 
z=z+1:NEXT j,i 

2350 POKE &A000,s(q):POKE &A138,anf XOR x 
2360 CLS:PEN c(q):PRINT CHR$(10);"Ich ";CH 
R$ (255) ;"berlege..."; 

2370 CALL &9800 

2380 z=PEEK (&AOO2+INT(RND*PEEK (&A001))) 
2390 CLS:RETURN 

2400 : 

2410 
2420 
2430 
2440 : 
2450 CLS:PRINT CHR$(7) ;:t!=TIME+90:WHILE t 
!>TIME:WEND:PRINT CHRS$S (7); 

2460 IF £fl=0 THEN PEN 10:PRINT"Unentschied 
:GOTO 2530 


REM AAKKAHH% 
REM % Ende % 
REM KAKHHH% 


PEN c(fl):IF fd THEN PRINT HEX$ (fl) ;" 
hat gewonnen.'":GOTO 2500 
2480 IF £fl=1 THEN PRINT"Ich habe gewonnen. 
2490 IF £fl=2 THEN PRINT"Sie haben gewonnen 
2500 FOR j=1 TO 4 
2510 CALL &9804,FNx(x),FNy(y),c(£l)+4 
2520 x=x+tdx:y=y+dy:NEXT 
2530 WHILE INKEY$<>"":WEND:WHILE INKEY$="" 
:WEND 
2540 GOTO 270 


2550 


Spiele 


[1687] 
[1630] 
[2821] 
[2255] 


[1284] 
[1024] 
[6060] 


[908] 
[2628] 


[335] 
[2523] 


[2443] 
[396] 
[2688] 
[2103] 
[2377] 
[345] 
[174] 
[850] 
[516] 
[850] 
[174] 
[3555] 


[930] 
[2852] 


[2453] 
[555] 
[174] 
[1394] 
[1322] 
[1394] 
[174] 
[1524] 
[1681] 
[775] 
[1047] 
[1761] 
[4111] 


[477] 
[3154] 
[832] 
[174] 
[701] 
[551] 
[701] 
[174] 
[3647] 


[4147] 
[4877] 
[2798] 
[1764] 
[621] 

[2075] 


[1390] 
[3680] 


[415] 


z [174] 
2560 REM KKSKHEKHEHHHEHEHHH [1169] 
Lo 
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2570 REM % Unterprogramnme % 

2580 REM KEKKKEKKKCKEHEHETET 

2590 : 

2600 ORIGIN 0,0,0,388,48,48:CLG 15:0RIGIN 

0,0,0,640,0,400 

2610 TAG:FOR j=0 TO 6 

2620 IF z=j+1 THEN PLOT -10,0,13 ELSE PLOT 
-10,0,12 

2630 MOVE j*56,66:PRINT CHR$ (246+j); 

2640 NEXT:TAGOFF 

2650 RETURN 

2660 : 

2670 RESTORE 3190:FOR j=1 TO m:READ a,b:NE 

XT 

2680 IF h=0 THEN CALL &BBE4 ELSE CALL &BBE 
4,0 

2690 LOCATE 1,1:TAG:FOR j=1 TO a 

2700 MOVE 412,b-(j-1)*18:DRAWR MAX (LEN (m$ ( 
m,j)),LEN(m$(m,j-1)))*32,0,h 

2710 PLOT 416,b-(j-1)*18-2,v:PRINT m$(n,j) 


2720 MOVE 412,b-(j-1)*18-2:IF j=a THEN DRA 
WR 0,-16,h ELSE DRAWR 0,-18,h 

2730 NEXT: TAGOFF 

2740 MOVE 416,b-a*18:DRAWR LEN(m$ (m,a))*32 
-4,0,h 

2750 RETURN 

2760 : 

2770 REM KKKKKCKCKKKKKKKKCHCHHCHCKKHHHKK 
2780 REM % Maschinenprogramm einlesen % 
2790 REM KKKKKKKKKKKKCKEHHHCHECKHEKKHHH 
2800 : 

2810 RESTORE 3200:DEFINT a-z 

2820 PRINT:PRINT"Bitte warten !" 

2830 PRINT"Maschinenprogramm wird eingeles 
en." 

2840 z=9020:FOR i=0 TO 4:FOR j=0 TO 15 
2850 READ a$:a=VAL("&"+a$) :s=s+a 

2860 POKE &9700+16*i+j,a:NEXT 

2870 READ k:IF s<)>k THEN 2990 

2880 NEXT 

2890 z=9110:0=&9800:c=0 

2900 FOR i=0 TO 78:s=0:FOR j=0 TO 15 

2910 READ a$:a=VAL("&"+a$) :s=s+ta 

2920 POKE o+j,a:NEXT 

2930 CALL &9700,0,16,@c 

2940 READ a$:IF VAL("&"+a$)<>c THEN 2990 
2950 READ k:IF s<>k THEN 2990 

2960 o=0+16:NEXT 

2970 PRINT" O.k.":RESTORE 

2980 RETURN 

2990 z=z+10*i 

3000 PRINT:PRINT"Fehler in Zeile";z 

3010 PRINT"Bitte korrigieren !" 

3020 PRINT:CLEAR 

3030 END 

3040 : 

3050 REM KK 

3060 REM % Daten % 

3070 REM %K%%4%%%% 

3080 : 

3090 DATA 010,110,010,010,111,111,001,111, 
100,111,111,001,011,001,111 

3100 DATA 101,101,111,001,001,111,100,111, 
001,111,111,100,111,101,111 

3110 DATA 111,001,010,010,010 

3120: 

3130 DATA Tip,.,,‚Zug,zur]ck-,spielen,‚Wechse 
l,,,Spiel-,stufen, [ndern 

3140 DATA Feld,manipu-,lieren,Deno,, 

3150 : 

3160 DATA 0,13,6,24,0,13,6,3,24,12,-6,0,-3 
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[1739] 
[1169] 
[174] 

[2396] 


[440] 
[2160] 


[1324] 
[893] 
[555] 
[174] 
[2518] 


[2660] 


[876] 
[4367] 


[2959] 


[2439] 


[893] 
[3103] 


[555] 
[174] 
[1672] 
[1748] 
[1672] 
[174] 
[1432] 
[1820] 
[3158] 


[1699] 
[896] 
[2328] 
[1695] 
[350] 
[910] 
[1057] 
[896] 
[968] 
[1162] 
[1705] 
[1695] 
[908] 
[985] 
[555] 
[684] 
[2519] 
[2983] 
[557] 
[110] 
[174] 
[598] 
[708] 
[598] 
[174] 
[2315] 


[2780] 


[1094] 
[174] 
[2823] 


[965] 
[174] 
[3664] 


»0,-24,0,-12,0,15,4,7,14,-26,0,1 

3170 DATA 0,18,9,26,0,20,9,5,24,19,-9,0,-5 [3112] 
‚0,-24,0,-19,0,15,11,26,6,-26,0,14 

3180 : [174] 
En DATA 1,334,3,302,1,234,3,202,3,134,1, [1903] 


3200 : [174] 
3210 REM KKKKKKKCKKKAKHHHCHELCH [1239] 
3220 REM % Maschinenprogranm % [1202] 
3230 REM KAKKKKKKKKKKKHHHHEHCH [1239] 
3240 : [174] 
3250 REM prc [363] 


3260 DATA FE,03,C0,DD,6E,00,DD,66,01,DD,4E [1755] 
‚02,DD,46,03,DD,1920 

3270 DATA 5E,04,DD,56,05,7E,23,66,6F,C5,1A [3205] 
‚4F,06,08,CB,11,3240 

3280 DATA 1F,AC,E6,80,28,09,7C,EE,08,67,7D [2488] 
‚EE,10,6F,37,ED,5105 

3290 DATA 6A,10,EB,13,C1,0B,79,B0,20,DF,DD [3808] 
‚5E,00,DD,56,01,6860 

3300 DATA EB,73,23,72,C9,00,00,00,00,00,00 [1189] 
‚00,00,00,00,00,7560 

3310 : [174] 

3320 REM $9800-$9CEF [771} 

3330 DATA 18,0A,18,03,C3,C1,9B,21,1F,98,18 [4155] 
‚03,21,79,98,E5,337C,1382 

3340 DATA F3,08,D9,E1,C5,F5,CD,53,9C,F1,C1 [2228] 
‚D9,08,FB,C9,FD,9050,2943 

3350 DATA 21,00,A1,DD,E5,CD,B9,99,DD,E1,DD [3844] 
‚6E,08,DD,66,09,7F45,2304 

3360 DATA 77,23,77,3D,F8,36,00,79,CD,6C,98 [3075] 
‚14,1C,DD,6E,04,BB38,1605 

3370 DATA DD,66,05,7B,CD,66,98,DD,6E,06,DD [3454] 
‚66,07,7A,CD,66,B84F, 2006 

3380 DATA 98,78,CD,6C,98,DD,6E,00,DD,66,01 [3366] 
‚7B,CD,66,98,DD,2C58,2195 

3390 DATA 6E,02,DD,66,03,7A,77,23,07,9F,77 [3376] 
‚C9,F5,E6,07,5F,DC99,1777 

3400 DATA F1,CB,2F,CB,2F,CB,2F,57,C9,FD,21 [2137] 
‚00,A1,FD,36,39,1182,2090 

3410 DATA 01,AF,32,01,A0,21,CB,98,CD,48,9B [3540] 
‚3A,01,A0,B7,C0,9B6B,1801 

3420 DATA CD,EC,98,21,00,00,E5,21,40,A1,01 [3482] 
‚01,07,FD,CB,3C,D969,1638 

3430 DATA 06,30,21,5E,23,56,2B,E3,EB,CD,4C [4047] 
‚9C,EB,E3,38,14,7537,1782 

3440 DATA 3A,01,A0,28,01,AF,E5,3C,32,01,AO [3251] 
‚3C,6F,26,A0,71,46F7,1417 

3450 DATA E1,EB,E3,EB,23,23,0C,10,D4,E1,C9 [4726] 
‚FE,03,C0,7B,CD,4DBD, 2435 

3460 DATA 37,9C,D8,3E,F8,A3,0F,OF,OF,3C,4F [2479] 
‚3A,01,A0,B7,28,1B5B,1526 

3470 DATA 03,7C,B7,C8,21,01,A0,36,01,23,71 [3356] 
‚c9,CD,B9,99,B7,7C15,1834 

3480 DATA FA,03,99,FD,36,3C,00,CA,DF,99,D6 [3269] 
‚02,FD,77,3A,FD,8523,2250 

3490 DATA 77,3B,C9,FD,E5,E1,11,40,00,19,E5 [1424] 
‚lE,10,19,FD,56,3133,1831 

3500 DATA 39,1E,00,06,07,C5,D5,FD,E5,E3,5D [2098] 
‚54,01,50,00,FD,9B94,1730 

3510 DATA 7E,39,EE,03,09,FD,09,EB,OE,39,ED [4593] 
‚BO,12,E1,D1,0E,3955,1880 

3520 DATA 07,7E,23,0D,28,23,B7,20,F8,2B,72 [2905] 
‚23,0D,20,FC,23,4054,1243 

3530 DATA 23,37,CB,13,3A,00,A0,E5,D5,B7,20 [2834] 
‚12,CD,DF,99,D1,4693,1995 

3540 DATA El,FD,4E,3A,FD,46,3B,18,45,CB,03 [3727] 
‚23,18,40,3D,32,FEDE,1529 

3550 DATA 00,AO,CD,EC,98,21,00,A0,34,FD, TE [3499] 
‚3C,B7,28,E0,57,7287,1971 

3560 DATA FD,7E,39,4F,D6,02,2F,67,6F,7A,06 [2912] 
‚07,FD,E5,E3,11,AB72,1853 
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3570 DATA 40,00,19,5E,23,56,23,07,30,0F,E3 
‚08,CD,4C,9C,CB,FFA6,1284 

3580 DATA 41,20,01,3F,30,01,EB,E3,08,10,E8 
‚C1,D1,E1,DD,E1,F1FA,2001 

3590 DATA E3,71,23,70,23,E3,01,BO,FF,FD,09 
‚DD,E5,C1,05,C2,F270,2285 

3600 DATA 15,99,CB,03,FD,73,3C,E1,C9,AF,08 
‚21,D2,99,CD,48,B3F7,2090 

3610 DATA 9B,08,D9,B7,C0,FD,E5,E1,06,38,86 
‚23,10,FC,FE,3F,EB9IA, 2278 

3620 DATA 9F,C9,FE,04,C0,7A,08,D1,E1,C1,C5 
‚E5,D5,D9,C9,21,9B91,2657 

3630 DATA 00,80,11,54,9C,AF,F5,CD,43,9C,28 
‚11,47,1A,E6,0F,348C,1632 

3640 DATA 07,D5,16,00,05,28,03,ED,44,15,5F 
‚19,D1,F1,13,C6,4868,1403 

3650 DATA 08,FE,36,38,E1,E6,07,3C,FE,06,38 
‚DA,08,D9,21,C3,722A,1881 

3660 DATA 9A,CD,48,9B,FD,E5,E1,16,00,06,07 
‚C5,3E,20,A2,57,D39C,1868 

3670 DATA OE,00,7E,E6,03,28,05,23,0C,14,18 
‚F6,79,FE,06,28,E496,1176 

3680 DATA 1A,7E,B7,28,10,06,02,07,F5,DC,64 
‚9A,F1,05,07,DC,B900,1598 

3690 DATA 64,9A,7E,B2,57,23,0C,CB,DA,18,El 
‚23,23,C1,10,CB,B4D0,1844 

3700 DATA FD,E5,E1,06,38,7E,E6,03,77,23,10 
‚F9,D9,FD,75,3A,4B39,2192 

3710 DATA FD,74,3B,C9,CB,5A,20,12,FD,7E,39 
‚B8,1E,04,28,42,BB71,1732 

3720 DATA CB,6A,20,3E,1E,00,CB,EA,18,38,2B 
‚ 1E,23,07,07,A0,6B28,1328 

3730 DATA 28,1F,7A,CB,40,20,01,07,07,38,16 
‚1E,03,CB,40,28,94CA,925 

3740 DATA 21, 7A,E6,07,28,1C,D9,11,E8,03,19 
‚3D,20,FC,D9,18,FA8B,1540 

3750 DATA 11,CB,62,1E,01,20,0B,FD, 7E,38,A8 
‚A9,EE,01,E6,01,EA90,1634 

3760 DATA 3C,5F,7B,FE,02,38,02,CB,E2,CB,23 
‚18,1F,83,C6,0E,B713,1753 

3770 DATA 5F,18,15,FE,03,28,75,30,02,05,C8 
‚FE,02,28,1B,E6,D67D,1362 

3780 DATA 04,0F,5F,CB,42,20,01,1C,7B,D9,EB 
‚07,21,7E,9C,4F,B3B4,1420 

3790 DATA 06,00,09,4E,23,46,EB,09,D9,C9,06 
‚01,3A,20,A0,CD,9DB7,1322 

3800 DATA 37,9C,38,05,04,3A,21,A0,5F,3A,21 
‚A0O,CD,37,9C,38,CAAB,1345 

3810 DATA 05,04,3A,20,A0,5F,4B,5A,05,20,06 
‚3E,05,83,5F,18,0F8D,879 

3820 DATA C7,05,20,10,FD,7E,38,A9,AB,EE,Ol 
‚E6,01,07,C6,07,7577,1709 

3830 DATA 83,5F,18,B4,7B,FD,BE,39,28,09,08 
‚3F,3F,08,C6,03,0F46,1445 

3840 DATA 5F,18,A5,08,30,F6,08,C6,0B,5F,18 
| „9C,7A,OF,OF,FD,33E1,1483 

3850 DATA E5S,E1,16,00,19,B6,77,C9,11,54,9C 
‚0E,00,1A,06,F9,E8CB,1555 

| 3860 DATA 07,DC,78,9B,06,01,07,DC,78,9B,06 
| »09,07,DC,78,9B,1659,1528 

3870 DATA 06,08,07,DC,78,9B,13,3E,08,81,4F 
‚FE,36,38,DE,E6,CB8C,1629 

3880 DATA 07,3C,4F,FE,06,38,D6,C9,F5,D5,C5 
‚E5,21,00,00,DD,F430,2015 

3890 DATA 21,20,A0,1E,04,79,CD,43,9C,FE,01 
‚30,06,51,DD,71,FF64,1532 

3900 DATA 00,DD,23,20,02,24,37,38,01,2C,79 
‚80,4F,1D,20,E5,7EEA,1100 

3910 DATA 5A,7C,FE,01,9F,57,7D,FE,01,9F,AA 
‚28,0F,16,01,AF,6052,1677 

3920 DATA B4,20,01,14,B5,DD,E1,DD,E5,CD,52 


‚9C,E1,C1,D1,F1,5019,2621 
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[2197] 
[2337] 
[3585] 
[4290] 
[3025] 
[2519] 
[2531] 
[3995] 
[3359] 
[2313] 
[3253] 
[2875] 
[4284] 
[3210] 
[3540] 
[3125] 
[3025] 
[3338] 
[2901] 
[3005] 


[3022] 
[3170] 
[2653] 
[3149] 
[3428] 
[3881] 
[2365] 
[3403] 
[2401] 
[3213] 
[2765] 
[3124] 
[2520] 
[3350] 
[2494] 
[2225] 


3930 DATA C9,DD,7E,00,CD,2C,BC,E6,55,32,20 
‚AO,DD,6E,02,DD,A7E8,2096 

3940 DATA 66,03,DD,5E,04,DD,56,05,CD,1D,BC 
‚11,AE,9C,06,16,0B12,1533 

3950 DATA C5,E5,CD,ED,9B,E1,C1,CD,26,BC,10 
‚F4,C9,01,C0,05,A554,2531 

3960 DATA 7E,E5,F5,0F,CD,05,9C,07,6F,F1,CD 
‚05,9C,B5,E1,77,7BE3,2231 

3970 DATA 23,10,ED,13,C9,E6,55,DD,CB,01,46 
,20,1C,FE,55,28,E71C,1757 

3980 DATA OD,1A,A1,3A,20,A0,28,06,CB,FT,EA 
‚1E,9C,AF,FE,40,6704,1859 

3990 DATA 28,FB,CB,09,CB,09,D0,13,C9,E5,6F 
‚lA,A1l,TD,El,E2,2FC1,2246 

4000 DATA 1E,9C,3A,20,A0,18,E7,4F,E6,07,C8 
:179,3D,CD,43,9C,13F0,1817 

4010 DATA C0,37,C9,32,48,9C,FD,7E,00,E6,03 
‚C9,7C,92,C0,7D,D845,2126 

4020 DATA 93,C9,DD,E9,72,73,74,F6,C4,C3,C2 
‚,12,74,76,F8,C6,BCCA,2772 

4030 DATA C4,C2,72,75,78,FA,C8,C5,C2,12,15 
‚18,1A,08,05,02,1529,1686 

4040 DATA 12,14,16,18,06,04,02,12,13,14,16 
‚04,03,02,03,00,D5EE,187 

4050 DATA FD,FF,4C,1D,B4,E2,0A,00,F6,FF,32 
‚00,CE,FF,4B,00,B914,2116 

4060 DATA B5,FF,6E,00,92,FF,DC,00,24,FF,00 
‚00,00,00,64,00,3108,1558 

4070 DATA 9C,FF,F4,01,0C,FE,D0,07,30,F8,AC 
‚0D,54,F2,55,55,01AC, 2114 

4080 DATA 50,55,55,50,54,01,50,50,00,50,40 
‚00,10,40,00,10,4548,815 

4090 DATA 4C,C0,10,0F,C0,00,0F,C0,00,0C,C0 
‚00,0C,F3,00,0C,D48F,1169 

4100 DATA F3,00,00,3C,00,00,3C,00,00,33,00 
‚40,33,10,40,00,3378,609 

4110 DATA 10,40,00,10,50,00,50,54,01,50,55 
‚55,50,55,55,50,136C,921 

4120 : 
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[2157] 
[3382] 
[3362] 
[3100] 
[2768] 
[3073] 
[2630] 
[2600] 
[3482] 
[3625] 


[2392] 


[3037] 
[1860] 
[2588] 
[3944] 
[2808] 
[3880] 
[2819] 
[2689] 
[174] 
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Hier »Zocken« die Großmeister, denn Geld spielt keine Rolle 


Setzen Sie sich zusammen mit Sam Einauge, Whiskey Kid, 
Postkutschen Ede und Revolver Joe in den Saloon und ver- 
spielen Ihr ganzes erspartes Vermögen — oder werden an 
einem Abend Millionär! 


Alles, was Sie dazu brauchen sind starke Nerven, 20.000 Dol- 
lar in bar, einen CPC 464/6128 und natürlich ein steinhartes Po- 
kerface. 


SPIELREGELN 


Im Saloon gelten folgende dem Original Draw-Poker etwas ab- 
gewandelte Regeln: Gespielt wird mit einem französischen Kar- 
tenspiel aus 52 Karten plus einem Joker. Jeder Spieler zahlt zu- 
nächst 100$ in den Pott und erhält dafür 5 Karten. Nun beginnt 
die erste Wettrunde. 

Spieler 1 (links vom Kartengeber) macht einen beliebigen Ein- 
satz in den Pott. Hat er sehr schlechte Karten, kann er auch pas- 
sen und scheidet damit für dieses Spiel aus. In diesem Fall macht 
dann der nächste Spieler den Ersteinsatz, usw. Für die nachfol- 
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genden Spieler gibt es dann jeweils drei Möglichkeiten: 

— Passen: 

Man zahlt nichts (mehr) in den Pott und scheidet für dieses Spiel 
aus. 

— Halten: 

Man zahlt den zuletzt gebotenen Betrag in den Pott und bleibt 
damit weiter im Spiel. 

— Erhöhen: 

Man zahlt mehr als den zuletzt gebotenen Betrag in den Pott. 
Alle folgenden Spieler müssen nun, um im Spiel zu bleiben, 
mindestens genausoviel zahlen. 

Eine Wettrunde dauert so lange bis ein Spieler erhöht, und dar- 
aufhin alle anderen Spieler entweder passen oder halten, aber 
nicht mehr weiter erhöhen. Anschließend an die erste Wettrunde 
darf jeder noch im Spiel befindliche Spieler beliebig viele sei- 
ner Karten (0-5) umtauschen. Pro umgetauschter Karte muß 
er 50$ in den Pott zahlen. Er erhält damit die Möglichkeit sein 
Blatt zu verbessern. Jetzt beginnt die zweite Wettrunde, die ge- 
nauso verläuft wie die erste. Danach vergleichen alle noch 
übriggebliebenen Spieler ihre Karten. Der Spieler mit dem be- 
sten Blatt gewinnt den gesamten Inhalt des Potts. Die Blätter (aus 
jeweils 5 Karten) werden dabei jeweils einer der folgenden Gat- 
tungen zugeordnet, wobei jede Gattung die jeweils darunterlie- 
genden schlägt: 


1. Five ofa Kind: fünf gleiche Karten (z.B. vier Buben und der 
Joker) 
2.Straight Flush: Sequenz in einer Farbe (z.B. Pik 
A-K-D-B-10) 
Four of a Kind: vier gleiche Karten (z.B. vier Asse) 
. Full House: drei und zwei gleiche Karten (z.B. drei Damen 
und zwei Achter) 
5. Flush: Alle Karten in der gleichen Farbe (z.B fünf Herzkar- 
ten) 
6. Straight: gemischte Sequenz (z.B. 8-7-6-5-4 in unterschied- 
lichen Farben) 
7. Skip Straight: wie Straight, jedoch in Zweierabständen (z.B. 
D-10-8-6-4) 
8. Round the Corner Straight: wie Straight, jedoch As in der 
Mitte (z.B. 2-A-K-D-B) 
9. Three of a Kind: drei gleiche Karten (z.B. drei Dreier) 
10. Blaze: Nur »Bilder« (Buben, Damen und Könige) 
ll. Two Pairs: Zwei Paare (z.B. zwei Siebener und zwei Zweier) 
12. Four Flush: Vier Karten in der gleichen Farbe (z.B. vier 
Karo, eine Kreuzkarte) 
13. One Pair: Ein Paar (z.B. zwei Könige) 
14. No Pair: Keine der genannten Kombinationen 


Bw 


Der Joker kann dabei an die Stelle einer beliebigen Karte tre- 
ten, wodurch eventuell eine höhere Kartenkombination erreicht 
werden kann. Haben beim Vergleich mehrere Spieler Blätter 
derselben Gattung, können diese folgendermaßen in der ange- 
gebenen Hierarchie (von oben nach unten) weiter unterschie- 
den werden: 


1. Kombinationen mit Joker gelten stets weniger als gleichwer- 
tige ohne Joker. 

2. Der höchste Kartenwert innerhalb der Kombination (z.B. 

des Paares bei One Pair) gewinnt. Ist auch dieser gleich, ge- 

winnt der zweithöchste, usw. 

Sind alle Karten innerhalb der Kombination gleichwertig, 

so gewinnt die höchste/zweithöchste/ usw. Einzelkarte (au- 

Berhalb der Kombination) 

4. Sind auch alle Einzelkarten gleich, entscheidet schließlich 
die Farbe der höchsten Karte im Blatt. Reihenfolge der Kar- 


Hua 


Sonderheft 5’87 


tenwerte (von links nach rechts abnehmend): 
A-K-D-B-10-9-8-7-6-5-4-3-2 

Reihenfolge der Farben (von links nach rechts abnehmend): 
Pik — Herz — Karo — Kreuz 


Sonderregel: 
Bei Flush (nicht bei Four Flush) entscheidet zunächst die Far- 
be, dann erst (bei gleicher Farbe) die höchste Karte. 


PROGRAMMABLAUF 


Zunächst werden Ihnen Ihre vier Mitspieler vorgestellt. Geben 
dann auch Sie Ihren Namen ein (max. 16 Buchstaben). Nun 
kann das Spiel beginnen... Alle wichtigen Informationen über 
den Spielverlauf erscheinen in einem Fenster im unteren Bild- 
schirmbereich. Darüber steht jeweils der augenblickliche In- 
halt des Potts, sowie während einer Wettrunde der zuletzt ge- 
botene Einsatz. In der oberen Bildschirmhälfte werden Ihre Kar- 
ten angezeigt. Wenn ein tiefer Ton ertönt, wartet das Programm 
so lange, bis Sie die Leertaste drücken. Ein hoher Ton signali- 
siert einen Eingabefehler. Wiederholen Sie dann Ihre letzte Ein- 
gabe. Um abzuheben, geben Sie einfach ein, wieviele Karten 
des Stoßes Sie hochheben wollen (0-52). Bei der Frage nach 
Ihrem Einsatz können Sie entweder passen, indem Sie weniger 
als den zuletzt gebotenen Betrag setzen (sinnvollerweise 0$), 
oder halten, indem Sie genausoviel zahlen, oder erhöhen, in- 
dem Sie mehr bieten. Wenn Sie Karten umtauschen wollen, 
müssen Sie eine Ziffernfolge aus den Nummern der gewünsch- 
ten Karten eingeben, wobei die Karten von links nach rechts von 
1 bis 5 durchnumeriert zu denken sind. Schreiben Sie die ein- 
zelnen Ziffern direkt hintereinander (ohne Trennzeichen) und 
drücken die ENTER-Taste zum Abschluß. Beispiel: Bei der Ein- 
gabe »125« würden die erste, zweite und letzte Karte umgetauscht 
werden. Wenn Sie nicht umtauschen wollen, machen Sie ein- 
fach eine leere Eingabe. 

Zum Schluß eines Spiels müssen alle übriggebliebenen Spie- 
ler ihre Karten aufdecken. Dabei werden jeweils die Blätter 
zweier Spieler miteinander verglichen, bis schließlich der Sieger 
feststeht. Jeder Spieler bringt von zu Hause 20.000$ in bar mit, 
kann aber während des Spiels noch Schulden machen. Wenn je- 
mand allerdings zu viel verliert, kann es passieren, daß seine 
Mitspieler Ihm nicht mehr trauen (kann er seine Schulden denn 
zurückzahlen?) und deshalb nicht weiter mitspielen lassen. 
Selbstverständlich können Sie jederzeit aus dem Spiel ausstei- 
gen, wenn Sie glauben, nun genug gewonnen oder verloren zu 
haben. Dazu müssen Sie nur zweimal die ESC-Taste drücken. 
Und nun viel Spaß, und 

Don’t loose your wife in Poker-Game! 


VARIABLENLISTE 


a,b Hilfsvariablen für unterschiedliche Zwecke 
as Anzahl der Spieler während einer Wettrunde 


brk Belegung der ESC-Taste während INPUT (&FF bei 
CPC 464, &FC bei CPC 6128, Abfrage Computer- 
typ automatisch) Abstand zweier Kartenwerte bei 
Prüfung auf Straight (1 für Straight, 2 für Skip- 
Straight) 

e Hilfsvariable für INPUT und »Karten sortieren« 

f Art des Blatts (0: No Pair, 1: One Pair, usw.) / Far- 
be bei »Karten anzeigen« 

fe gibt an, wann zuletzt erhöht wurde 

fj ' Flag für Joker 
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zs 
a$,b$, 


a(x), 


k(x) 
f(x) 
169) 
m(x) 
PX) 
S(K,y) 
u(x) 


n$(x) 


Spiele 


allgem. Flag 
Flag für Scroll (beim Kartenvergleich) / Flag für 
Straight (bei »Karten sortieren«) 
Flags, ob durch Umtausch einer Karte eventuell 
Straight zu erreichen ist 
Schleifenvariablen 
Schleifen- und Zählvariable 
Zählvariable beim Kartenverteilen, Anfangswert: 
Anzahl abgehobener Karten 
Zählvariable / Hilfsvariable bei »Karten anzeigen« 
Geld im Pott 
Flag, ob es sich beim Kartenvergleich um das erste 
Blatt handelt 
Wert eines Blattes 
Stelle, an der sich im Blatt ein Paar oder Drilling 
befindet 
Hilfsvariablen für RND 
Spielernummer 
Spieler, der Wettrunde eröffnet 
Kartengeber 
Hilfsvariable für Warteschleifen 
Karte, die umgetauscht werden soll 
Hilfsvariable in Verbindung mit u 
Anzahl der Karten, die für mögl. Straight umge- 
tauscht werden müßten 
Hilfsvariable für WINDOW 
Nr. der Wettrunde (1 oder 2)x Hilfsvariable für 
Cursorpositionierung 
Zählvariable beim Kartengeben / Einsatz eines 
Spielers 
Wert des höchsten Blattes beim Kartenvergleich / 
gebotener Betrag bei Wettrunde 
Spieler mit dem besten Blatt 
Hilfsvariablen für unter- c$,i$schiedliche Zwecke 
Arbeitsspeicher für je ein 
b(x) Blatt aus 5 Karten 
Kartenstoß 
Strategie des Spielers x 
Höchsteinsatz des Spielers x 
Geld des Spielers x 
Wert d. Karten des Spielers x 
Karten des Spielers x 
umzut. Karte des Spielers x 
Name des Spielers x 
(Michael Knaup) 
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1000 : [174) 
T 464-664- 1001 REM XXXSKSRRRRRaH E38 [1043] 
fur 6128 1002 REM % Hauptprogramm % [1350) 
1003 REM ZART [1043) 

1004 : [174] 
1010 FOR j=0 TO &:PAPER#3,0:CLS#j:NEXT [1997] 
1020 WINDOW SWAP 1,0:PEN 1:s5p0=sp:ur=0 [2622) 

1030 FOR j=1 105 [624] 
REM %RVVVVVTHTTT INT N TV Ve Ve [1239] 1040 s=-j*(j(5):IF m({s)=-1 THEN 1070 [1966] 
REM x [378] 1050 m(s)=m(s)-100:m=m+100 [928] 
REM xx*% POKER *x% [704] 1060 PRINT n$({s),USING'SSHHHR,Ah#+";m(s) [1495) 
REM [378] 1070 NEXT:WINDOW SWAP 1,0 [1765] 
REM September 1986 [1439] 1080 60SUB 8100 [820] 
REM [378] 1090 LOCATE#2,1,2:PEN#2,3 [1406] 
2272277 27777777777777 [1239] 1100 PRINT#2,n$(sp);" mischt.'; [1789) 
8: [174] 1110 k(0)=0:FOR j=1 TO 52 [1664] 
10 REM Version: keine Steuercodes [1386] 1120 K(j)=j+3:NEXT [794) 
11: [176] 1130 FOR j=0 TO 52 [573] 
20 PRINT:PRINT"Farbmonitor [j/n] ? ";CHRs [3544] 1140 r=INT(RND*53):a=sk(j):k(j)=k(r):k(r)=a [1968] 
(143) ;CHRS (8); 1150 NEXT:t=TIME+300:WHILE t)TIME:WEND (2738) 
30 WHILE is()"5j" AND i$C)"'n":is$=LOWERS(INK [3976] 1160 a=sp:60SUB 8250 [1503) 


EYS$) :WEND 

40 IF i$="j" THEN PRINT"ja";:RESTORE 10200 [2093] 
ELSE PRINT"nein":RESTORE 10210 

50 SYMBOL AFTER 252:RANDOMIZE TIME:GOSUB 8 [1911] 

600 

60 DIM s(4,5),a(5),b(5),K(52),n$(4),m(4),f [2397] 
(4), 1(4),u(4),p(4) 

70 SYMBOL 252,&7C,&C6,8&C6,&DC,&C6,&C6,&D8, [2153] 

&C0 


1170 LOCATE#2,1,2:PRINT#2,CHR$(18);n$(a);" [3567] 
hebt ab'; 

1180 ON S6GN(a)+1 GOSUB 2000, 3000 [687] 
1190 LOCATE#2,1,2:PRINT#2,CHR$(18);n$(sp); [4624) 
ITESLIELEUE, > 

1200 a=sp:FOR j=1 T0 5 [1634] 
1210 G60SUB 8200 [1040] 
1220 s(a,j)=k(ka):ka=ska+i:IF ka)52 THEN ka [1937] 
=0 


80 SYMBOL 253,&66,&0,&78,&0,&7C,&CC,&76,&0 [2423] 1250 IF a()sp THEN 1210 [542] 
90 SYMBOL 254,&66,&0,&3C0,&66,&66,&66,&3C,& [2711] 1240 NEXT [350] 
1) 1250 GOSUB 8200 [1040] 
100 SYMBOL 255,&66,&0,&66,&66,&66,&66,&3E, [1989] 1260 ON S6Nla)+1 GOSUB 2100, 3100 [807] 
&0 1270 IF a()sp THEN 1250 [502] 
110 MODE 1:INK 0,0:INK 1,0:INK 2,0:INK 3,0 [4361] 1280 G0SUB 5000 [883] 
:BORDER O 1290 IF as=0 THEN 1800 [388] 


1300 a=sp:LOCATE#2,1,2:PRINT#2,n$(sp0);" t [6278] 
eilt aus." 


120 PAPER 0:CLS:WINDOW#1,13,27,4,8:PAPER#1 [4419] 
‚2:PEN#1,3:CLS#1 


130 LOCATE#1,4,3:PRINT#1,"PO KE R" [1448] 1310 G60SUB 8200:IF f(a)=-1 THEN 1390 [1727) 
140 ORIGIN 192,270 [385] 1320 ON S6N(a)+1 GOSUB 2300, 3300 [596) 
150 FOR j=1 TO 100 [769] 1330 yv=0:FOR j=1 TO 5 [767] 


160 a=INT(RND*238):b=INT(RND*78) [2506) 
170 PLOT a,b,0:PLOT a+2,b:PLOT a,b+2:PLOT (3206) 
a+2,b+2 

180 NEXT:FOR j=1 TO 3:READ a:INK j,a:NEXT [4146] 
190 PEN 1:LOCATE 9,25:PRINT CHR$(164);" 19 [4537) 
86 by Michael Knaup" 


1340 IF b(j)=1 THEN s(a,j)=kK(ka):ka=ska+l:y [2596] 
=y+1:IF ka)52 THEN ka=0 

1350 NEXT [350) 
1360 PEN#1,1:PRINT#1,n$(a);" kauft"’;y;CHR$ [2742] 
(BITTE | 
1370 m(a)=m(a)-50*y:m=m+50*y:60SUB 8100 [1331] 


200 PEN 3:LOCATE 1,12:PRINT"Es spielen:":P [3393] 1380 ON S6N(a)+1 GOSUB 2100,3500 [791] 
EN 1:PRINT 1390 IF a)sp THEN 1310 [546] 
210 RESTORE:FOR j=1 TO &4 [1107] 1400 G0SUB 5000 [883] 
220 READ n$(j):PRINT n$(j):m(j)=20000 [1637] 1410 IF as=0 THEN 1800 [388] 
230 NEXT:PRINT:PEN 3:PRINT"und"; [2162] 1500 CLS [91] 
240 PEN 1:INPUT" "‚nsins=" "+LOWERS(LEFTS( [3144] 1510 ob=1:FOR i=0 TO 4 [586] 
n$,16)) 1520 IF mli)=-1 OR fli)=-1 THEN 1740 [2570] 
250 FOR j=1 TO LEN(n$) [852] 1530 IF ob=1 THEN ob=0:x=1:60SUB 8500:z2=p: [1571] 
260 IF MID$(n$,j,1)=" " THEN n$=LEFTS(ns,j [5248] 2s=i:60T0 1740 

I+UPPER$(MIDS(n$, j+1,1))+MID$ (n$, j+2) 1540 x=13:605UB 8500:fs=0 [1957] 
270 NEXT:n$=MID$(n$,2) [1589) 1550 IF p(z THEN 1700 [582] 
280 LOCATE 5,19:PRINT CHR$(18) ;n$ [2432] 1560 IF o)z THEN 1690 [1191] 


290 PEN 2:PRINT:PRINT'Tiefer Ton = Leertas [4571] 
te dr" ;CHR$(255);"cken.”" 
300 PRINT" Hoher Ton = Eingabe wiederholen [4150] 


1570 FOR j=1 TO 5:alj)=s(zs,j):b(j)=s(i,j) [2382] 
ıNEXT 
1580 FOR j=1 TO 4: FOR k=j+1 TO 5 [1435] 
1590 IF alj)(a(k) THEN a=alj):alj)=zalk):al [1476) 
k)=a 


310 n$(O)=n$:m(0)=20000 (923) 


320 GOSUB 8000:sp=1:bl=0:ZONE 18 [3394] 1600 IF b(j){b(k) THEN a=b(j):b(j)=b(kK):b( [1093] 
330 WINDOW#1,1,40,18,22:WINDOW#2,1,40,24,2 [3100] NIE 

5 1610 NEXT k,j [371] 
340 WINDOW#3,1,20,16,16:WINDOW#4,21,40,16, [2516] 1620 fl=0:FOR j=1 T05 [776) 


16 
350 ON BREAK 60SUB 8700 [561] 


1630 IF INT(alj)/4))INT(D(3)/4) THEN fl=1: [1934] 
3=5 
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1640 IF INT(alj)/4)CINT(D(3)/&) THEN fl=-ı1 [1731] 
HEN 4 


1650 NEXT [350] 

1660 IF fl=1 THEN 1700 [471] 

1670 IF fl=-1 THEN 1690 (594) 

1680 IF a(1))b(1) THEN 1700 [1184] 
1690 z=p:28=i:fs=1 [895] 

1700 PRINT n$(zs);" gewinnt." [2559] 
1710 G0SUB 8000 [824] 

1720 IF fs=1 THEN PRINT STRING$(12,10); [1822) 
1730 LOCATE 1,13:PRINT CHRS$(20); [1740] 
1740 NEXT:sp=zs [676) 

1800 as=FNds(m,"SsHHnk,Khh") (888) 

1810 a$=MID$s(as,INSTR(a$,"s")) [1229) 
1820 LOCATE 1,16:PEN 3:PRINT CHR$(20);n$(s [3995] 
P};" gewinnt ";:PEN 1:PRINT a$;"." 

1830 m(sp)=m(sp)+m:m=0 [801] 

1840 IF m(0)(-10000-2000*RND THEN 1950 [1200] 
1850 PEN#1,1:FOR j=1 TO 4 (603) 

1860 IF m{j)(-10000-2000*RND THEN m(j)=-1: [3315] 
PRINT#1,n$(j);" steigt aus." 

1870 NEXT [350] 

1880 a=sp0:60SUB 8200:sp=a:60SUB 8000 [2626] 


1890 IF m(i)()-1 OR m{2)C)-1 OR m{3)()-1 0 [2549) 
| R m(#)()-1 THEN 1000 

\ 1900 CLS:PEN 3:PRINT"Herzlichen Gl’;CHR$(2 [2987] 
| 55);"ckwunsch !" 

1910 as=FNnd$s(m(0)-20000, "ssH#nk, #4" ):as=M [2953] 
1D$(a$s, INSTR(a$,"$")) 

1920 PEN 1:PRINT CHR$(10);"Du hast heute " [4790] 
sa$;" gewonnen.” 

1930 PRINT" (Schade, da";CHR$(252);" das Ge [4285] 
| 1d gef" ;CHR$(253);"lscht ist)" 

1940 60T0 1970 ; (337) 
1950 GOSUB 8000:CLS:PEN 1 [2291] 
1960 PRINT'Du hast nun alles verspielt,":P [8740] 
| RINT CHR$(10);"Haus und Hof, Hund und Pfer 
| daR 

1970 PRINT:PRINT'Wir bedanken uns f";CHR$( [3219] 
| 255);"r"s mitspielen !" 

1980 PRINT:PRINT:PRINT:SYMBOL AFTER 256:CL [3134] 
| EAR 


1990 END [110] 
2000 : [174] 
2001 REM XXX 2ı%% [897] 
2002 REM % Spieler % [1355] 
2003 REM X ı% [897] 


2004 : [174] 

2010 WINDOW SWAP 0,2:x=P0S(#0) [1962] 
2020 LOCATE x,2:PRINT" [0-52]: ";:60SUB 88 [3080] 
00:ka=e 

2030 IF ka(0 OR ka)52 OR ka)INT(ka) THEN P [2834] 
| RINT CHR$(7);:60T0 2020 


2040 WINDOW SWAP 0,2 [1026] 
2050 RETURN [555] 
2060 : [174] 
2100 s=0:60SUB 6000:p(0)=p [1744] 
2110 LOCATE 1,1:PEN 3:PRINT n$(0) [810] 
2120 x=2:60SUB 7000 [1107] 
2130 RESTORE 10300 [707] 
2140 FOR j=0 TO INT(p/1000):READ a$s:NEXT:L [2445] 

| OCATE 1,13: PRINT"*** ";ag;" **x".CHR$(18) 

| 2150 a=0:f(0)=0:RETURN [1684] 
2160 : (174) 
2200 x=VPOS(#0) (1712) 


2210 LOCATE 1,x:PEN 3:PRINT CHR$(18);"Dein [3764] 
Einsatz ? '; 

2220 PEN 1:PRINT'$";:605SUB 8800:y=e (1863) 
2230 IF y()ROUND(y,-2) THEN PRINT#2,CHR$(7 [5569] 
);"Kein Kleingeld, ":PRINT#2, "wir spielen u 

m 100$-Scheine !';:60T0 2210 
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2240 
2250 
2260 
2 

2270 
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IF y(z THEN y=0 
IF y)100000 THEN y=100000 


2280 : 


2300 
2310 
usch 
2320 
2330 
2340 
2350 
THEN 
2360 
2370 
2380 


LOCATE 1,x:PEN 1:PRINT CHR$(20);:CL$# 
RETURN 
WINDOW SWAP 0,1:x=VP0S(#0) 


LOCATE 1,x:PEN 3:PRINT CHR$S(18);"Unta 
(pro Karte $50): "; 

PEN 1:60SUB 8800:a$=STR$(e) 

FOR j=1 TO 5:b(j)=0:NEXT 

FOR j=1 TO LEN(a$) 
b=zASC(MID$(a$,j,1))-48:IF ABS(b-3)(3 
b(b)=1 

NEXT:LOCATE 1,x:PEN 1:PRINT CHR$(20); 
WINDOW SWAF 0,1 

RETURN 


2390 : 
3000 : 


3001 
3002 
3003 
3004 
3010 
3020 
3030 
3040 


3100 
3110 


3120 
3130 
URN 

3140 


3200 


3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 


REM ARRRERRIERNT 

REM % Computer % 

REM SSR 

PRINT#2,"." 

ka=INT(RND*53) 
t=TIME+600:WHILE tITIME:WEND 
RETURN 


3050 : 


s=a:60SUB 6000:a=s:p(s)=p:u(s)=u 
IF RND)O.95 OR P)=9000 THEN f(s)=2:1( 


s)=ROUND(4000+1000*RND, -2): RETURN 


IF RND)O.7 OR p)=4000 OR u)O THEN f(s 


)=2:1(s)=ROUND(P/5+1000,-2):RETURN 


IF pt1000 AND RNDIO.5 THEN f(a)=0:RET 


f(s)=1:1(s)=ROUND(p/2+500,-2) 


3150 : 


IF 2(100 THEN y=ROUND(500*RND+200,-2) 


*"f(a):RETURN 


IF f(a)=O THEN y=0:RETURN 

IF f(a)=1 THEN y=-z*(z(=1(a)):RETURN 
IF f(a)=2 AND z)l(a) THEN y=2:RETURN 
y=ROUND(z+(z*RND/2),-2) 

IF y)m(a)+10000 THEN y=m(a)+10000 

IF y)100000 THEN y=100000 

IF y(z THEN y=z 

y=ROUND(y,-2):RETURN 


FOR j=1 TO 5:b(j)=0:NEXT:s=a 
f=INT(p(a)/1000):IF f)3 AND fC)5 AND 


f()11 THEN RETURN 


3320 
3330 
3340 
3350 


j)+1: 


3360 
3370 


3380 


b=j: 


IF ula))O THEN b(u(a))=1:RETURN 

IF f)O THEN 3400 

FOR j=0 TO 3:a(j)=0:NEXT:FOR i=1 TO 5 
IF s(a,i)=O THEN FOR j=0 TO 3:alj)=al 
NEXT:GOTO 3370 

b=s(a,i) MOD 4:a(b)=alb)+1 
NEXT:f1l=0:FOR j=0 TO 3:IF alj)=3 THEN 
fl=z1:j=3 

NEXT:IF fl=1 THEN FOR j=1 TO 5:b(j)=- 


((s(a,j) MOD 4))b AND s(a,j)()O):NEXT:RET 


URN 

3390 a=INT(RND*3)+INT{RND*3)+1:60T0 3410 

3400 a=(f XOR 2) AND 3:IF f()3 AND RND)O.8 
THEN asa-i 

3410 FOR i=5 TO 1 STEP-1 

3420 fl=1:FOR j=1 T0 5 

3430 IF j=i THEN 3450 


3440 IF INT(s(s,i)/4)=INT(s(s,3)/&4) OR s(s [3342] 
‚i)=0O THEN fl=0:j=5 
3450 NEXT:IF fl=1 THEN b(i)=1:a=a-1:IF a=0 [1827] 
THEN i=1 


[1383] 
[1253] 
[2951] 


[555] 
[174] 
[1660] 
[4799] 


[1720] 
[1211] 
[968] 

[3516] 


[2056] 
[1031] 
[555] 
[174] 
[174] 
[878] 
(434) 
[8378] 
[174] 
[525) 
[1252] 
[1872] 
[555] 
[174] 
[2932] 
[4111] 


[3922] 
[1789) 


[1654] 
[174] 
[3202] 


[2249] 
[2166] 
[2796] 
[2135] 
[1070] 
[1253] 
[1597] 
[1774) 
[174] 

[1409] 
[2895] 


[1525] 
[1449] 
[3225] 
[4097) 


[1356] 
[2980] 


[3281] 
[2100] 
[1665) 
[867] 


[590) 
[305] 
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3460 NEXT:a=s [1045] 6160 u=u-28:IF u(4 THEN u=u+52 [907) 
3470 RETURN [555) 6170 FOR j=1 T05 [624] 
3480 : [174] 6180 IF alj)=u THEN u=j:j=5 [1809] 
3500 s=a:60SUB 6000:a=s:p(s)=p [2376) 6190 NEXT:IF ul=O THEN ul=u (1226) 
3510 IF RND)O.95 OR 0)=9000 THEN f(s)=2:1( [4742] 6200 u=uil:a=ali) MOD 4 [921) 
s)=ROUND(10000+4000*RND, -2):RETURN 6210 fl=1:FOR j=2 TO 5 [748] 
3520 IF RND)O.7 OR P)=4000 OR u)O THEN f(s [3534] 6220 IF (alj) MOD 4)()a AND alj)()O THEN f [1778] 
)=2:1(s)=ROUND(2000+500*RND, -2):RETURN 1=0:j=5 

3530 IF p<1000 AND RND)O.2 THEN f(s)=0:RET [2796] 6230 NEXT:IF fl=0 THEN 6300 [1108] 
URN 6240 IF p)=8000 THEN p=p+4000:60T0 6480 [2169] 
3540 f(s)=1:1(s)=ROUND(1000+1000*RND,-2):R [2637] 6250 IF p)O THEN GOSUB 8300 [1260] 
ETURN 6260 p=9100+(alı1) MOD 4): IF a(5)=0 THEN p= [1900) 
5000 : [174] p-100 

5001 REM X33223333233% [955] 6270 60T0 6480 [427] 
5002 REM % Wettrunde % [934] 6300 IF p)O THEN 6480 [1032) 
5003 REM 3222 3%%% [955] 6310 IF a(5)=0 THEN a=1 ELSE a=0 [1040] 
500% : [174] 6320 FOR j=0 TO 3:b(j)=a:NEXT [1575] 
5010 WINDOW SWAP O,1:z2=1:wr=ur+1 [1495) 6330 fl=0:FOR j=1 T0 5 [776] 
5020 as=4:FOR j=0 TO 4:as=as+(m(j)=-1 OR f [2244] 6340 IF alj))O THEN a=a(j) MOD 4:b(a)=b(a) [3013] 
(j)=-1):NEXT +1:IF b(a)=4 THEN fl=1:j=5 

5030 a=sp:fe=as [1367] 6350 NEXT:IF fl=0 THEN 6400 [1120) 
5040 G0SUB 8000:CLS:CL$#2 [2187) 6360 1=1:FOR j=1 TO 5 [909] 
5050 60SUB 8110:60SUB 8200:IF f(a)=-1 THEN [2287] 6370 IF (alj) MOD 4)=a THEN b(l)=alj):l=1+ [2666] 

5120 1 ELSE IF alj)=0 THEN b(4)=0 ELSE b(5)=alj 

5060 ON S6N(la)+i 60SUB 2200,3200 [471] ) 

5070 m(a)=m(a)-y:m=m+y:60SUB 8100 [1729) 6380 NEXT:p=2100+INT(al1)/4):IF a(5)=0 THE [3301] 
5080 PEN 1:PRINT n$(a);" "; [1797] N p=p-100 

5090 IF y(z THEN fla)=-i:fe=fe-1:as=as-1:P [6469] 6400 a=zi:e=5:IF al5)=0 THEN e=4 [1178] 
RINT"passt.":IF a=0 THEN LOCATE#1,40,13:PR 6410 FOR i=1 TO e-1:FOR j=i+1 TO e [1257] 
INT#1,CHR$ (19); 6420 IF INT(ali)/4)=INT(a(j)/4) THEN aza+i [1395] 
5100 IF y=z THEN fe=fe-1:PRINT’h";CHR$(253 [3434] :q=j 

En he 6430 NEXT j,i:fj=0:IF a(5)=0 THEN fj=i [1745] 
5110 IF y)z THEN z=y:fe=as:PRINT"erh’;CHR$ [6132] 6440 ulzu:u=0:IF p=0 OR (fj=1 AND a=2) THE [1879] 
(254);"ht auf $";MIDS(STRS(Z2),2);".":60SUB N 6460 

8110 6450 FOR j=1 TO 5:alj)=b(j):NEXT:U=5:6070 [1927] 

5 6490 

u ein an 6460 ON a G0SUB 6500,6550,6600,6650,6700,6 [2536] 
5130 PRINT#2,CHRS(10);"Ende der ";HEX$(wr) [2304] 500, 6750 

;". Wettrunde." 6470 IF p=0 THEN p=INT(a(1)/%) [1139] 
5140 GOSUB 8000:CLS:WINDOW SWAP 0,1:CLS#2: [3356] 6480 IF p)=1000 THEN u=0 [545] 
CLS#4 6490 FOR j=1 TO 5:s(s,j)=alj):NEXT:RETURN [1865] 
5150 IF f(sp))=0 THEN RETURN [2608] 6500 IF fj=0 THEN 6520 [738] 
5160 sp=sp+1:IF sp=5 THEN sp=0 [1597] 6510 FOR j=5 TO 3 STEP-1:alj)=a(j-1):NEXT: [4346] 
5170 IF m{sp)=-1 THEN 5160 ELSE 5150 [1701] a(2)=0:p=1000+INT(a(1)/4):RETURN 

6000 : [174) 6520 u=ul:RETURN [397] 
0 3777777777777777 7777 [1148] 6550 IF fj=0 THEN 6570 [696] 
6002 REM % Karten sortieren % [868) 6560 FOR j=5 TO a+1 STEP-1:alj)=alj-1):NEX [3527] 
ClRe077777777777777777777 [1148] T:ala+1)=0:60T0 6670 

600% : [174] 6570 p=1100+INT(ala)/4) [758] 
6010 GOSUB 8300:u1=0 [1642] 6580 RETURN [555] 
6020 d=1:60SUB 6800:IF fs=1 THEN p=8100-AB [4856] 6600 IF fj=0 THEN 6620 [734] 
S(fj)*100+INT(al1)/4):60T0 6200 6610 al5)zal4):al4)=a(3):a(3)=0:60T0 6700 [1070] 
6030 ul=u:d=2:60SUB 6800:IF fs=1 THEN p=71 [4411] 6620 fl=1:FOR j=1 TO 5:IF (alj))51 OR alj) [4264] 
00-ABS(fj)*100+INT(al1)/4):60T0 6200 (40) AND alj)()O THEN fl=0:j=5 
6040 IF ul=0 THEN ul=u [1355] 6630 NEXT:p=3100+1000*fI+INT(a(2)/4)+INT(a [2075] 
6050 FOR j=1 T05 [624] (4) /#) /15 
6060 IF a(j)=O THEN 6080 [1084] 6640 RETURN [555] 
6070 alj)=alj)+28:IF alj))55 THEN alj)=alj [1969] 6650 IF fj=0 THEN 6670 [700] 
)-52 6660 FOR j=5 TO a+i STEP-1:alj)zalj-1):NEX [3525] 
6080 NEXT:GOSUB 8310:d=1:60SUB 6800:IF u)O [3417] T:ala+1)=0:60T0 6760 

THEN usalu) 6670 p=5100-100*fj+INTlala)/4) [1679] 
6090 FOR j=1 T0 5 [624] 6680 RETURN [555] 
6100 IF a(j)=0 THEN 6120 [1156] 6700 p=10100-100*fj+INT(a(3)/4) [1939] 
6110 alj)zalj)-28:IF alj)(4 THEN alj)zalj) [1447] 6710 RETURN [555] 
+52 6750 IF fj=1 THEN p=13000+INT(a(1)/4):RETU [2525] 
6120 NEXT:IF fs=1 THEN f=INT(a(1)/4):p=610 [10477] RN 
O-ABS(fj)*100+f: IF f=4 THEN p=p+2000 ELSE 6760 p=11100-100*fj+INT(a(3)/4) [1563] 
IF f=3 AND a(5)=0 THEN FOR j=5 TO 2 STEP-1 6770 RETURN [555] 
:alj)=a(lj-1):NEXT:al1)=0:p=p+2000 6780 : [174] 
6130 IF fs=1 THEN 6200 [882] 6800 fs=0:e=5:IF a(5)=0 THEN e=4 [984] 
6140 GOSUB 8300:p=0 [1358] 6810 fj=5-e:a=1:60$UB 6900 [1306] 
6150 IF u=0 THEN 6200 [470] 6820 IF uz=0 THEN fs=1:FOR j=1 TO 5:a(j)=b [2094] 
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(3) :NEXT:RETURN 8130 PEN#w,3:PRINT#W,CHRS(30);b$;" "; [1754) 
6830 IF uz=1 THEN RETURN [1046] 8140 PEN#wW,1:PRINT#w,a$;CHR$(18); [2049] 
6840 fj=5-e:a=2:60SUB 6900 [1759] 8150 RETURN [555] 
6850 IF uz=0 OR (uz=1 AND fu=1) THEN u=i:R [2038] 8160 : (174) 
ETURN 8200 a=a+i1:IF a=5 THEN a=0 [1766] 
6860 fj=5-e:a=l:e=e-1:605UB 6900 [1779) 8210 IF m(a)=-1 THEN 8200 [1026] 
6870 u=0:IF uz=0 OR (uz=1 AND fu=1) THEN u [2190] 8220 RETURN [555) 
ze+1 8250 a=sa-i1:IF a=-1 THEN a=s4 (1793) 
6880 RETURN [555] 8260 IF m(a)=-1 THEN 8250 [1024] 
6900 u=0:uz=0:fu=0:ful=0:k=1:FOR j=a TO e- [2425] 8270 RETURN (555) 
1 8280 : (174) 
6910 b=INT(alj)/4)-INT(lalj+1)/%) [1754] 8300 FOR j=1 TO 5:a(j)=s(s,j):NEXT [1081] 
6920 IF b=d THEN b(k)=a(j):k=k+1:60T0 6970 [2106] 8310 FOR i=1 TO 4:FOR j=i+1 T0 5 [1923] 
6930 IF b=2*d AND fj=1 THEN b(k)zalj):k=k+ [4330] 8320 IF ali)(a(j) THEN a=sali):ali)=alj):al [2252] 
1:b(K)=0:k=k+1:fj=-1:60T0 6970 j)=a 
6940 IF b=2*d AND uz)-1 THEN uz=uz+1:use:f [4370] 8330 NEXT j,i (396) 
u=1:60T0 6970 8340 RETURN [555] 
6950 IF jte-1 AND uz)-1 THEN IF INT(a(j)/4 [5509] 8350 : (174) 
)-INT(a(lj+2)/4)=2*d THEN u=sj+1:uz=uz#+1-fu: 8500 s=i:p=p(s) [503) 
ful=1:60T0 6970 8510 x=x+1:60SUB 7000 (1924) 
6960 IF ful=0 THEN uz=-1 [765) 8520 LOCATE 1,x-1:PEN 3 [924] 
6970 NEXT:b(kK)=alj):IF k=4 THEN b(5)=0 [2155] 8530 RESTORE 10300:FOR j=0 TO INT(p/1000): [3164] 
6980 RETURN [555] READ as:NEXT 
7000 : [174] 8540 as=ns(s)+": "+a$ (522) 
7001 REM XARRE ra RN [1166] 8550 IF LEN(a$))4O THEN a$=LEFTS(a$,LEN(a$ [1117) 
7002 REM % Karten anzeigen % [1560) )-9) 
7003 REM XXAARRERRRRRREREETY [1166] 8560 PRINT a$; [420] 
7004 : [174] 8570 LOCATE 1,x+11 [946] 
7010 FOR i=1 T0 5 [449] 8580 i=s:RETURN (2018) 
7020 w=8*(i-1)+1:WINDOW#7,w,w+6,x,x+10:WIN [2564] 8590 : [174] 
DOW SWAP 0,7:PAPER 1:CLS 8600 ON ERROR G0TO 8650 [1631] 
7030 f=s(s,i) MOD 4:b=INT(s(s,i)/4):IF f=1 [4786] 8610 DEF FNd$(x,us)=DECH(x,u$) [311] 
OR f=2 OR b=0 THEN PEN 2 ELSE PEN 0 8620 brk=&äFC:is=FNds(1,"#") [1126] 
7040 RESTORE 10100:FOR j=0 TO b:READ a$,b$ [2570] 8630 ON ERROR 60T0 0 [1381) 
:NEXT:C$=CHR$(226+f) 8640 RETURN [555) 
7050 1=(LEN(a$) MOD 2)+1 [642] 8650 DEF FNd$(x,us)=DECS((x,u$) [193) 
7060 LOCATE 1,2:PRINT a$ [1580] 8660 brk=&FF [552] 
7070 LOCATE 6,2:PRINT a$ [657] 8670 RESUME NEXT [703] 
7080 LOCATE 1,10:PRINT a$ [1392) 8680 : [174] 
7090 LOCATE 6,10:PRINT a$ [1015] 8700 MODE 1:PAPER O:PEN 1:CL$ [1766] 
7100 IF b=0 THEN 60SUB 7300:60T0 7150 [1537] 8710 IF m(0))=20000 THEN 1900 [909] 
7110 FOR j=1 T0 7 [630] 8720 as=FNd$(ABS(m(0)-20000), "ssHHkt,###") [3086] 
7120 LOCATE 3,j+2:a=VAL(MID$(b$,3j,1)) [1603] :a$=MID$s(as, INSTR(a$,"$")) 
7130 ON a 60SUB 7200,7210,7220,7230,7240,7 [2524] 8730 PRINT’Du hast heute ";a$;" verloren.” [4142] 
| 250 8740 60T0 1970 [337] 
7140 NEXT (350) 8750 : [174] 
7150 WINDOW SWAP 0,7:NEXT [1427] 8800 KEY DEF 66,0,brk,brk,brk [1174] 
7160 RETURN [555] 8810 INPUT"",e [386) 
7200 PRINT " ";c$;:RETURN [2178] 8820 KEY DEF 66,0,&FC,&FC,&FC [1892] 
7210 PRINT c$;" ";c$;:RETURN [1427] 8830 RETURN [555) 
7220 PRINT c$;c$;c$;:RETURN [886) 10000 : [174] 
7230 PRINT ' ";c$;:RETURN [919] 10001 REM xxxx32%%% [598] 
7240 PRINT c$;c$;:RETURN [1336] 10002 REM % Daten % (708) 
| 7250 PRINT " ";c$;c$;:RETURN [2594] 10003 REM xxr2x333% [598] 
| 7300 PEN 0:FOR j=1 TO 5 [1509] 10004 : [174] 
7310 LOCATE j+1,j+3:PRINT MID$(b$,j,1);:NE [2136] 10010 DATA Sam Einauge,Whiskey Kid,Postkut [3622) 
Kt schen Ede,Revolver Joe 
7320 RETURN [555] 10020 : [174) 
8000 : [174] 10100 DATA *,JOKER,2,0100010,3,0101010,4,0 [4090] 
| 8001 REM XS ı22% [1169] 200020,5,2001002,6,2002002,7,2010202 
8002 REM % Unterprogranme % [1739) 10110 DATA 8,2102012,9,2021202,10,2120212, [4059] 
8003 REM ZAHLE [1169] B,3444421,0,1222236,K, 2225222 
| 8004 : [176] 10120 DATA A,0001000 [704] 
| 8010 SOUND 2,1000,15,6 [1426] 10130 : [174) 
8020 WHILE INKEYSC)"":WEND [1786] 10200 DATA 13,3,15 [671] 
8030 WHILE INKEY$()" ":rO=RND:WEND [2934 ) 10210 DATA 13,6,18 [365) 
8040 RETURN [555] 10220 : [174] 
8050 : [174] 10300 DATA NO PAIR,ONE PAIR,FOUR FLUSH,TWO [4190) 
8100 as=FNds(m,"ssHäht, #88" ):bs="POTT:":w= [2393) PAIRS,BLAZE,THREE OF A KIND 
3:60T0 8120 10310 DATA ROUND THE CORNER STRAIGHT,SKIP [4251] 
8110 as=FNdS(ROUND(2,-2),"SSHRH#,###"):b$= [2745] STRAIGHT,STRAIGHT,FLUSH, FULL HOUSE 
"Geboten: ":u=4 10320 DATA FOUR OF A KIND,STRAIGHT FLUSH,F [1980] 
8120 a$=MIDs(as, INSTR(a$,"s")) [1229] IVE OF A KIND 
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Das Höhlensystem besteht aus 25 Räumen, in denen verschie- 
dene Gefahren lauern; kreuz und quer schießende Lasergeschüt- 
ze, Energiebomben und andere Gefahren, wie unsichtbare Wän- 
de, Wände, die man mit einer Bombe oder einem Schlüssel öff- 
nen muß. 


Bombe und Schlüssel müssen also auch erst einmal gefunden 
werden, damit auch der Spion gefunden werden kann. 


Hat man den Spion erst einmal gefunden, muß man wieder zum 
Ausgangspunkt zurück. 


100 MODE 1 [506] 
101 SYMBOL AFTER 32 [1296] 
102 SYMBOL 200,254,16,121,255,248,32,120,0 [1610] 
103 SYMBOL 201,127,8,158,255,31,4,30,0 [1339] 
104 SYMBOL 202,73,146,76,185,60,74,146,73 [1764] 
105 SYMBOL 203,37,255,73,255,41,255,148,25 [1756] 
5 

106 SYMBOL 204,37,254,76,248,48,224,192,12 [2964] 
8 

107 SYMBOL 205,1,3,5,15,25,63,84,255 [1813] 
108 SYMBOL 206,128,192,96,240,40,252,150,2 [2185] 
55 

109 SYMBOL 207,165,127,41,31,9,7,2,1 [2066] 
110 SYMBOL 91,0,126,126,126,126,126,126,0 [2595] 
111 SYMBOL 209,24,60,126,126,126,126,126,2 [2536] 
55 

112 SYMBOL 208,255,126,126,126,126,126,60, [2125] 
24 

113 SYMBOL 210,56,124,198,214,198,124,56,0 [2404] 
114 SYMBOL 211,1,63,127,255,255,127,63,6 [1643] 
115 SYMBOL 212,128,252,254,255,255,254,252 [2184] 
‚128 

116 SYMBOL 213,254,130,186,162,178,162,162 [2585] 
‚254 

117 SYMBOL 214,16,16,16,56,56,254,170,68 [2096] 
118 SYMBOL 215,0,224,224,191,191,227,227,0 [2539] 
119 SYMBOL 216,0,12,18,56,124,124,56,16 [1735] 
120 SYMBOL 217,0,20,62,20,26,58,31,20 [1590] 


SECRET 
CAVERNS 


Die Aufgabe des Spieles besteht darin, per Joystick ei- 
nen Hubschrauber durch ein großes Höhlensystem zu 
steuern, und den entführten Spion zu retten. 


Um das Spiel nicht zu schwierig zu gestalten, haben wir hier- 
bei eine Abkürzung eingebaut. 

Der Treibstoffvorrat kann an Tankstellen aufgefüllt werden. Die 
Bombe zu werfen, funktioniert allerdings nur in dem Raum, ir 
dem sie auch gebraucht wird. 

Wenn man gegen eine Wand fliegt, von einem Laserstrahl ge- 
troffen wird, oder einer Energiebombe zu nahe kommt, verliert 
man eines seiner Leben. 


(Thomas Stahn/SH) 


121 SYMBOL 218,62,20,62,44,116,62,116,110 [2253] 
122 SYMBOL 219,0,0,0,0,4,46,182,255 [2135] 
123 SYMBOL 220,255,255,195,219,219,195,255 [2401] 
‚255 
124 MODE 1:BORDER 22:INK 0,22:INK 1,0:INK [4613] 
2,5:PEN 1:PAPER 0:CLS 
125 PRINT" LLLLE [LELE CELEE LEE CLELE [14623] 
[LLEL [ [ [ E EL 
[ [ [ [ ei Et [ 
ELERL BECE. '[ EREL... EEGE [ 
El [ I cl [ 
L-[ [ t LI r 

126 PRINT" L[LLLL [LLLE [ELLE CU LLELE [3802] 

[":PRINT:PRINT 
127 PRINT" L[LLLE [EL CU LU LLC [LEE [11863] 
et [ EEE »*Et E TE 

[ [ EEE Ki Er, Eh 
[ [ EEEEL. EEG LEGE SCERL. EL 

[ E_ GET EEE SC 

[ FEB Eat. 

I a EErkEL 0 TE RE EB 


129 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PE [6762] 
N 2:PRINT" ";CHR$(164);" 1987 Christian Ha 

ase & Thomas Stahn" 

130 FOR ii=1 TO 5:FOR i=0 TO 26:INK 1,i:SO [3808] 
UND 1,100+i%3,1,7:NEXT:NEXT 


131 INK 1,0:CALL &BB18 [911] 

132 RUN" !c" [202] 

100 ON BREAK GOSUB 7320 [757] 

110 n1$=STRING$ (240,203) :n2$=STRING$ (180,2 [2879] 
03) 

120 GOTO 550 [431] 

130 ' ----- [438] 

140 TAG:PLOT -10,-10,7 [987] 

150 £f£f=ff+1:1F ££f=10 THEN GOSUB 7100:ff=0 [2051] 


136 EPE 


Sonderheft 5’87 


En en Bier 


pm 


160 j=JOY(0) 

170 IF j=1 THEN y=y+t4:t1=TEST (x,y) :t2=TEST 
(xt11,y) :t3=TEST (x+28,y) :t4=TEST (x+21,y) 
180 IF j=2 THEN y=y-4:t1=TEST (x,y-14) :t2=T 
EST (x+11,y-14) :t3=TEST (x+28,y-14) :t4=TEST( 
x+21,y-14) 

190 IF j=4 THEN x=x-8:ch=200:t1=TEST (x,y): 
t2=TEST (x,y-5) :t3=TEST (x,y-10) :t4=TEST (x,y 
-14) 

200 IF j=8 THEN x=x+8:ch=201:t1=TEST (x+31, 
Y) :t2=TEST (x+31,y-5) :t3=TEST (x+31,y-10) :t4 
=TEST(x+31,y-14) 

210 IF J<>0 THEN MOVE x1,y1:PRINT" "; 

220 IF t1<»0 OR t2<>0 OR t3<>0 OR t4«30 TH 
EN GOTO 270 


230 MOVE x,y:PRINT CHR$ (ch); 

240 x1=x:yl=y 

250 FOR i=1 TO 7:SOUND 1,0,1,i,,,1:NEXT 
260 RETURN \ 

270 '----- KONTAKT ------ 

280 IF t1=1 OR t2=1 OR t3=1 OR t4=1 THEN 3 
90 

290 IF t1=2 OR t2=2 OR t3=2 OR t4=2 THEN x 


=xl:y=yl:t1=0:t2=0:t3=0:t4=0:FOR i=0 TO 26 


| »BORDER i:NEXT:BORDER 18:G0T0 230 


300 IF t1=3 OR t2=3 OR t3=3 OR t4=3 THEN x 
=xl:y=yl:t1=0:t2=0:t3=0:t4=0:IF fuel<99 TH 
EN fuel=fuel+1:SOUND 2,100,2,7:TAG:MOVE 20 
0,38:PRINT USING "##";£fuel;:GOTO 230 ELSE 

SOUND 1,140,3,7:G0T0 230 


| 310 IF t1=4 OR t2=4 OR t3=4 OR t4=4 THEN x 
| axl:y=yl:t1=0:t2=0:t3=0:t4=0:schluessel$=" 


geholt":TAGOFF:LOCATE 6,6:PRINT" ":SOUND 1 


| .100,20,7:TAG:GOTO 230 
| 320 IF t1=5 OR t2=5 OR t3=5 OR t4=5 THEN x 


=xl:y=yl:t1=0:t2=0:t3=0:t4=0:bombe$="gehol 
t":TAGOFF:LOCATE 12,19:PRINT" ":SOUND 1,10 
0,20,7:TAG:GOTO 230 

330 IF t1=6 OR t2=6 OR t3=6 OR t4=6 THEN 3 
90 

340 IF t1=10 OR t2=10 OR t3=10 OR t4=10 TH 
EN x=x1:y=yl:t1=0:t2=0:t3=0:t4=0:spion$="g 


| eholt":TAGOFF:LOCATE 12,15:PRINT" ":FOR i= 


500 TO 50 STEP -10:SOUND 1,i1,2,7:NEXT:TAG: 
GOTO 230 

350 IF t1=14 OR t2=14 OR t3=14 OR t4=14 TH 
EN x=x1:y=yl:t1=0:t2=0:t3=0:t4=0:60T0 230 
360 IF t1=11 OR t2=11 OR t3=11 OR t4=11 TH 
EN 390 

370 IF (t1=13 OR t2=13 OR t3=13 OR t4=13) 
AND schluessel$="geholt" THEN PLOT 320,238 
‚O:DRAW 412,238:PLOT 320,236:DRAW 412,236: 
FOR i=200 TO 100 STEP -5:SOUND 1,1,5,7:NEX 
T:schluessel$="":gefaengnis$="geoeffnet":t 
1=0:t2=0:t3=0:t4=0:G0T0 230 

380 IF t1=13 OR t2=13 OR t3=13 OR t4=13 AN 
D schluessel$<)"geholt" THEN 390 

390 '----- EXPLOSION 
400 PLOT -10,-10,1:0UT &BC00,8:0UT &BD00,1 
410 SPEED INK 1,1:BORDER 0,25 

420 1=7:FOR a=1 TO 31 

430 IF a)17 THEN 1=1-0.5 

440 SOUND 1,0,4,1,,,a 

450 q=qt1:IF q=2 THEN MOVE x1,y1:PRINT CHR 
$(202); ELSE MOVE x1,yl:PRINT CHR$ (238); 
460 IF q=2 THEN q=0 

470 NEXT 

480 OUT &BC00,83:0UT &BD00,2 

490 SPEED INK 9,9:BORDER 18 

500 MOVE x1,y1:PRINT" "; 

510 TAGOFF:lives=lives-1:IF lives<1 THEN 7 
190 

520 x=xt:ysyt:xl=x:yl=y:t1=0:t2=0:t3=0:t4= 
0:fuel=99 
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530 TAG:uu=uu+40:MOVE uu,38:PRINT" "; 
540 GOTO 600 

550: ° HAUPTPROGRAMM 
560 GOSUB 7100 

570 MODE 0:X=320:X1=X:Y=200:Y1=Y:fuel=99:1 
ives=3:uu=400 

580 WINDOW#1,1,20,1,21 

590 ch=200:RAUM=1:BORDER 18:G0OSUB 7160 

600 ON RAUM GOSUB 630,840,950,1250,1360,16 
00,1900,2160,2430,2770,2870,3160,3440,3820 
‚4210,4480,4820,4970,5320,5440,5820,6000,6 


390,6540,6710 

610 GOSUB 130 

620 GOTO 600 

630 '----- RAUM I = 

640 IF altraum=sraum THEN 790 

650 IF altraum2=3 THEN x=0 

660 xt=x:yt=y:xi=sx:yl=y 

670 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

680 FOR a=1 TO 20:LOCATE a,1:PRINT CHRS$ (20 


3):LOCATE a,2:PRINT CHR$(203):LOCATE a,20: 
PRINT CHR$(203) :LOCATE a,21:PRINT CHRS (203 
) :NEXT 

690 FOR a=2 TO 19:LOCATE 1,a:PRINT CHRS (20 
3):LOCATE 20,a:PRINT CHR$ (203) :NEXT 

700 RESTORE 720 

710 READ xa,ya,za:IF ya=0 THEN 730 ELSE LO 
CATE xa,ya:PRINT CHR$ (za) :GOTO 710 

220. :DATA: 1,11.,32,1,12,32,1,13;32.1,14,32,2 
0,11,32,20,12,32,20,13,32,20,14,32,2,3,204 
‚19,3,207,2,19,206,19,19,205,0,0,0 

730 PEN 3:FOR a=1 TO 20:LOCATE a,22:PRINT 

CHR$ (233) :LOCATE a,25:PRINT CHRS (233) ;:NEX 
T:FOR a=23 TO 24:LOCATE 1,a:PRINT CHR$S (233 
):LOCATE 20,a:PRINT CHR$ (233) :NEXT 

740 TAG:PLOT -10,-10,1:MOVE 40,38:PRINT"FU 
EL:99"; 

750 MOVE 520,38:PRINT CHR$ (200) ;:MOVE 440, 
38:PRINT CHR$(200);:MOVE 480,38:PRINT CHRS 
(200); 

760 PLOT 0,62,14:DRAW 640,62:PLOT 0,60:DRA 
W 640,60 

770 GOSUB 7170 


altraum=raun 
IF x>608 AND spion$="geholt" THEN raum 


IF x<0 THEN raum=3:altraum2=1 
IF x>608 AND spion$<)"geholt" THEN 390 


RETURN 

RAUM 2 

GOSUB 7180:CLS#1 

FOR i=1 TO 20:yz=INT(RND (1) *250)+100:x 

z=INT(RND(1)%*640)+1:PLOT xz,yz,1:NEXT 

870 GOSUB 7170 

880 TAG:FOR i=0 TO 608 STEP 8:MOVE ia,y:PR 

INT" ";:MOVE i,y:PRINT CHR$ (201) ;:ia=i:FOR 
iii=1 TO 7:SOUND 1,0,1,iii,,,1:NEXT:NEXT: 

TAGOFF 

890 PAPER O:PEN 1:MODE 1 

900 LOCATE 8,2:PRINT"HERZLICHEN GLUECKWUNS 

CH !" 

910 LOCATE 1,8:PRINT" 

genten aus den 
befreit." 

920 FOR i=1 TO 100:i$=INKEY$:i$="":NEXT 

930 FOR i=1 TO 7:SOUND 1,0,1,i,,,1:NEXT:i$ 

=INKEY$:IF i$="" THEN 930 

940 GOTO 7250 

RAUM 3 

960 IF altraum=raum THEN 1110 

970 IF altraum2=1 THEN x=608 

980 IF altraum2=4 THEN y=400 


Sie haben ihren A 
'SECRET CAVERNS' 


[1837] 
[413] 
[1684] 
[879] 
[4411] 


[1118] 
[2625] 
[8428] 


[883] 
[413] 
[824] 
[1215] 
[592] 
[1309] 
[1376] 
[7199] 


[5467] 


[731] 
[3860] 


[5735] 


[8199] 


[2847] 


[4221] 


[2576] 


[865] 
[117] 
[651] 
[2107] 


[1500] 
[2620] 


[555] 
[994] 
[1240] 
[3940] 


[865] 
[6929] 


[1717] 
[2638] 


[5500] 


[1395] 
[3311] 


[313] 
[1251] 
[1309] 
[509] 
[543] 


ePpc 137 
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990 IF altraum2=5 THEN y=84 

1000 xt=x:yt=y:xi1=x:yl=y 

1010 TAGOFF:PEN 1:GOSUB 7180:CLs#1 

1020 FOR a=1 TO 21:LOCATE 1,a:PRINT CHR$(2 

03);:LOCATE 3,a:PRINT CHR$ (203) ;:NEXT:FOR 

a=1 TO 13:LOCATE 5,a:PRINT CHR$ (203) :LOCAT 

E 6,a:PRINT CHR$(203):LOCATE 7,a:PRINT CHR 
$(203):NEXT:FOR a=9 TO 20:FOR b=1 TO 10:L0 

CATE a,b:PRINT CHR$ (203) :NEXT:NEXT 

1030 FOR a=5 TO 20:LOCATE a,20:PRINT CHR$ ( 
203):LOCATE a,21:PRINT CHR$ (203) ;:NEXT:FOR 
a=16 TO 20:FOR b=15 TO 19:LOCATE a,b:PRIN 

T CHR$ (203) :NEXT:NEXT 

1040 RESTORE 1060 

1050 READ xa,ya,za:IF ya=0 THEN 1070 ELSE 

LOCATE xa,ya:PRINT CHR$ (za) :GOTO 1050 

1060 DATA 13,1,32,13,2,32,13,3,32,13,4,32, 

5,14,203,6,14,203,7,14,204,5,15,203,6,15,2 

04,5,16,204,0,0,0 

1070 READ xa,ya,za,pa:IF ya=0 THEN 1090 EL 

SE PEN pa:LOCATE xa,ya:PRINT CHR$ (za) :G0OTO 
1070 

1080 DATA 13,5,213,3,10,10,208,8,12,10,208 
‚8,14,10,208,8,10,20,209,8,12,20,209,8,14, 

20,209,8,7,18,210,9,0,0,0,0 

1090 PLOT 160,96,6:DRAW 160,120:DRAW 224,1 

52:DRAW 256,152:DRAW 256,96:DRAW 252,96:DR 

AW 252,150:DRAW 220,150:DRAW 156,118:DRAW 

156,96 


1100 GOSUB 7170 

1110 

1120 altraumsraun 

1130 IF x>608 THEN raum=1:altraun2=3 

1140 IF y>400 THEN raun=4 

1150 IF y<84 THEN raum=5:altraum2=3 

1160 z=INT(RND(1)*400):IF z<10 THEN 1170 E 
LSE 1240 


1170 z=INT(RND(1)*3+1):0N z GOTO 1180,1200 
‚1220 

1180 PLOT 432,236,8:DRAW 432,100,8:FOR w=7 
TO 1 STEP -1:SOUND 2,80-w,2,w:NEXT:GOSUB 
140 

1190 PLOT 432,236,0:DRAW 432,100:IF x<=432 
AND x+32>432 THEN 390 ELSE 1240 

1200 PLOT 370,236,8:DRAW 370,100,8:FOR w=7 
TO 1 STEP -1:SOUND 2,80-w,2,#:NEXT:GOSUB 
140 

1210 PLOT 370,236,0:DRAW 370,100:IF x<=370 
AND x+32>370 THEN 390 ELSE 1240 

1220 PLOT 306,236,8:DRAW 306,100,8:FOR w=7 
TO 1 STEP -1:SOUND 2,80-w,2,#:NEXT:GOSUB 
140 
1230 PLOT 306,236,0:DRAW 306,100:IF x<=306 
AND x+32>306 THEN 390 ELSE 1240 

1240 RETURN 
1250) "RT 
1260 
1270 


RAUM 4 
IF altraum=raum THEN 1320 
y=84:xt=x:yt=y:xl=x:yl=y 

1280 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

1290 FOR a=1 TO 20:FOR b=1 TO 21:LOCATE a, 
b:PRINT CHR$ (203) ; :NEXT:NEXT 

1300 FOR a=2 TO 13:LOCATE a,6:PRINT CHR$ (3 
2):LOCATE a,7:PRINT CHRS (32) :NEXT:FOR a=8 
TO 21:LOCATE 2,a:PRINT CHR$(32);:LOCATE 4, 
a:PRINT CHR$(32) ;:LOCATE 13,a:PRINT CHR$ (3 
2);:NEXT:FOR a=10 TO 21:LOCATE 8,a:PRINT C 
HR$ (32) ; :NEXT 

1310 GOSUB 7170 

1320: 

1330 altraum=raun 

1340 IF y<84 THEN raum=3:altraum2=4 

1350 RETURN 


RAUM 5 
1370 IF altraum=raum THEN 1550 
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1380 
1390 
1400 
1410 


IF altraum2=3 THEN y=400 

IF altraum2=6 THEN y=84 
xt=x:yt=y:x1=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLs#1 

1420 LOCATE 1,1:PRINT n1$;n2$; 

1430 FOR a=1 TO 21:LOCATE 2,a:PRINT CHR$ (3 
2);:NEXT:FOR a=6 TO 14:LOCATE a,6:PRINT CH 
R$(32) :LOCATE a+1,7:PRINT CHR$ (32) :NEXT:FO 
R a=5 TO 13:LOCATE a,10:PRINT CHR$ (32) :LOC 
ATE a,11:PRINT CHR$ (32) :NEXT:FOR a=5 TO 16 
:LOCATE a,17:PRINT CHR$ (32) :LOCATE a,18 
1440 PRINT CHR$ (32) :NEXT:FOR a=16 TO 19:L0 
CATE a,8:PRINT CHR$S (32) :LOCATE a,9:PRINT C 
HR$ (32) :NEXT 

1450 RESTORE 1470 

1460 READ xa,ya,za:IF ya=0 THEN 1500 ELSE 
LOCATE xa,ya:PRINT CHR$ (za) ;:GOTO 1460 
1470 DATA 4,1,32,4,2,32,4,3,32,4,4,32,4,5, 
206,5,3,207,5,4,32,5,5,32,5,6,206,6,4,207, 
6,5,32,6,7,206,7,5,207,5,12,32,5,13,32,5,1 
4,32,5,15:32,5,16;32.6,9,32,7:9,32,.8,.9.207 
‚13,12,206 

1480 DATA 14,8,206,14,10,207,14,11,32,14,1 
2,32,14,13,206,15,6,207,15,8,32,15,9,206,1 
5,11,207,15,12,32,15.13,32.15,14,206,16,7; 
207,16,11,204,16,12,32,16,13,32,16,14,205, 
16,16,204,17.10,204.,17.11.32.17.12,32:17.1 
34205,17,15,204,17,16,32,17.17.32,.17.,.18,20 
5 

1490 DATA 18,10,32,18,11,32,18,12,205,18,1 
4,204,18,15,32,18,16,32,18,17,205,19,10,32 
;19,11.205,19,14,32,19,15,32.19.16,32:19,1 
7,32,19,18,32,19,19,32,19,20,32,19,21,32,0 
‚0,0 

1500 RESTORE 1520 

1510 READ xa,ya,za,pa:IF ya=0 THEN 1530 EL 
SE PEN pa:LOCATE xa,ya:PRINT CHR$ (za) ;:GOT 
0 1510 

1520 DATA 5,9,210,9,0,0,0,0 

1530 PLOT 130,245,6:DRAW 190,245:DRAW 190, 
269:DRAW 186,269:DRAW 186,247:DRAW 130,247 
1540 GOSUB 7170 

1550 ' 

1560 altraum=raum 

1570 IF y>400 THEN raum=3:altraum2=5 

1580 IF y<84 THEN raum=6:altraum2=5 

1590 RETURN 
1600 '----- 
1610 
1620 
1630 
1640 
1650 


RAUM 6 

IF altraum=raum THEN 1780 

IF altraum2=5 THEN y=400 

IF altraum2=7 THEN x=0 

xt=x:yt=y:xl=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

1660 LOCATE 1,1:PRINT n1$;n2$; 

1670 FOR a=1 TO 19:LOCATE 19,a:PRINT" ":NE 

XT:FOR a=5 TO 13:FOR b=5 TO 20:LOCATE a,b: 

PRINT" ":NEXT:NEXT:FOR a=1 TO 4:LOCATE a,9 
:PRINT" ":LOCATE a,10:PRINT" ":NEXT 

1680 RESTORE 1700 

1690 READ xa,ya,za:IF xa=0 THEN 1710 ELSE 

LOCATE xa,ya:PRINT CHR$ (za) :GOTO 1690 

1.700. DATA: 2,1.3272.2..32:2,3.32,2,4,32;5 8: 

204.,13,5,.207.14,11.207,14,12.,32.14,13,32,1 

4,14,32,14,15,32,14,16,32,14,17,205,15,12, 

207,15.13,32,15,14,32,15.15.32,.15.16.205,,1 

6,12,204,16,13,32,16,14,32,16,15,205,17,11 
‚204,17,12,32,17,13,32,17,14,205,18,10,204 

1710 DATA 18,11,32,18,12,32,18,13,205,0,0, 

0 

1720 READ xa,ya,za,pa:IF xa=0 THEN 1740 EL 

SE PEN pa:LOCATE xa,ya:PRINT CHR$ (za) :GOTO 
1720 

1730 DATA 2,5,210,9,6,6,210,9,9,6,210,9,12 

‚6,210,9,19,20,213,3,0,0,0,0 
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1740 PLOT 128,288,6:DRAW 13*32-8,288:DRAW 
13*32-8,290:DRAW 128,290 

1750 PLOT 32,360:DRAW 60,360:DRAW 60,358:D 
RAW 32,358 

1760 xw=165:ri=8:xw1=165 

1770 GOSUB 7170 

1780 ' 
1790 
1800 


altraum=raun 

IF x<0 THEN raum=7:altraum2=6 

1810 IF y>400 THEN raum=5:altraun2=6 

1820 TAG:PLOT -10,-10,8:MOVE xw1,94:PRINT" 
";:MOVE xw,94:PRINT CHR$ (214) ;:z=INT(RND( 
1)*5+1) 

1830 IF z=1 THEN PLOT xw+14,96,8:DRAW xw+1 

4,286:SOUND 1,50,2,7:PLOT xw+14,96,0:DRAW 

xw+14,286:IF xw+14)=x AND xw+14<=x+32 THEN 
390 
1840 
1850 


GOSUB 140 
IF xw>380 THEN ri=-8 


1860 IF xw<136 THEN ri=8 

1870 xwi=xw 

1880 xw=xw+tri 

1890 RETURN 

1900 '----- RAUM 7 ----- 

1910 IF altraum=raum THEN 2050 


1920 
1930 
1940 
1950 


IF altraum2=6 THEN x=608 

IF altraum2=8 THEN x=0 

xt=x:yt=y:xl=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

1960 LOCATE 1,1:PRINT n1$;n2$; 

1970 FOR a=2 TO 18:LOCATE 3,a:PRINT" ":LOocC 
ATE 8,a:PRINT" ":LOCATE 12,a:PRINT" ":NEXT 
1980 FOR a=9 TO 20:LOCATE 18,a:PRINT" ":NE 

XT:FOR a=12 TO 17:LOCATE a,19:PRINT" ":LOC 

ATE a,20:PRINT" ":NEXT:FOR a=5 TO 8:LOCATE 
a,19:PRINT" ":LOCATE a,20:PRINT" ":NEXT:F 

OR a=9 TO 11:LOCATE a,3:PRINT" ":LOCATE a, 

4:PRINT" ":NEXT 

1990 RESTORE 2010 

2000 READ xa,ya,za:IF xa=0 THEN 2020 ELSE 

LOCATE xa,ya:PRINT CHR$ (za) ;:GOTO 2000 

2010: DATA 1,9,32,1.10,32,.2,9,32.2.10:32.4, 
3,32,9,3,32,4,4,.32,4,17.207,4,18,32.4,19;3 

2,4,20,206,3,19,206,5,18,207,19,9,32,20,9, 
32,19,10,32,20,.10,32.0,0,0 

2020 READ xa,ya,za,pa:IF xa=0 THEN 2040 EL 

SE PEN pa:LOCATE xa,ya:PRINT CHRS$S (za) ;:GOT 

0 2020 


2030 DATA 5,4,213,3,3,2,208,8,7,4,212,8,8, 
2,208,8,12,2,208,8,13,4,211,8,0,0,0,0 
2040 GOSUB 7170 

2050 ' 

2060 altraum=raun 


2070 
2080 


IF x>608 THEN raum=6:altraum2=7 

IF x<0 THEN raum=8::altraun2=7 
2090 z=INT(RND(1)*100)+1:IF z<>1 THEN 2150 
2100 z=INT(RND(1)*4)+1:0N z GOTO 2110,2120 

| ,2130,2140 

2110 PLOT 76,366,8:DRAW 76,240:FOR w=7 TO 

1 STEP -1:SOUND 2,80-w,2,w:NEXT:PLOT 76,36 

6,0:DRAW 76,240:IF x<108 AND x>44 AND y)=2 

40 THEN 390 ELSE GOSUB 140:60T0 2150 

2120 PLOT 364,366,8:DRAW 364,250:FOR w=7 T 

0 1 STEP -1:SOUND 2,80-w,2,#:NEXT:PLOT 364 
‚,366,0:DRAW 364,250:IF x<396 AND x)>332 AND 

| y?=250 THEN 390 ELSE GOSUB 140:G0T0 2150 
2130 PLOT 236,366,8:DRAW 236,250:FOR w=7 T 

0 1 STEP -1:SOUND 2,80-w,2,w:NEXT:PLOT 236 
‚366,0:DRAW 236,250:IF x<268 AND x>204 AND 
y>=250 THEN 390 ELSE GOSUB 140:60T0 2150 
2140 PLOT 226,344,8:DRAW 380,344:FOR w=7 T 
0 1 STEP -1:SOUND 2,80-w,2,w:NEXT:PLOT 226 
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‚344,0:DRAW 380,344:IF x<384 AND x>220 AND 
y<360 AND y>328 THEN 390 ELSE GOSUB 140 
2150 RETURN 
2160: "a 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


RAUM 8 
IF altraum=sraum THEN 2380 

IF altraum2=7 THEN x=608 

IF altraum2=9 THEN x=0 

IF altraum2=16 THEN y=384 
xt=x:yt=y:xl=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

LOCATE 1,1:PRINT n1$;n2$; 

FOR a=3 TO 12:FOR b=10 TO 20:LOCATE a 


| „b:PRINT" ":NEXT:NEXT:FOR a=11 TO 18:FOR b 
‚=2 TO 14:LOCATE a,b:PRINT" ":NEXT:NEXT 
| 2250 FOR a=2 TO 9:LOCATE 5,a:PRINT" ":NEXT 


2260 FOR a=5 TO 10:FOR b=7 TO 9:LOCATE a,b 
:PRINT" ":NEXT:NEXT 

2270 RESTORE 2290 

2280 READ xa,ya,za:IF xa=0 THEN 2300 ELSE 
LOCATE xa,ya:PRINT CHR$ (za) ;:GOTO 2280 
2290 DATA 3,9,204,4,8,204,4,9,32,6,6,204,7 
‚5,204,7,6,32,8,4,204,8,6,32,9,3,204,9,4,3 
2:9,9:32:9:0,32,10,2,204;10,3,32,10:4,32,1 
0,9,932,10,0,32.1,13:32,1.14.,32,.2,.13,.32:251 
4:32,19;9,32519,10,32,20,9,32;,20,10,32,8,5 
r38,13,19,32,13,16.,209,14,15.205.0,0,0 
2300 READ xa,ya:IF xa=0 THEN 2320 ELSE LOC 
ATE xa,ya:PEN 9:PRINT CHR$ (210):GOTO 2300 
2310: DATA 4,11,6,14,6,17,7,6,7.12;12,3,12, 
8,14,11.12.14.11,17:.19,12717:35107,7.47 13; 
0,0 

2320 PLOT 572,272,6:DRAWR -96,0:DRAWR 0,11 
0:DRAWR 4,0:DRAWR 0,-108:DRAWR 92,0 

2330 PLOT 414,382:DRAWR 0,-48:DRAWR -96,0: 
DRAWR 0,48:DRAWR 4,0:DRAWR O,-46:DRAWR 88, 
0:DRAWR 0,46 

2340 PLOT 224,334:DRAWR 32,0:DRAWR 0,-48:D 
RAWR -96,0:DRAWR 0,16:DRAWR 4,0:DRAWR O,-1 
4:DRAWR 88,0:DRAWR 0,44:DRAWR -28,0 

2350 PLOT 64,254:DRAWR 96,0:DRAWR 0,-16:DR 
AWR 96,0:DRAWR 0,-48:DRAWR -32,0:DRAWR 0,- 
80:DRAWR -96,0:DRAWR 0,98:DRAWR -64,0:DRAW 
R 0,2:DRAWR 68,0:DRAWR 0,-98:DRAWR 88,0:DR 
AWR 0,80:DRAWR 32,0:DRAWR 0,44:DRAWR -96,0 
:DRAWR 0,16:DRAWR -92,0 

2360 PLOT 288,80:DRAWR 0,80:DRAWR 32,0:DRA 
WR 0,144:DRAWR 96,0:DRAWR 0,-64:DRAWR 96,0 
:DRAWR 0,-16:DRAWR 64,0:DRAWR O,-2:DRAWR - 
68,0:DRAWR 0,16:DRAWR -96,0:DRAWR 0,64:DRA 
WR -88,0:DRAWR O,-144:DRAWR -32,0:DRAWR O0, 
-78 


2370 GOSUB 7170 

2380 ' 

2390 altraum=raunm 

2400 IF x<0 THEN raum=9:altraum2=8 
2410 IF x>608 THEN raum=7:altraum2=8 
2420 RETURN 

2430 '----- RAUN 9 

2440 IF altraum=sraum THEN 2560 
2450 IF altraum2=8 THEN x=608 

2460 IF altraum2=11 THEN x=0 

2470 IF altraum2=15 THEN y=400 
2480 IF altraum2=10 THEN y=84 

2490 xt=x:yt=y:xl=x:yl=y 

2500 TAGOFF:PEN 1:GOSUB 7180:CLS#1 
2510 LOCATE 1,1:PRINT n1$;n2$; 


2520 FOR a=1 TO 4:LOCATE a,3:PRINT" ":LOCA 
TE a,4:PRINT" ":LOCATE a,18:PRINT" ":LOCAT 
E a,19:PRINT" ":NEXT:FOR b=1 TO 2:LOCATE 4 
‚b:PRINT" ":LOCATE 4,22-b:PRINT" ":NEXT:FO 
R b=15 TO 21:LOCATE 18,b:PRINT" ":NEXT:FOR 
a=6 TO 14:FOR b=7 TO 12:LOCATE a,b:PRINT" 
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2530 NEXT:NEXT:FOR a=1 TO 20:LOCATE a,13:P 
RINT" ";:LOCATE a,14:PRINT" ";:NEXT 

2540 PEN 3:LOCATE 3,5:PRINT CHR$ (213) :PEN 
8:LOCATE 8,6:PRINT CHR$ (208) :LOCATE 10,6:P 
RINT CHR$ (208) :LOCATE 12,6:PRINT CHRS$ (208) 
:LOCATE 8,15:PRINT CHR$ (209) :LOCATE 10,15: 
PRINT CHR$ (209) :LOCATE 12,15:PRINT CHRS (20 


GOSUB 7170 

2560 ' 

altraum=raum 

IF x<0O THEN raum=11:altraum2=9 

IF x>608 THEN raum=8:altraum2=9 

IF y<84 THEN raum=10 

IF y>400 THEN raum=15:altraum2=9 
z=INT(RND(1)*20+1):IF z>1 THEN 2760 
z=INT(RND(1)*3+1):0N z GOTO 2640,2680 
‚2720 

2640 IF 11=1 THEN 11=0 ELSE l1=1 

2650 IF l1=1 THEN PLOT 240,302,8:DRAWR 0,- 
126,8 ELSE PLOT 240,302,0:DRAWR 0,-126,0 
2660 IF x<=240 AND x+32>240 THEN PLOT 304, 
302,0:DRAWR 0,-126,0:G0T0 390 

2670 GOTO 2750 

2680 IF 12=1 THEN 12=0 ELSE 12=1 

2690 IF 12=1 THEN PLOT 304,302,8:DRAWR 0,- 
126,8 ELSE PLOT 304,302,0:DRAWR 0,-126,0 
2700 IF x<=304 AND x+32)304 THEN PLOT 304, 
302,0:DRAWR 0,-126,0:G0T0 390 

2710 GOTO 2750 

2720 IF 13=1 THEN 13=0 ELSE 13=1 

2730 IF 13=1 THEN PLOT 368,302,8:DRAWR 0,- 
126,8 ELSE PLOT 368,302,0:DRAWR 0,-126,0 
2740 IF x<=368 AND x+32>368 THEN PLOT 368, 
302,0:DRAWR 0,-126,0:G0T0 390 

2750 SOUND 1,70,2,7 

2760 RETURN 
2770 '----- 
2780 
2790 
2800 


RAUM 10 
IF altraum=raum THEN 2840 
y=400:xt=x:yt=y:xl=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

2810 LOCATE 1,1:PRINT n1$;n2$; 

2820 FOR b=1 TO 17:LOCATE 4,b:PRINT" ":LoC 
ATE 18,b:PRINT" ":NEXT:FOR a=5 TO 17:LOCAT 
E a,17:PRINT" ":LOCATE a,16:PRINT" ":NEXT: 
PEN 3:LOCATE 10,18:PRINT CHR$ (213) 

2830 GOSUB 7170 

2840 altraum=raun 

2850 IF y>400 THEN raum=9:altraum2=10 

2860 RETURN 
2870 '----- 
2880 
2890 


RAUM 11 
IF altraum=sraum THEN 3050 

IF altraum2=9 THEN x=608 

2900 IF altraum2=12 THEN x=0 

2910 IF altraum2=14 THEN y=400 

2920 xt=x:yt=y:xl=x:yl=y 

2930 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

2940 FOR a=1 TO 9:LOCATE a,1:PRINT CHRS(20 
3):LOCATE a,2:PRINT CHR$S (203) :NEXT 

2950 FOR a=11 TO 20:LOCATE a,1:PRINT CHRS ( 
203);:LOCATE a,2:PRINT CHR$ (203) ;:NEXT 
2960 FOR b=5 TO 17:LOCATE 1,b:PRINT CHR$(2 
03):LOCATE 2,b:PRINT CHR$ (203) :NEXT 

2970 FOR b=3 TO 17:LOCATE 13,b:PRINT CHRS ( 
203) :NEXT 

2980 FOR a=1 TO 20:LOCATE a,20:PRINT CHRS$ ( 
203);:LOCATE a,21:PRINT CHR$ (203) ;:NEXT 
2990 FOR a=17 TO 20:FOR b=5 TO 12:LOCATE a 
‚b:PRINT CHR$ (203) ; :NEXT:NEXT 

3000 FOR b=6 TO 11:LOCATE 16,b:PRINT CHR$ ( 
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203):NEXT:FOR b=7 TO 10:LOCATE 15,b:PRINT 


CHR$ (203) :NEXT 

3010 LOCATE 16,5:PRINT CHR$ (205) :LOCATE 15 
‚6:PRINT CHR$ (205) :LOCATE 15,11:PRINT CHR$ 
(207) :LOCATE 16,12:PRINT CHR$ (207) :LOCATE 
14,3:PRINT CHR$(204) :LOCATE 14,14:PRINT CH 
R$ (206) :LOCATE 3,10:PRINT CHR$ (206) :LOCATE 
12,10:PRINT CHR$ (205) :LOCATE 3,12 

3020 PRINT CHR$(204):LOCATE 12,10:PRINT CH 
R$(205) :LOCATE 12,12:PRINT CHR$ (207) :PEN 8 
:LOCATE 3,11:PRINT CHR$ (212) :LOCATE 12,11: 
PRINT CHR$ (211) :LOCATE 6,20:PRINT CHR$ (209 
):LOCATE 9,20:PRINT CHR$ (209) :LOCATE 6.2:P 

RINT CHR$ (208) :LOCATE 9,2:PRINT CHR$ (208) 
3030 PEN 1:FOR a=14 TO 20:FOR b=15 TO 17:L 

OCATE a,b:PRINT CHR$ (203) ;:NEXT:NEXT 

3040 GOSUB 7170 

3050 altraum=raun 

3060 IF y>400 THEN raum=14:altraum2=11 

3070 IF x>608 THEN raum=9:altraum2=11 

3080 IF x<O THEN raum=12:altraun2=11 

3090 tt=tt+0.25:t=INT(tt):IF tt>5 THEN tt= 
1 

3100 IF t<>tx THEN ON t GOTO 3110,3120,313 

0,3120 ELSE 3140 

3110 PLOT 176,96,8:DRAW 176,366:SOUND 1,10 

0,2,7:G0SUB 130:PLOT 176,96,0:DRAW 176,366 
:IF x(=176 AND x+32>176 THEN 390 ELSE 3140 

3120 PLOT 96,232,8:DRAW 348,232:SOUND 1,10 

0,2,7:G0SUB 130:PLOT 96,232,0:DRAW 348,232 
:IF y?=232 AND y-16<232 AND x<400 THEN 390 
ELSE 3140 

3130 PLOT 272,96,8:DRAW 272,366:SOUND 1,10 

0,2,7:G0OSUB 130:PLOT 272,96,0:DRAW 272,366 
:IF x<=272 AND x+32>272 THEN 390 ELSE 3140 

3140 tx=t 

3150 

3160| "a 

3170 IF 

3180 IF 

3190 IF 


RAUM 12 
altraum=raum THEN 3320 

altraum2=11 THEN x=608 

altraum2=24 AND y>150 THEN x=64 
3200 IF altraum2=24 AND y<150 THEN x=0 
3210 IF altraum2=13 THEN y=400 

3220 xt=x:yt=y:xl=x:yl=y 

3230 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

3240 FOR b=1 TO 17:LOCATE 1,b:PRINT CHR$(2 
03) ::LOCATE 2,b:PRINT CHR$S (203) :NEXT:FOR a= 
3 TO 20:FOR b=12 TO 17:LOCATE a,b:PRINT CH 
R$(203) ;:NEXT:NEXT:FOR a=1 TO 20:LOCATE a, 
20:PRINT CHR$ (203) ;:LOCATE a,21:PRINT CHRS 
(203) ;:NEXT 

3250 FOR a=17 TO 20:FOR b=7 TO 11:LOCATE a 
‚b:PRINT CHR$ (203) ;:NEXT:NEXT:FOR a=4 TO 1 
5:FOR b=1 TO 4:LOCATE a,b:PRINT CHR$(203): 
NEXT:NEXT:FOR a=16 TO 20:LOCATE a,1:PRINT 
CHR$ (203) ;:LOCATE a,2:PRINT CHRS$S (203) ;:NEX 
T 

3260 RESTORE 3280 

3270 READ xa,ya,za:IF xa=0 THEN 3290 ELSE 
LOCATE xa,ya:PRINT CHR$ (za) ;:GOTO 3270 
3280 DATA 16,3,203,17,3,204,16,4,204,18,5, 
205,19,5,203,20,5,203,17,6,205,18,6,203,19 
‚6,203,20,6,203,4,4,207,0,0,0 

3290 PEN 8:FOR a=5 TO 15:LOCATE a,4:PRINT 
CHRS (208) :LOCATE a,12:PRINT CHR$ (209) 

3300 NEXT 

3310 GOSUB 7170 

3320 ' 
3330 
3340 
3350 
3360 
3370 


altraum=raun 

IF x>608 THEN raum=11:altraum2=12 
IF x<0 THEN raum=24:altraun2=12 
IF y>400 THEN raum=13:altraum2=12 
1x=INT (RND (1) *11+5) :1x=1x*32-16 
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3380 PLOT 1x,334,8:DRAW 1x,294:PLOT 1x,224 
:DRAW 1x,264:SOUND 1,80,1,7 

3390 GOSUB 140:PLOT 1x,334,0:DRAW 1x,294:P 
LOT 1x,224:DRAW 1x, 264 


3400 IF x<=1x AND x+32>1x THEN 3410 ELSE 3 
430 

3410 IF y<200 THEN 3430 

3420 IF y<294 AND y>264 THEN 3430 ELSE 390 
3430 RETURN 

3440 '----- RAUM 13 ----- 

3450 IF altraum=raum THEN 3610 

3460 IF altraum2=14 THEN x=608 

3470 IF altraum2=12 THEN y=84 

3480 xt=x:yt=y:x1=x:yl=y 

3490 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

3500 FOR b=1 TO 21:LOCATE 1,b:PRINT CHRS$S(2 


03):LOCATE 2,b:PRINT CHR$ (203) :NEXT:FOR a= 
4 TO 20:LOCATE a,21:PRINT CHRS (203) ;:LOCAT 
E a,20:PRINT CHR$(203) ;:NEXT:FOR a=3 TO 20 
:LOCATE a,1:PRINT CHR$ (203) ;:LOCATE a,2:PR 
INT CHR$(203) ;:NEXT:FOR a=10 TO 17 
3510 LOCATE a,3:PRINT CHR$(203) :LOCATE a,4 
:PRINT CHR$:(203) :NEXT:FOR a=15 TO 20:FOR b 
=9 TO 16:LOCATE a,b:PRINT CHR$ (203); :NEXT: 
NEXT 
3520 RESTORE 3540 
3530 READ xa,ya,za:IF xa=0 THEN 3550 ELSE 
LOCATE xa,ya:PRINT CHR$ (za) ;:GOTO 3530 
3540 DATA 9,2,32,7,3,207,8,3,203,8,4,207,1 
8,3,203,19,3,203,20,3,203,18,4,204,19,6,20 
5,20,6,203,18,7,205,19,7,203,20,7,203,17,8 
,205,19,8,203,18,8,203,20,8,203,15,17,203, 
16,17,203,17,17,204,;19,17,207.20.17,203,20 
‚18,203,20,19,203,17,20,206,19,20,205,0,0, 
0 
3550 READ xa,ya,za,pa:IF xa=0 THEN 3570 EL 
SE PEN pa:LOCATE xa,ya:PRINT CHRS$S (za) ;:GOT 
0 3550 
3560 DATA 2,10,212,8,2,12,212,8,2,14,212,8 
| »2,16,212,8,15,10,211,8,15,12,211,8,15,14, 
211,8,15,16,211,8,10,4,208,8,4,4,210,9,16, 
7,210,9,18,20,213,3,10,20,209,8,0,0,0,0 
‚3570 PLOT 64,316,6:DRAW 160,316:DRAW 64,31 
4:DRAW 160,314:DRAW 160,364:PLOT 164,314:D 
| RAW 164,364:PLOT 448,270:DRAW 448,312:DRAW 
| 536,312:DRAW 536,288:PLOT 448,314:DRAW 53 
6,314:PLOT 452,270:DRAW 452,312:PLOT 532,2 
88:DRAW 532,312 


3580 zb=1:zc=0 

3590 GOSUB 7170 

3600 ' 

3610 altraum=raun 

3620 IF y<84 THEN altraum2=13:raum=12 
3630 IF y>372 THEN altraum2=13:raum=17 
3640 IF x>608 THEN altraum2=13:raum=14 
3650 zb=zb+1:IF zb>4 THEN zb=1 


3660 GOSUB 140 

3670 ON zb GOTO 3680,3700,3720,3740 

3680 PLOT 64,152,8:DRAW 444,152:SOUND 1,60 
,2,1:PLOT 64,152,0:DRAW 444,152 

3690 IF y?=152 AND y-16<152 THEN 390 ELSE 

3760 

3700 PLOT 64,184,8:DRAW 444,184:SOUND 1,60 
‚2,1:PLOT 64,184,0:DRAW 444,184 

3710 IF y>=184 AND y-16<184 THEN 390 ELSE 

3760 

3720 PLOT 64,216,8:DRAW 444,216:SOUND 1,60 
»2,1:PLOT 64,216,0:DRAW 444,216 

3730 IF y>=216 AND y-16<216 THEN 390 ELSE 

3760 

3740 PLOT 64,248,8:DRAW 444,248:SOUND 1,60 
‚2,1:PLOT 64,248,0:DRAW 444,248 
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— FT Zn 


3750 IF y>=248 AND y-16<248 THEN 390 

3760 GOSUB 140 

3770 z=INT(RND(1)*10)+1:IF z=1 AND zc=0 TH 
EN zc=8:SOUND 1,100,2,7:ELSE IF z=1 AND zc 
=8 THEN zc=0 

3780 PLOT 304,334,zc:DRAW 304,96 

3790 IF zc<>8 AND z<>1 THEN 3810 

3800 IF x<=304 AND x+32>304 THEN 390 

3810 RETURN 
3820). — 
3830 
3840 
3850 
3860 
3870 
3880 
3890 


RAUM 14 
altraum=raum THEN 4010 

altraum2=11 THEN y=84 

altraum2=15 THEN x=608 

altraum2=13 THEN x=0 

altraum2=18 THEN y=400 

xt=x:yt=zy:xl=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

3900 LOCATE 1,1:PRINT n1$;n2$; 

3910 FOR a=1 TO 12:LOCATE a,4:PRINT" ":LOC 

ATE a,5:PRINT" ":NEXT:FOR a=3 TO 12:FOR b= 
6 TO 19:LOCATE a,b:PRINT" ":NEXT:NEXT:LOCA 

TE 10,20:PRINT" ":LOCATE 10,21:PRINT" ":FO 

R a=13 TO 20:LOCATE a,13:PRINT" ":LOCATE a 
‚14:PRINT" ":LOCATE a,18:PRINT" ":LOCATE a 
| 

3920 LOCATE a,19:PRINT" ";:NEXT:FOR b=1 TO 
8:LOCATE 15,b:PRINT" ":NEXT:FOR b=1 TO 6: 
LOCATE 18,b:PRINT" ":NEXT:LOCATE 19,5:PRIN 

T" ":LOCATE 20,5:PRINT" ":LOCATE 19,6:PRIN 

T" ":LOCATE 20,6:PRINT" " 

3930 FOR a=7 TO 12:FOR b=4 TO 5:LOCATE a,b 
:PRINT CHR$ (203) :NEXT:NEXT 

3940 PEN 3:LOCATE 15,9:PRINT CHR$ (213) 
3950 RESTORE 3980:PEN 8 

3960 ri=12 

3970 READ xa,ya,za:IF xa=0 THEN 3990 ELSE 

LOCATE xa,ya:PRINT CHR$ (za) :GOTO 3970 

3980 'DATA: 2,7,.212,2,11,212,2,16,212,13,9,2 
11.13,16,271..0,0,0 

3990 PEN 1:FOR a=5 TO 12:LOCATE a,12:PRINT 
CHR$ (203) :NEXT:LOCATE 5,4:PRINT CHR$ (207) 
:LOCATE 6,4:PRINT CHR$ (203) :LOCATE 6,5:PRI 

NT CHR$ (207) 

4000 GOSUB 7170 

4010 ' 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


altraum=raum 

IF y<84 THEN altraum2=14:raum=11 

IF y>400 THEN altraum2=14:raum=18 

IF x>608 THEN altraum2=14:raum=15 

IF x<0 THEN altraum2=14:raum=13 

la=slatri:IF la>310 THEN ri=-12 

IF la<12 THEN ri=12 

4090 GOSUB 140 

4100 PLOT 64,232,8:DRAW 64+1a,232,8:DRAW 3 

80,232,0:PLOT 64,296,8:DRAW 64+1la,296:DRAW 
380,296,0 

4110 PLOT 380,264,8:DRAW 380-1a,264:DRAW 6 

4,264,0 

4120 IF y>=296 AND y-16<296 AND x<la+64 TH 

EN 390 

4130 IF y>=232 AND y-16<232 AND x<la+64 TH 

EN 390 


4140 IF y>=264 AND y-16<264 AND x+28>380-1 
a THEN 390 

4150 z=INT(RND(1)*5+1):IF z=2 AND 1=1 THEN 
1=0 

4160 IF z=3 AND 1=0 THEN 1=1 

4170 IF 1<>11 THEN IF 1=1 THEN PLOT 64,152 
‚8:DRAW 380,152,8:SOUND 1,100,2,7 ELSE PLO 

T 64,152,0:DRAW 380,152,0 

4180 IF y>=152 AND y-16<152 AND 1=1 THEN P 

LOT 64,152,0:DRAW 380,152,0:G0TO 390 
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4190 11=1 

4200 RETURN 

4210 '----- RAUM 15 
4220 IF altraum=raum THEN 4360 

4230 IF altraum2=9 THEN y=84 

4240 IF altraum2=14 THEN x=0 

4250 IF altraum2=16 THEN x=608 

4260 xt=x:yt=y:xl=x:yl=y 

4270 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

4280 LOCATE 1,1:PRINT n1$;n2$; 

4290 FOR a=1 TO 20:LOCATE a,5:PRINT" ";:LO 
CATE a,6:PRINT" ";:LOCATE a,13:PRINT" ";:L 
OCATE a,14:PRINT" ";:LOCATE a,18:PRINT" "; 
:LOCATE a,19:PRINT" ";:NEXT 

4300 LOCATE 3,18:PRINT CHR$ (203) :LOCATE 3, 
19:PRINT CHR$ (203) :LOCATE 4,20:PRINT" ":LO 
CATE 4,21:PRINT" ":IF bombe$<)"geholt" THE 
N PEN 5:LOCATE 12,19:PRINT CHR$ (216) 

4310 PEN 8:FOR a=3 TO 18:LOCATE a,3:PRINT 
CHR$ (208) :LOCATE a,4:PRINT" ":LOCATE a,7:P 
RINT" ":LOCATE a,8:PRINT CHR$ (209) :NEXT 
4320 PEN 2:LOCATE 15,18:PRINT CHR$ (149) :LO 
CATE 15,19:PRINT CHR$ (149) 

4330 1x=304:1xa=1x 

4340 GOSUB 7170 

4350 ' 

4360 altraum=raun 

4370 IF x<0 THEN raum=14:altraum2=15 

4380 IF x>608 THEN raum=16:altraum2=15 
4390 IF y<84 THEN raum=9:altraunm2=15 

4400 z=INT(RND(1)*2)+1:IF z=1 THEN 1x=1x-3 
2 ELSE 1x=1x+32 

4410 IF 1x<80 THEN 1x=560 

4420 IF 1x>560 THEN 1x=80 

4430 PLOT 1xa,350,0:DRAW 1lxa,288:PLOT 1x,3 
50,8:DRAW 1x,288:SOUND 1,30,2,7 

4440 IF x<=1x AND x+32>1x AND y>240 THEN P 
LOT 1x,350,0:DRAW 1x,288:G0TO 390 

4450 GOSUB 140 

4460 1xa=1x 
4470 RETURN 
4480 '"----- 
4490 
4500 


RAUM 16 

IF altraum=raum THEN 4680 

IF altraum2=15 THEN x=0 

4510 IF altraum2=25 THEN x=608 

4520 IF altraum2=22. THEN y=400 

4530 xt=x:yt=y:xl=x:yl=y 

4540 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

4550 FOR a=1 TO 11:FOR b=1 TO 4:LOCATE a,b 
:PRINT CHR$ (203) :NEXT:NEXT:FOR a=1 TO 11:F 

OR b=7 TO 12:LOCATE a,b:PRINT CHR$S (203) :NE 

XT:NEXT:FOR a=16 TO 18:FOR b=5 TO 8:LOCATE 
a,b:PRINT CHR$(203) :NEXT:NEXT:FOR b=1 TO 
17:LOCATE 19,b:PRINT CHRS$S (203) :LOCATE 20,b 
:PR 

4560 FOR a=6 TO 20:LOCATE a,20:PRINT CHRS( 
203);:LOCATE a,21:PRINT CHR$ (203) ;:NEXT:FO 
R b=15 TO 17:LOCATE 1,b:PRINT CHR$S (203) :LO 
CATE 2,b:PRINT CHR$(203) :NEXT:FOR a=1 TO 4 
:LOCATE a,21:PRINT CHR$ (203) :LOCATE a,20:P 
RINT CHR$ (203) :NEXT 

4570 FOR a=5 TO 20:LOCATE a,16:PRINT CHR$( 
203);:LOCATE a,17:PRINT CHRS (203) ;:NEXT:FO 
R a=11 TO 20:LOCATE a,15:PRINT CHR$ (203) :N 
EXT:FOR a=17 TO 20:LOCATE a,12:PRINT CHRS( 
203) ;:NEXT 

4580 FOR a=9 TO 11:LOCATE a,5:PRINT CHRS(2 
03) :LOCATE a,6:PRINT CHR$ (203) :NEXT:FOR b= 
13 TO 21:LOCATE 4,b:PRINT CHRS$S (203) :NEXT 
4590 RESTORE 4610 

4600 READ xa,ya,za,pa:IF xa=0 THEN 4610 EL 
SE PEN pa:LOCATE xa,ya:PRINT CHR$ (za) ;:GOT 


142 EePe 


[484] 
[555] 
[1030] 
[1377) 
[770] 
[455] 
[1322] 
[1309] 
[1376] 
[710] 
[9263] 


[10532] 


[5555] 


[3850] 


[907] 
[865] 
[117] 
[651] 
[1791] 
[1455] 
[1992] 
[2757] 


[579] 
[1740] 
[4405] 


[3936] 


[921] 
[287] 
[555] 
[1068] 
[1361] 
[325] 
[977] 
[735] 
[1309] 
[1376] 
[14911] 


[12974] 


[7959] 


[6439] 


[717] 
[6347] 


0 4600 

4610 DATA 12,12,203,1,13,12,203,1,14,12,20 
6,1,12,11,203,1,13,11,206,1,12,10,206,1,16 
‚12,205,1,17,11,205,1,18,11,203,1,18,10,20 
5,1,8,6,213,3,16,13,211,8,5,12,208,8,7,12; 
208,8,9,12,208,8,7,16,209,8,9,16,209,8,17, 
13,203,1,18,13,203,1 

4620 DATA 16,14,203,1,17,14,203,1,18,14,20 
3,1,5,16,32,1,5,17,.32,1,12,2,210,9,16,2,21 
0,9,14,7,210,9,0,0,0,0 

4630 IF schluessel$<)"geholt" THEN PEN 4:L 
OCATE 6,6:PRINT CHR$ (215) 

4640 PLOT 352,352,6:DRAW 412,352:DRAW 412, 
400:PLOT 352,354:DRAW 412,354:PLOT 448,400 
:DRAW 448,352:DRAW 500,352:DRAW 500,336:PL 
OT 448,354:DRAW 500,354:PLOT 476,318:DRAW 
384,318:DRAW 400,272:DRAW 476,272:DRAW 476 
‚274:DRAW 400,274:PLOT 476,316:DRAW 384,31 
6 

4650 PLOT 408,400:DRAW 408,352:PLOT 452,40 
0O:DRAW 452,352:PLOT 388,318:DRAW 404,272 


4660 GOSUB 7170 

4670 ' 

4680 altraum=raunm 

4690 IF x<0O THEN raum=15:altraum2=16 
4700 IF x>608 THEN raum=25:altraum2=16 
4710 IF y<84 THEN raum=8:altraum2=16 
4720 IF y>400 THEN raum=22:altraum2=16 


4730 z=INT(RND(1)*30+1):IF z=1 THEN PLOT 4 
76,200,8:DRAW 224,200,8:SOUND 1,70,2,7:PLO 

T 476,200,0:DRAW 224,200:IF x+32)224 AND y 
>=200 AND y-16<200 THEN 390 

4740 GOSUB 140 

4750 z=INT(RND(1)*4+1):ON z GOTO 4760,4770 
‚4780,4790 

4760 PLOT 208,206,8:DRAW 208,183:SOUND 1,9 
0,2,7:PLOT 208,206,0:DRAW 208,183:IF y)=18 
3 AND y<250 AND x<=208 AND x+32)208 THEN 3 
90 ELSE 4800 

4770 PLOT 208,160,8:DRAW 208,163:SOUND 1,9 

0,2,7:PLOT 208,160,0:DRAW 208,163:IF y-16< 
163 AND y>150 AND x<=208 AND x+32)208 THEN 
390 ELSE 4800 

4780 PLOT 272,206,8:DRAW 272,203:SOUND 1,9 
0,2,7:PLOT 272,206,0:DRAW 272,203:IF y>=20 
3 AND y<250 AND x<=272 AND x+32>272 THEN 3 
90 ELSE 4800 

4790 PLOT 272,160,8:DRAW 272,183:SOUND 1,9 

0,2,7:PLOT 272,160,0:DRAW 272,183:IF y-16< 
183 AND y>150 AND x<=272 AND x+32>272 THEN 
390 

4800 z=INT(RND(1)*30)+1:IF z=1 THEN PLOT 1 

44,206,8:DRAW 144,160:SOUND 1,90,2,7:PLOT 
144,206,0:DRAW 144,160:IF y>=160 AND y<250 
AND x<=144 AND x+32>144 THEN 390 

4810 RETURN 

4820 '----- 

4830 

4840 


RAUM 17 
IF altraum=raum THEN 4930 

IF altraum2=13 THEN y=120 

4850 IF altraum2=21 THEN x=0 

4860 IF altraum2=18 THEN x=608 

4870 xt=x:yt=y:x1=x:yl=y 

4880 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

4890 LOCATE 1,1:PRINT n1$;n2$:; 

4900 FOR a=1 TO 20:LOCATE a,7:PRINT" “310 
CATE a,8:PRINT" ";:LOCATE a,18:PRINT" ";:L 
OCATE a,19:PRINT" ";:NEXT:FOR a=1 TO 8:LOC 
ATE a,13:PRINT" ":LOCATE a,14:PRINT" ":NEX 
T:FOR b=10 TO 17:LOCATE 9,b:PRINT" ":NEXT 

4910 GOSUB 7170 

4920 ' 

4930 altraum=raunm 
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[15862] 
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4940 IF x<0 THEN raum=21:altraum2=17 
4950 IF x>608 THEN raum=18:altraum2=17 
4960 RETURN 

4970 '----- RAUM 18 
4980 IF altraum=raum THEN 5150 

4990 IF altraum2=19 THEN y=400 

5000 IF altraum2=17 THEN x=0 

5010 IF altraum2=14 THEN y=84 

5020 IF altraum2=20 THEN x=608 

5030 xt=x:yt=y:x1=x:yl=y 

5040 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

5050 LOCATE 1,1:PRINT n1$;n2$; 

5060 FOR a=1 TO 20:LOCATE a,7:PRINT" ";:LO 
CATE a,8:PRINT" ";:NEXT:FOR a=1 TO 15:LOCA 
TE a,18:PRINT" ":LOCATE a,19:PRINT" ":NEXT 
\ :FOR b=1 TO 6:LOCATE 15,b:PRINT" ":NEXT:FO 
R b=9 TO 21:LOCATE 18,b:PRINT" ":NEXT 

5070 FOR b=13 TO 17:FOR a=b TO 17:LOCATE a 
‚b-4:PRINT" ":NEXT:NEXT 

5080 RESTORE 5100 

5090 READ xa,ya,za:IF xa=0 THEN 5110 ELSE 
LOCATE xa,ya:PRINT CHR$ (za) :GOTO 5090 

5100 DATA 12,6,204,12,9,206,13,5,204,13,6, 
32,13,10,206,14,5,32,14,6,32,14,11,206,15, 
12,32,15,20,.32,15,21,32,16.5,32,16,6,32.16 
‚13,206,17,5,207,17,6,32,17,14,206,18,6,20 
1,0,.0,0 

5110 PEN 8:READ xa,ya,za:IF xa=0 THEN 5130 
ELSE LOCATE xa,ya:PRINT CHR$ (za) :GOTO 511 
0 

5120 DATA 7,17,208,7,20,209,9,17,208,9,20, 
209,15,13,209,0,0,0 

5130 GOSUB 7170 

5140 ' 

5150 altraum=raun 

5160 IF x<O THEN raum=17:altraum2=18 

5170 IF x>608 THEN raum=20:altraum2=18 
5180 IF y>400 THEN raun=19 

5190 IF y<84 THEN raum=14:altraum2=18 

5200 z=INT(RND(1)*30)+1:IF z=1 THEN pil=0 E 
LSE IF z=2 THEN pl=8 

5210 IF pl<>pal THEN PLOT 208,96,p1:DRAW 2 
08,126:IF pi1=8 THEN SOUND 1,120,2,7 


5220 IF pl=8 AND y<200 AND x<=208 AND x+32 
»208 THEN PLOT 208,96,0:DRAW 208,126:G0TO0 
390 
\5230 pal=pl 
5240 GOSUB 140 
5250 z=INT(RND(1)*30)+1:IF z=1 THEN p2=0 E 
„LSE IF z=2 THEN p2=8 

5260 IF p2<>pa2 THEN PLOT 272,96,p2:DRAW 2 
72,126:IF p2=8 THEN SOUND 1,120,2,7 

5270 IF p2=8 AND y<200 AND x<=272 AND x+32 
>»272 THEN PLOT 272,96,0:DRAW 272,126:G0T0 
390 

5280 pa2=p2 

5290 GOSUB 140 

5300 z=INT(RND(1)*15)+1:IF z=1 THEN PLOT 4 
64,208,8:DRAW 464,400:SOUND 1,60,2,7:PLOT 
464,208,0:DRAW 464,400:IF y>150 AND x<=464 
AND x+32>464 THEN 390 

5310 RETURN 

5320 RAUM 19 
5330 IF altraum=raum THEN 5410 

5340 y=84:xt=x:yt=y:xl=x:yl=y 

5350 TAGOFF:PEN 1:G0SUB 7180:CLS#1 

5360 LOCATE 1,1:PRINT n1$;n2$; 

5370 FOR b=17 TO 21:LOCATE 15,b:PRINT" ":N 
EXT:FOR a=10 TO 14:LOCATE a,17:PRINT" ":LO 
CATE a,18:PRINT" ":NEXT 

5380 PEN 3:LOCATE 10,18:PRINT CHR$ (213) 
5390 GOSUB 7170 
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5400 ' 

5410 altraumsraun 

5420 IF y<84 THEN raum=18:altraum2=19 
5430 RETURN 

5440 '----- RAUM 20 ----- 

5450 IF altraum=raum THEN 5570 

5460 IF altraum2=18 THEN x=0 

5470 IF altraum2=22 THEN x=608 


5480 xt=x:yt=y:xl=x:yl=y 

5490 TAGOFF:PEN 1:GOSUB 7180:CL5#1 

5500 LOCATE 1,1:PRINT n1$;n2$; 

5510 FOR a=1 TO 20:LOCATE a,7:PRINT" "ISLO 
CATE a,8:PRINT" ";:NEXT:FOR a=3 TO 13:FOR 
b=3 TO 12:LOCATE a,b:PRINT" ":NEXT:NEXT:FO 
R b=10 TO 19:LOCATE 17,b:PRINT" ":NEXT:FOR 
a=18 TO 20:LOCATE a-2,9:PRINT" ":LOCATE a 
‚18:PRINT" ";:LOCATE a,19:PRINT" ":;:NEXT 
5520 LOCATE 15,9:PRINT CHR$ (206) :LOCATE 16 
‚l0:PRINT CHR$(206) :LOCATE 18,10:PRINT CHR 
$(205) :LOCATE 19,9:PRINT CHR$ (205) 

5530 PEN 8:LOCATE 2,6:PRINT CHR$ (208) :LOCA 
TE 2,9:PRINT CHR$(209):LOCATE 14,6:PRINT C 
HR$ (208) :LOCATE 14,9:PRINT CHR$ (209) 

5540 xb=8:xba=xb:yb=7:yba=yb 

5550 GOSUB 7170 

5560 ' 
5570 
5580 
5590 
5600 
5610 z=INT(RND(1)*20)+1:IF z=1 THEN pl=0 E 

LSE IF z=2 THEN pi1=8 

5620 IF pl<>pal THEN PLOT 48,302,p1:DRAW 4 

8,272:IF p1=8 THEN SOUND 1,120,2,7 

5630 IF p1=8 THEN IF x<=48 AND x+32>48 THE 

N PLOT 48,302,0:DRAW 48,272:G0T0 390 

5640 GOSUB 140 

5650 pal=pi1 

5660 z=INT(RND(1)*20)+1:IF z=1 THEN p2=0 E 

LSE IF z=2 THEN p2=8 

5670 IF p2<>pa2 THEN PLOT 432,302,p2:DRAW 
432,272:IF p2=8 THEN SOUND 1,120,2,7 

5680 IF p2=8 THEN IF x<=432 AND x+32)432 T 

HEN PLOT 432,302,0:DRAW 432,272:G0T0 390 
5690 GOSUB 140 

5700 pa2=p2 

5710 TAGOFF:PEN 11 

5720 z=INT(RND(1)*3)+1:IF z=1 THEN xb=xb-1 
ELSE IF z=3 THEN xb=xb+1 

5730 z=INT(RND(1)*3)+1:IF z=1 THEN yb=yb-1 
ELSE IF z=3 THEN yb=yb+1 

5740 IF xb<3 THEN xb=3 

5750 IF xb>13 THEN xb=13 

5760 IF yb<3 THEN yb=3 

5770 IF yb>12 THEN yb=12 

5780 LOCATE xba,yba:PRINT" ":LOCATE xb,yb: 

PRINT CHR$ (220) 

5790 IF x+32> (xb-1)*32 AND x<=xb*32-4 AND 

y-16<398-(yb-1)*16 AND y>=400-yb*16 THEN L 

OCATE xb,yb:PRINT" ":TAG:GOTO 390 


altraum=raum 
IF x<0 THEN raum=18:altraum2=20 
IF x>608 THEN raum=22:altraum2=20 


5800 xba=xb:yba=yb 

5810 RETURN 

5820 '----- RAUM 21 ----- 

5830 IF altraum=raum THEN 5960 
5840 IF altraum2=17 THEN x=608 
5850 IF altraum2=23 THEN y=84 


5860 xt=x:yt=y:x1=x:yl=y 

5870 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

5880 LOCATE 1,1:PRINT n1$;n2$; 

5890 FOR a=3 TO 20:LOCATE a,7:PRINT" ";:LO 
CATE a,8:PRINT" ";:LOCATE a,13:PRINT" ";:L 
OCATE a,14:PRINT" ";:NEXT:FOR b=15 TO 21:L 
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[117) 
[651] 
[2785] 
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[858] 
[1440] 
[1158] 
[798] 
[1309] 
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[2293] 
[865] 
[117] 
[651] 
[2149] 
[1832] 
[117] 
[2735] 
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OCATE 3,b:PRINT" ":LOCATE 7,b:PRINT" ":LOC 

ATE 12,b:PRINT" ":LOCATE 14,b:PRINT" ":NEX 

T 

5900 RESTORE 5920 

5910 READ xa,ya:IF xa=0 THEN 5930 ELSE LOC 

ATE xa,ya:PRINT" ";:GOTO 5910 

5920 DATA 3,9,3,10,3,11,3,12,18,18,18,19,1 

8,20,18,21,19,18,19,19,20,18,20,19,0,0 

5930 PEN 3:LOCATE 5,14:PRINT CHR$ (213) :PEN 
2:LOCATE 5,13:PRINT CHR$ (149) 


5940 GOSUB 7170 

5950 ' 

5960 altraum=raum 

5970 IF x>608 THEN raum=17:altraum2=21 
5980 IF y<84 THEN raum=23:altraum2=21 
5990 RETURN 

6000 '----- RAUM 22 ----- 

6010 IF altraum=raum THEN 6190 

6020 IF altraum2=20 THEN x=0 

6030 IF altraum2=16 THEN y=84 

6040 xt=x:yt=y:xl=x:yl=y 


6050 TAGOFF:PEN 1:GOSUB 7180:CLS#1 

6060 LOCATE 1,1:PRINT n1$;n2$; 

6070 FOR a=12 TO 18:FOR b=3 TO 21:LOCATE a 
‚b:PRINT" ":NEXT:NEXT:FOR a=1 TO 9:LOCATE 
a,7:PRINT" ":LOCATE a,8:PRINT" ":NEXT:FOR 

a=8 TO 11:FOR b=3 TO 6:LOCATE a-b+3,b:PRIN 

T" ":NEXT:NEXT 

6080 RESTORE 6100 

6090 READ xa,ya,za:IF xa=0 THEN 6110 ELSE 
LOCATE xa,ya:PRINT CHR$S (za) :G0TO 6090 

6100 DATA 1,18,32,1,19,32,2,18,32,2,19,32, 
3,18,32,4,6,204,5,5,204,6,4,204,7,3,204,9, 
6,32,10,5,205,11,4,32,18,3,207,0,0,0 

6110 READ xa,ya,za,pa:IF xa=0 THEN 6130 EL 
SE PEN pa:LOCATE xa,ya:PRINT CHR$ (za) :GOTO 
6110 

6120 DATA 3,19,213,3,8,7,210,9,11,10,212,8 
‚11,16,212,8,13,2,208,8,16,2,208,8,19,10,2 
11, 8,19,16,211,8,0,0,0,0 

6130 PLOT 192,272,6:DRAW 208,318:DRAW ‚284, 
318:PLOT 208,316:DRAW 284,316 

6140 PLOT 352,78,2:DRAW 412,78:DRAW 412,64 
:PLOT 352,76:DRAW 412,76:PLOT 448,64:DRAW 
448,78:DRAW 572,78:PLOT 448,76:DRAW 572,76 
6150 PEN 12:IF mauer$<)"gesprengt" THEN LO 

CATE 4,7:PRINT CHR$ (217) :LOCATE 4,8:PRINT 

CHR$ (218) ELSE LOCATE 4,8:PRINT CHR$ (219) 

6160 z=0 

6170 GOSUB 7170 

6180 ' 

6190 altraum=raum 

6200 IF y<84 THEN raum=16:altraum2=22 

6210 IF x<O THEN raum=20:altraun2=22 

6220 z=z+1:IF z)4A THEN z=1 

6230 GOSUB 140 

6240 ON z GOTO 6250,6260,6270,6280 

6250 PLOT 400,366,8:DRAW 400,84:SOUND 1,80 
‚2, 7:PLOT 400,366,0:DRAW 400,84:IF x<=400 

AND x+32>400 THEN 390 ELSE 6290 

6260 PLOT 352,152,8:DRAW 572,152:SOUND 1,8 
0,2,7:PLOT 352,152,0:DRAW 572,152:IF y>=15 
2 AND y-16<152 THEN 390 ELSE 6290 

6270 PLOT 496,366,8:DRAW 496,84:SOUND 1,80 
‚2,1:PLOT 496,366,0:DRAW 496,84:IF x<=496 

AND x+32)496 THEN 390 ELSE 6290 

6280 PLOT 352,248,8:DRAW 572,248:SOUND 1,8 
0,2,7:PLOT 352,248,0:DRAW 572,248:IF y)=24 
8 AND y-16<248 THEN 390 

6290 GOSUB 140 

6300 IF JOY(O)=16 AND bombe$="geholt" THEN 
6310 ELSE 6380 

6310 FOR i=50 TO 200:SOUND 1,i,1,7:NEXT 
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6320 OUT &BC00,8:0UT &BDOO,1 
6330 1=7:FOR i=1 TO 20:IF i>6 THEN 1=1-0.5 


6340 SOUND 1,0,10,1,,,i:FOR ii=0 TO 26:BOR 
DER ii:NEXT:NEXT 

6350 OUT &BC00,8:0UT &BD00,2 

6360 TAGOFF:PEN 12:LOCATE 4,7:PRINT" ":LOC 
ATE 4,8:PRINT CHR$ (219) 


6370 bombe$="":mauer$="gesprengt" 
6380 RETURN 

6390 '----- RAUM 23 ----- 

6400 IF altraum=raum THEN 6500 


6410 
6420 
6430 
6440 


IF altraum2=21 THEN y=400 

IF altraum2=24 THEN y=84 

xt=x:yt=y:xl=x:yl=y 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

6450 LOCATE 1,1:PRINT n1$;n2$; 

6460 FOR b=1 TO 21:LOCATE 3,b:PRINT" ":LOcC 

ATE 7,b:PRINT" ":LOCATE 12,b:PRINT" ":LOCA 

TE 18,b:PRINT" ":NEXT:FOR b=3 TO 21:LOCATE 
16,b:PRINT" ":NEXT 


6470 LOCATE 14,1:PRINT" ":LOCATE 14,2:PRIN 
T" ":LOCATE 14,3:PRINT" ":LOCATE 14,4:PRIN 
T" ":LOCATE 15,3:PRINT" ":LOCATE 15,4:PRIN 
T> " 

6480 GOSUB 7170 

6490 ' 

6500 altraumsraun 

6510 IF y>400 THEN raum=21:altraum2=23 
6520 IF y<84 THEN raum=24:altraum2=23 

6530 RETURN 

6540 '----- RAUM 24 ----- 

6550 IF altraum=raum THEN 6670 

6560 IF altraum2=23 THEN y=400 

6570 IF altraum2=12 THEN x=608 

6580 xt=x:yt=y:x1=x:yl=y 

6590 TAGOFF:PEN 1:G0OSUB 7180:CLS#1 

6600 LOCATE 1,1:PRINT n1$;n2$; 

6610 FOR a=3 TO 20:LOCATE a,18:PRINT" ";:L 


OCATE a,19:PRINT" ";:NEXT:FOR b=1 TO 17:10 
CATE 3,b:PRINT" ": INEXT: FOR b=1 TO 14:LOCAT 
E 7,b:PRINT" ":NEXT:FOR b=1 TO 12:LOCATE 1 
2,b:PRINT" ":NEXT 

6620 FOR b=11 TO 17:LOCATE 15,b:PRINT"” ":N 

EXT:FOR b=1 TO 7:LOCATE 16,b:PRINT" ":NEXT 
:FOR a=17 TO 20:LOCATE a,6:PRINT" ";:LOCAT 
E a,7:PRINT" ";:NEXT 

6630 LOCATE 18, 1:PRINT" ":LOCATE 18,2:PRIN 

T" ":LOCATE 13,11:PRINT" ":LOCATE 13,12:PR 
INT" ":LOCATE 14,11:PRINT" ":LOCATE 14,12: 

PRINT" " 

6640 PEN 2:LOCATE 17,18:PRINT CHR$ (149) :LO 

CATE 17,19:PRINT CHRS$S (149) 

6650 GOSUB 7170 

6660 ' 

6670 altraum=raun 

6680 IF y>400 THEN raum=23:altraum2=24 
6690 IF x>608 THEN raum=12:altraum2=24 
6700 RETURN 
6710 '----- 
6720 
6730 
6740 
6750 


RAUM 25 
IF altraum=raum THEN 6880 

x=0:xt=x:yt=y:xl=x:yley 

TAGOFF:PEN 1:GOSUB 7180:CLS#1 

LOCATE 1,1:PRINT n1$;n2$; 

6760 FOR a=1 TO 17:LOCATE a,18:PRINT" ":LO 
CATE a,19:PRINT" ":NEXT:FOR b=3 TO 19:LOCA 

TE 18,b:PRINT" ":NEXT:FOR a=4 TO 17:LOCATE 
a,3:PRINT" ":LOCATE a,4:PRINT" ":NEXT:FOR 
a=8 TO 13:LOCATE a,5:PRINT" ":LOCATE a,6: 
PRINT" ":LOCATE a,9:PRINT" ":LOCATE a,10 
6770 PRINT" ":NEXT:FOR b=3 TO 16:LOCATE 3, 
b:PRINT" ":NEXT:FOR a=4 TO 6:LOCATE a,15:P 

RINT" ":LOCATE a,16:PRINT" ":NEXT:FOR b=9 
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TO 16:LOCATE 7,b:PRINT" ":NEXT:FOR a=11 TO 
13:FOR b=11 TO 15:LOCATE a,b:PRINT" ":NEX 
T:NEXT 

6780 LOCATE 6,5:PRINT CHRS$ (206) :LOCATE 7,6 
:PRINT CHR$ (206) :LOCATE 14,5:PRINT" ":LOCA 
TE 14,6:PRINT CHR$ (205) :LOCATE 15,5:PRINT 

CHR$ (205) 

‚6790 RESTORE 6810 

6800 READ xa,ya,za,pa:IF xa=0 THEN 6820 EL 
ie pa:LOCATE xa,ya:PRINT CHR$ (za) :GOTO 

16810 DATA 2,11,212,8,4,11,211,8,7,5,210,9, 

8,20,213,3,9,8,208,8,11,4,210,9,11,8,208,8 
.11,.11,212,8,19,11,211,8,12.16,213,3,0,0,0 
‚O0 

6820 IF spion$<)"geholt" THEN PEN 10:LOCAT 

E 12,15:PRINT CHR$ (249) 

6830 IF gefaengnis$<)>"geoeffnet" THEN PLOT 

| 320,238,13:DRAW 412,238:PLOT 320,236:DRAW 
412,236 

6840 PLOT 160,336,6:DRAW 160,346:DRAW 252, 

ı346:DRAW 252,304:DRAW 248,304:DRAW 248,344 

:DRAW 164,344:DRAW 164,336:PLOT 288,366:DR 

AW 288,324:DRAW 380,324:DRAW 380,366:DRAW 

376,366:DRAW 376,326:DRAW 292,326:DRAW 292 

‚366 

6850 p1=0:p2=0:p3=0:p4=0:pal=0:pa2=0:pa3=0 
:pa4=0 

\6860 GOSUB 7170 

6870 ' 

‚6880 altraum=raun 

16890 IF x<0 THEN raum=16:altraum2=25 

6900 z=INT(RND(1)*20)+1:IF z=1 THEN pl=0 E 

LSE IF z=2 THEN pi=8 

6910 IF pi<>pal THEN PLOT 64,232,p1:DRAW 9 

2,232:IF pl=8 THEN SOUND 1,120,2,7 

6920 IF pi=8 THEN IF x<100 AND y>=232 AND 

y-16<232 THEN PLOT 64,232,0:DRAW 92,232:G0 

TO 390 

6930 pal=pi 

6940 GOSUB 140 

6950 z=INT(RND(1)*20)+1:IF z=1 THEN p2=0 E 

LSE IF z=2 THEN p2=8 

6960 IF p2<>pa2 THEN PLOT 544,232,p2:DRAW 

572,232:IF p2=8 THEN SOUND 1,120,2,7 

6970 IF p2=8 THEN IF x>500 AND y>=232 AND 

y-16<232 THEN PLOT 544,232,0:DRAW 572,232: 

GOTO 390 

6980 pa2=p2 

6990 GOSUB 140 

7000 z=INT(RND(1)*20)+1:IF z=1 THEN p3=0 E 

LSE IF z=2 THEN p3=8 

7010 IF p3<>pa3 THEN PLOT 272,270,p3:DRAW 
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272,240:IF p3=8 THEN SOUND 1,120,2,7 
7020 IF p3=8 THEN IF y>200 AND y<300 AND x 
<=272 AND x+32>272 THEN PLOT 272,270,0:DRA 
W 272,240:G0T0 390 

7030 pa3=p3 

7040 GOSUB 140 

7050 z=INT(RND(1)*20)+1:IF z=1 THEN p4=0 E 
LSE IF z=2 THEN p4=8 

7060 IF p4<>pa4 THEN PLOT 336,270,p4:DRAW 
336,240:IF p4=8 THEN SOUND 1,120,2,7 

7070 IF p4=8 THEN IF y<300 AND y>=240 AND 
x(=336 AND x>336 THEN PLOT 336,270,0:DRAW 
336,240:G0TO 390 

7080 
7090 
1.00: ee 
7110 
7120 


FUEL 
fuel=fuel-1:PLOT -10,-10,1 
TAG:MOVE 200,38:PRINT USING "##"; fuel 


7130 IF fuel<10 THEN SOUND 1,70,1,7 

7140 IF fuel=0 THEN ff=0:G0T0 390 

7150 PLOT -10,-10,7:RETURN 

17160 '----- FARBEN 

7170 INK 0,0:INK 1,26:INK 2,0:INK 3,12:INK 
4,10:INK 5,7:INK 6,0:INK 7,18:INK 8,6:INK 
9,10,15:INK 10,11:INK 11,15:INK 12,12:INK 
13,3:INK 14,0:LOCATE 1,1:RETURN 

7180 FOR farben=0 TO 15:INK farben, 0:NEXT: 

RETURN 

7190: ' 

7200 PAPER O:PEN 1:MODE 1 

7210 FOR i=500 TO 50 STEP -5:SOUND 1,i,2,7 
:NEXT:FOR i=50 TO 500 STEP 5:SOUND 1,i,2,7 
:NEXT:FOR i=1 TO 50:SOUND 1,0,1,7,,,20:BOR 

DER INT(RND(1)*27):FOR ii=1 TO 15:NEXT:NEX 

T 

7220 LOCATE 1,5:PRINT"Ihre Mission ist lei 

der gescheitert." 

7230 LOCATE 1,10:PRINT"Vielleicht schaffen 
Sie es das naechste Mal." 

7240 FOR i=1 TO 100:i$=INKEY$:i$="":NEXT:C 

ALL &BB18 

1250; * 

7260 MODE 1 

7270 LOCATE 8,12:PRINT"Noch einmal spielen 
(j/n)?" 

7280 i$=INKEY$:i$=LOWER$ (i$):IF i$="" THEN 
71280 

7290 IF i$="j" THEN RUN 

7300 IF i$="n" THEN CALL 0 

7310 GOTO 7280 

1320 ° 

7330 RETURN 


epc 145 


[4788] 


[92] 
[921] 
[2126] 


[3755] 


[5743] 


[688] 
[555] 
[1555] 
[2422] 
[1464] 


[1489] 
[1475] 
[1610] 


[1693] 
[8315] 


[3032] 
[117] 
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Spiele 


Wenn Sie schon immer mal Tiriac spielen wollten, 
nur noch keine Gelegenheit dazu hatten... 
Ihr CPC machts möglich! 


Wie schon der Name sagt, liegt hier ein bemerkenswertes Si- 
mulationsprogramm vor, bei dem sich bis zu sechs Spieler als 
Manager für Boris und Co. versuchen können. 

Das Programm ist vollkommen Menue-gesteuert, wodurch bei 
den Eingaben eigentlich keine Probleme auftreten dürften. 
Einzige Ausname stellt die Abfrage dar, welcher Spieler in Ak- 
tion treten soll. Hier muß mit den Cursortasten gesteuert wer- 
den und mit COPY können Sie die Eingabe bestätigen. 


Die fünf Hauptmenues: 
l) W — Menue 

2) K-Menue 

3) G-Menue 

4) Z-Menue 

5) E-Menue 


Das W-MENUE: 

Im W-Menue können Sie sich die Weltrangliste (bis Platz 32) 
ansehen, abspeichern und bereits gespeicherte einladen und ver- 
ändern. Z.B. könnten Sie Boris Becker in Harald Junke umbe- 
nennen, ihm 60 Lenze auf den Buckel laden und ihn zum 
Grundlinienspezialisten umfunktionieren. 


Das K-MENUE: 

Mit dem K-Menue werden geschäftliche Dinge wie das Einkau- 
fen von Spielern erledigt. Pro Turnier kann ein drei-Mann-Team 
aufgestellt werden. Außerdem können hier wichtige Informa- 
tionen über die Spieler eingeholt werden. 


für 464-664-6128 


20 ae 2 2 2 2 2 22 202 2 272 2 2 272720275 


30 "ak TIE Lil 5 %* 

ICHABETTITERTTET Tee ee [669] 
a0, > [117] 
60 CALL &BBAE:TROFF:TAGOFF:GOSUB 260 [2260] 
70 MODE 1:INK 0,3:BORDER 5:INK 1,24:INK 2, [4053] 
18:INK 3,9:PEN 1:PAPER O 

80 LOCATE 6,2:PEN 2:PAPER 3:PRINT"T EN N [3419] 
15 = HAN AG ER" 

90 LOCATE 10,24:PRINT"<< ANY KEY TO CONT > [2443] 
Su 

100 WINDOW 1,40,4,22:PEN 1:PAPER O0 [2160] 
110 PRINT"Das Ziel des Spiels ist schnell [14513] 


erkl[rt.Sie m’ssen durch Kaufen und Verkau 

fen von Spielern als Manager m]glichst v 

iel Geld verdienen." 

120 PRINT"Was wichtig ist,ist,da\ Sie wiss [18022] 

en,wie man das Spiel bedient.Haupts[chlic 

h k]n-nen Sie "ber verschiedene Menues Inf 

or -mationen erhalten bzw. Entscheidungen 
treffen.Es gibt £f’nf Hauptmenues,von wo" 

130 PRINT"aus Sie wiederum in Untermenues [14576] 


springenk]nnen.Diese 5 Hauptmenues habe ic 


146 EPE 


/ / \ \ 
Wo möchten Sie spielen? Bitte wählen Sie ! 


h nachden Anfangsbuchstaben ihrer jeweilig 
en Funktionen W,K,Z,E- und G-Menue genann 
0, 
140 PRINT" (£’r W-eltrangliste,K-aufen,Z-ah 
len,E-nd und G-ame)" 
150 PRINT"Wie Sie dorthin gelangen k]nnen, 
ist sehreinfach.Wollen Sie z.B.ins W-Menue 
‚dr’k-ken Sie die Taste W,wollen Sie ins K 
-Me-nue,dr’cken Sie eben die Taste K." 
160 WHILE INKEY$="" :WEND 
170 CLS:PRINT"Ein Tip am Rande:Wenn es so 
aussieht,als w[ren Sie in einer Endlos-Sch 
leife ge- fangen,kommen Sie durch Druck au 
£ ENTER oder durch die Eingabe von Nachbar 
zahlen"; 
180 PRINT" (z.B.Sie m’ssen w[hlen,welchen S 
pieler Sie kaufen wollen (1-32) ,dann sind 
0 und33 Nachbarzahlen) wieder zum Hauptnme 
nue oder anderen Eingaberoutinen zur’ck." 
190 PRINT" Das Spiel wird immer 
mit sechs Teams gespielt,um die Spannu 
ng zu erh]hen.Wenn Sie alleine oder zu zwe 
it spielen m]chten,werden die restlichen 
Teams vom Computer "bernommen und die 
Klufe bzw.Verk[ufe vollautomatisch get[-"; 
200 PRINT"tigt.Viel Spa\ beim Tiriac-Nacha 
hmen !!":PRINT:PRINT" MARTIN HUEMMERICH" 


210 WINDOW 1,40,1,25:LOCATE 9,24:WHILE INK 
EY$="":WEND 

220 RUN"tennis 

230 ' 

240 '--Umlaute-- 

250.’ 

260 SYMBOL AFTER 91 


270 SYMBOL 91,&X1101100,0,&X1111000,&X1100 
‚&X1111100,&X11001100,&X1110110 

280 SYMBOL 93,&X1100110,0,&X111100,&X11001 
10,&X1100110,&X1100110,&X111100 

290 SYMBOL 94,&X1100110,0,&X1100110,&X1100 
110,&X1100110,&X1100110,&X111110 

300 SYMBOL 92,&X111100,&X1100110,&X1100110 
‚&X1111100,&X1100110,&X1100110,&X1101100,& 
x1100000 

310 RETURN 


[3821] 


[13374] 


[1607] 
[13577] 


[17143] 


[23816] 


[7406] 
[2902] 
[392] 

[117] 

[1067] 
[117] 

[1213] 
[4382] 
[3138] 
[4794] 


[5398] 


[555] 
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Be 


10 Vacha chhc cc hcc cc cc k 
20 ' * RHEIN-SOFT presents: * 
302% Tennis-Manager * 
40 ' * Juni-August 86 * 
5s0' %* * 
60 N ach 
108” 

80 ' written by Martin Huemmerich 
90 ' 


100 SYMBOL 254,30,51,33,35,38,56,96,192:SY 
MBOL 255,120,204,132,196,100,28,6,3:SYMBOL 
124,255,255,255,255,255,255,255,255:KEY D 
EF 15,1,212,213:KEY DEF 7,1,214,215 
110 MODE 1:WINDOW 4,35,4,25:INK 0,2:BORDER 
2:INK 1,23:SPEED INK 2,2:INK 2,9,12:INK 3 
‚12,9:RESTORE 140:FOR w=1 TO T:READ titel$ 
(w) :NEXT:ENV 1,1,0,10,10,-1,3 
120 DIM player$(32) ,spieler$(32) ‚alter (32) 
‚posi (32) ‚weise (32) ,boden (32) ,we(32) ‚preis 
(32) ‚verk(32) ‚paar (32) ‚gesamt (32) ‚punkt (32 
),stpunkt (32) ‚preisgeld (16) 
130 RESTORE 130:FOR w=1 TO 16:READ preisge 
ld(w) :NEXT:DATA 10,5,0,3,0,0,0,1,0,0,0,0,0 
+0,05 
DATA "tt H11W W 
DATA " I 1 


W 
DATA" ı ! UM 1:1 SE 
DATA " 


i 
DATA" 
DATA " i 

| 


I 

| 

I 

DATA" ı ! 

PAPER O:FOR w 

£f=£f+1:i=itl:I 
PEN 3 

230 IF i>LEN(titel$(wdh)) THEN IF wdh<=7 T 

HEN NEXT ELSE 250 

240 PRINT MID$(titel$(wdh) ‚i,1);:GOTO 220 
250 WINDOW 1,40,1,25:LOCATE 14,13:PEN 1:PR 
INT"M AN AG E R":LOCATE 11,13:PRINT CHR$ 
(254) :LOCATE 29,13:PRINT CHR$ (255) :LOCATE 
15,17:PRINT"written by:":LOCATE 12,20:PRIN 

T"MARTIN HUEMMERICH":t$="<< SPACE to go on 
zz. 

260 RESTORE 3110:G0SUB 3100:FOR w=1 TO 20: 
isi+t1:IF i MOD 2 THEN PEN 2 ELSE PEN 3 

270 LOCATE 9+w,25:PRINT MID$(t$,w,1):NEXT: 

LOCATE 1,1:WHILE INKEY$<>" ":WEND 

280 ' 

290 '--Vorbereitungen-- 
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[3315] 
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[3939] 


[2674] 
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[1850] 
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[3125] 
[4078] 


[117] 


[2537 | 


Spiele 


Das G-MENUE: 

Dieses ist das GAME-Menue. Nachdem man das Turnier, auf 
dem gespielt werden soll, ausgewählt hat, treten die Spieler im 
K.O.—System gegeneinander an. 

Nach dem Finale werden die Prämien ausgegeben und die neue 
Weltrangliste berechnet. 


Das Z-MENUE 

enthält die Punkte Gehälter sehen, also anschauen, was Ihre 
Spieler verdienen, Gehälter zahlen und Gehälter kürzen. Die 
Gehälter sollten regelmäßig bezahlt werden, sonst wird bei Be- 
nutzung des E-Menues abgerechnet, was zu 99,9 % ein böses 
Erwachen gibt. 

Wenn Sie die Gehälter kürzen wollen, ist das immer ein Spiel 
mit dem Feuer, da die Spieler auch selbstständig kündigen 
können. 


Das E-MENU: 

Hiermit können Sie das Programm beenden, den Spielstand ab- 
speichern oder einladen und zu den anderen Menuepunkten zu- 
rückkehren. 


Das Menue wechseln können Sie meistens durch einfaches 
Drücken der jeweiligen Taste (G für G-Menu). 


Wenn Sie mit weniger als den sechs möglichen Leuten spielen 
wollen, übernimmt der Computer die restlichen Spieler. 


Zum Abtippen 

Nachdem Sie die beiden Listings eingegeben und abgespeichert 
haben,können Sie das Spiel mit RUN »tennisma« starten. Be- 
nutzer von Diskettenlaufwerken können die in den Zeilen 770, 
3260 und 3330 vorkommenden PRINT-Anweisungen, die sich 
auf den Kassettenrekorder beziehen, natürlich vergessen. 


(Martin Hümmerich/SH) 


300 ' [117] 

310 TROFF:TAGOFF:SPEED WRITE 1:SPEED KEY 2 [10510] 

0,1:KEY 140,"mode 2:pen 1:paper O:list ":M 

ODE 2:INK 1,0:INK 0,26:BORDER 26:FOR w=1 T 

0 6:zaehl(w)=0:NEXT 

320 FOR w=1 TO 32:verk(w)=0:NEXT:FOR w=1 T [5474] 

0 6:FOR s=1 TO 3:hab$ (w,s)="":NEXT s,w:zae 

hlwelt=0 

330 RESTORE 330:FOR s=1 TO 4:READ tun$(s): 

NEXT:DATA " ) W 

WEL ED OKT EDER ING 
KEADON“, "AUSTRALTAN 0-P 
EN" 

340 FOR s=1 TO 6:READ sp$(s):NEXT:DATA Joy [5423] 

ce,Ion Tiriac,CPC 6128,C= 116,C= 64,CPC 46 


[6851] 


4 
350 FOR s=1 TO 6:ge(s)=250000:NEXT:RESTORE [7948] 
360:FOR wdh=1 TO 32:READ player$(wdh) ‚alt 
er (wdh) ‚posi (wdh) ‚weise (wdh) ‚boden (wdh) :NE 
XT 
360 DATA Ivan Lendl,24,1,1,2,John McEnroe, 
25,2,2,3,Mats Wilander,22,3,1,1,Boris Beck 
er,18,5,3,3,Jimmy Connors,33,4,2,2 
370 DATA Yannick Noah,27,6,2,3,Th.Tulasne, 
19,13,1,1,Guy Forget,20,24,2,1,Henri Lecon 
te,22,9,3,2,Stefan Edberg,18, 
380 DATA Anders Jarryd,26,10, 
m,23,11,2,2,A.Kricksteen,19,2 
cher,27,21,2,2,Kevin Curren,2 


[6860] 


[4271] 


.‚Nystroe [6573] 
‚E.Telts 


7 
2 
9 
3 3.3 


‚Hen 
27% 
uU 
Da 
v2 ' 


D 
’ 
0 
6 
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390 DATA Miloslav Mecir,23,19,2,2,Tomas Sm 
id,31,22,2,3,Andreas Maurer, 28,28,2,1,Dami 
r Keretic,26,32,2,3,Andres Gomez,24,15,2,2 
400 DATA Pat Cash,20,30,3,3,J.Fitzgerald, 3 
3,31,2,1,Martin Jaite,21,20,2,3,Johan Krie 
k,28,17,2,1,A.Chesnokov,19,25,1,2 

410 DATA Emilio Sanchez, 24,12,3,2,M.Pernfo 
rs,23,18,2,2,Guill.Vilas,23,27,3,3,Eric Je 
len,19,23,2,2,H.Sundstroem,25,16,2,1 

420 DATA Brad Gilbert,23,8,3,2,Paul McNane 
e,30,14,1,1 

430 FOR w=1 TO 32:punkt (w)=33-posi (w) :NEXT 
440 ' 

450 '--Bildschirm-Maske-- 

460 ' 

470 FOR s=1 TO 25:LOCATE 62,5:PRINT"#":NEK 
T:FOR s=1 TO 6:LOCATE 37,s:PRINT"#":NEXT:L 
OCATE 1,7:PRINT STRING$ (61,"=") 

480 menue$="W":WINDOW 1,61,8,25:WINDOW #1, 
1,36,1,6:WINDOW #2,63,80,1,25:WINDOW #3,38 
‚61,1,6:FOR w=0 TO 2:PAPER #w,0:PEN #w,1:N 
EXT:PAPER #3,1:PEN #3,0 

490 GOSUB 1710:G0SUB 1530 

500 CLS#3:GOSUB 1780:LOCATE#1,6,3:PRINT#1, 
"Die aktuelle Weltrangliste":LOCATE#1,7,4: 
PRINT#1,"wird gerade ausgedruckt.":LOCATE 
#1,5,5:PRINT#1,STRING$ (28,"-"):GOSUB 1580: 
FOR wa=1 TO 3000:NEXT:CLS 

510: " 

520 '--Spielbeginn-- 

530," 

540 EVERY 500,3 GOSUB 2590:EVERY 2600,2 GO 
SUB 3470:IF menue$="W" THEN 600 ELSE IF ne 
nue$="K" THEN 990 ELSE IF menue$="G" THEN 
s=REMAIN (3) :GOTO 1840 ELSE IF menue$s="E" T 
HEN s=REMAIN (3) :GOTO 3180 ELSE IF menue$=" 
zZ" THEN 3540 


550, % 
560 N aachcchkckcckce 
570 ' ** W-Menue *%* 


580 Ve aahkcchchcchccchc 

590 ' 

600 CLS#1:CLS:LOCATE #1,10,1:PRINT#1," W - 
Menue ":PRINT#1 

610 PRINT#1,"1 => Weltrangliste ausdrucken 

":PRINT#1,"2 => Weltrangliste laden":PRINT 

#1,"3 =) Weltrangliste abspeichern":PRINT# 

1,"4 =) Spieler um[ndern" 

620 ein$="":WHILE ein$="":ein$=INKEY$:WEND 
:GOSUB 1660 

630 IF ein$="1" THEN 670 ELSE IF ein$="2" 

THEN 720 ELSE IF ein$="3" THEN 770 ELSE IF 
ein$="4" THEN 820 ELSE 620 

640 ' 

650 '--W.ausdrucken-- 

660 ' 

670 GOSUB 1580 

680 LOCATE 13,18:PRINT" << Press SPACE-BAR 
to go on >> ":WHILE INKEY$<>" ":WEND:CLS: 

GOTO 620 

690 ' 

700 '--alte W.laden-- 

N "= 

720 FOR w=1 TO 6:FOR s=1 TO 3:hab$ (w,s)="" 
:NEXT s,w:FOR w=1 TO 32:verk (w)=0:NEXT:CLS 

#1:LOCATE #1,8,2:PRINT#1,"PLAY druecken... 
":LOCATE #1,9,4:PRINT#1,"Dateiname ? ";:LI 

NE INPUT#1,d$:d$="!"+d$:0PENIN d$ 

730 FOR w=1 TO 32:INPUT#9,player$(w) :INPUT 

#9, alter (w) :INPUT#9,posi (w) :INPUT#9 ‚weise ( 

w) :INPUT#9, boden (w) :INPUT#9,we (w) :NEXT:CLO 

SEIN:CLS:CLS#1:GOSUB 1530:G0SUB 1490:G0T0 

600 

740 ' 

750 '--neue W.abspeichern-- 

760 ' 

770 CLS#1:LOCATE #1,5,2:PRINT#1,"REC & PLA 

Y druecken...":LOCATE #1,9,4:PRINT#1,"Date 

iname ? ";:LINE INPUT#1,d$:d$="!"+d$:0PENO 

UT d$ 


[6940] 


[5909] 


[7776] 


[1874] 


[3211] 
[117] 
[1726] 
[117] 
[5166] 


[9792] 


[1093] 
[10274] 


[117] 
[1677] 
[117) 
[14107] 


[117] 
[345] 
[904] 
[345] 
[117] 
[3625] 


[11543] 


[3799] 
[6357] 


[117] 
[2471] 
[117] 
[831] 
[5444] 


[117] 
[904] 
[117] 
[12107] 


[10669] 


[117] 
[1308] 
[117) 
[5273] 


#9,alter (w) :PRINT#9,posi (w) :PRINT#9 weise ( 
w) :PRINT#9, boden (w) :PRINT#9, we (w) :NEXT:CLO 
SEOUT:CLS:CLS#1:GOTO 600 

790 ' 

800 '--Spieler umaendern-- 

810 ' 

820 GOSUB 1580 

830 CLS#1:PRINT#1:PRINT#1," Auf welchem We 
ltranglistenplatz":PRINT#1,"steht der Spie 
ler,den Sie um[ndern":PRINT#1," wolle 
n ";:INPUT#1,zahl:IF zahl<1 OR zahl>32 OR 


zahl<>INT(zahl) THEN PRINT#1," Falsche 
Eingabe !!":FOR w=1 TO 1000:NEXT:GOTO 830 
840 LOCATE 1,1:PRINT CHRS (7) :CLS#1:PRINT#1 
‚"1 => Namen [ndern":PRINT#1,"2 => Alter [ 
ndern":PRINT#1,"3 => Spielweise [ndern":PR 
INT#1,"4 => Bevorzugten Boden [ndern":PRIN 
T#1,"5 => Neue Nummer":PRINT#1,"6 => Zur’c 
k zum W-Menue" 
850 ein$=INKEY$:IF ein$<"1" OR ein$>"6" TH 
EN 850 ELSE za=VAL(ein$) 
860 ON za GOTO 880,890,900,920,830,870 
870 CLS#1:CLS:GOTO 600 
880 CLS#1:LOCATE #1,16,3:PRINT#1,"........ 
Be ":LOCATE #1,4,3:INPUT#1,"Neuer Name 
";a$:IF LEN(a$)>14 THEN PRINT#1,"Name zu 
lang !":FOR w=1 TO 2000:NEXT:GOTO 880 
881 FOR w=1 TO 6:FOR s=1 TO 3:IF hab$(w,s) 
=player$(we(zahl)) THEN hab$(w,s)=a$:LOCAT 
E#2,5,#w*4-3+s:PRINT#2,SPACE$ (14) ;:GOSUB 14 
90 
882 NEXT s,w:player$(we(zahl))=a$:GOTO 840 
890 CLS#1:LOCATE #1,10,3:INPUT#1,"Neues Al 
ter ";alter(we(zahl)):IF alter (we(zahl))<1 
0 OR alter (we(zahl))>49 THEN PRINT#1:PRINT 
#1," Verkaspern kann ich mich selber !":F 
OR wa=1 TO 1500:NEXT:GOTO 890 ELSE 840 
900 CLS#1:PRINT#L," Versch. Spielweise 
n ":PRINT#1:PRINT#1,"1 => Grundlinie (defe 
nsiv)":PRINT#1,"2 => Sowohl...als auch (Mi 
ttelding)":PRINT#1,"3 => Netz (agressiv)"" 
910 ein$=INKEY$:IF ein$<"1" OR ein$>"3" TH 
EN 910 ELSE weise (we (zahl))=VAL(ein$) :GOTO 
840 
920 CLS#1:PRINT#L," Verschiedene Bode 
ntypen ":PRINT#1:PRINT#1,"1 => Langsamer B 
oden wird bevorzugt":PRINT#1,"2 => Mittler 
er Boden wird bevorzugt":PRINT#1,"3 => Sch 
neller Boden wird bevorzugt" 
930 ein$=INKEY$:IF ein$<"1" OR ein$>"3" TH 
EN 930 ELSE boden (we (zahl) )=VAL(ein$) :GOTO 
840 


940 ' 
I50 ' Kakkkkrk 
960 ' ** K-Menue ** 
970! Kakkkkkckkkkerk 
980 ' 


990 CLS#1:LOCATE #1,10,1:PRINT#1," K- Me 
n u e ":PRINT#1 

1000 PRINT#1,"1 => Spieler kaufen":PRINT#1 
‚"2 =) Spieler verkaufen":PRINT#1,"3 => In 
formationen "ber Spieler" 

1010 ein$="":WHILE ein$="":ein$=INKEY$:WEN 
D:GOSUB 1660 

1020 IF ein$="1" THEN 1060 ELSE IF ein$="2 
" THEN 1310 ELSE IF ein$="3" THEN 2820 ELS 

E 1010 

1030 ' 

1040 '--Spieler kaufen-- 

1050 ' 

1060 GOSUB. 1580:CLS#1 

1070 IF mitspieler<2 THEN cur=1:G0T0 1120 

1080 PRINT#1:PRINT#1,"Sagen Sie mir,":PRIN 

T#1,"Welcher Spieler":PRINT#1," Sie sind 

??":cur=2:LOCATE#1,34,2:PRINT#1,"X" 

1090 LOCATE#1,34,cur:i$=INKEY$:IF i$="" TH 

EN 1090 ELSE LOCATE 1,1:PRINT CHR$(7):PRIN 

T#1," ":IF i$=CHR$(240) THEN cur=cur-1:IF 

ceur<1 THEN cur=1 
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780 FOR w=1 TO 32:PRINT#9,player$(w) :PRINT 


[10140] 


[117] 
[2544] 
[117] 
[831) 
[19180] 


[13346] 


[2043] 
[1471] 


[922] 
[7073] 


[8068] 


[2681] 
[13297] 


[11741] 


[3455] 


[12482] 


[4890] 


[117] 
[345] 
[733] 
[345] 
[117] 
[3983] 


[8976] 


[3799] 


[4258] 


[117] 
[1649] 
[117] 
[1040] 
[2024] 
[7916] 


[6447] 


1100 IF i$=CHR$ (241) THEN cur=cur+1:IF cur 
»mitspieler THEN cur=mitspieler 

1110 LOCATE#1,34,cur:PRINT#1,"X":IF i$<>CH 

R$(224) THEN 1090 

1120 IF ein$="2" AND menue$<)"Z" THEN 1320 
ELSE IF menue$="2" THEN RETURN 

1130 FOR w=1 TO 32:preis (we (w) )=(35-w) *300 

0+((40-alter (we (w))) *300)+INT(RND*20-5) *10 

00:NEXT 

1140 CLS#1:PRINT#1 

1150 PRINT#1," Auf welchem Weltranglistenp 
latz":PRINT#1," steht der Spieler,den Sie 

kaufen":PRINT#1," wollen,";sp$(cur);" ";: 
INPUT#1,zahl:IF zahl<O OR zahl)33 OR zahl 
»INT(zahl) THEN PRINT#1," Falsche Eing 
abe !!":FOR w=1 TO 1000:NEXT:GOTO 1140 
1160 IF zahl=0 THEN .990 ELSE IF zahl=33 TH 

EN CLS#1:G0TO 1070 

1170 IF hab$(cur,3)<>"" AND hab$(cur,3)oS 
PACE$(14) AND hab$(cur,2)<>"" AND hab$ (cur 
‚1)<>»"" AND hab$(cur,2)<>SPACE$(14) AND ha 
b$(cur,1)<»>SPACE$(14) THEN PRINT#1,"Sie ha 

ben schon 3 Spieler !":FOR wa=1 TO.2000:NE 

XT:GOTO 1140 

1180 IF verk(we(zahl))<>0 THEN PRINT#1,"De 
r ist schon verkauft !":FOR wa=1 TO 2000:N 
EXT:GOTO 1140 

1190 CLS#1:PRINT#1,"So,Sie m]Jchten also de 

n ":PRINT#1,player$(we(zahl));" kaufen..." 
:PRINT#1:PRINT#1,"Er kostet";preis(we (zahl 
));"US-Dollar." 

1200 PRINT#1,"Kaufen Sie ihn ?(J-a/N-ein/Z 
-ur"ck)";:a$="":WHILE a$c>"J" AND a$cod"N" 
AND a$<>"Z":a$=INKEY$:a$=UPPER$ (a$) :WEND:I 
F a$="Z" THEN 990 ELSE IF a$="N" THEN 1140 
1210 zaehl(cur)=zaehl(cur)+1:IF zaehl(cur) 
»3 THEN zaehl(cur)=3 

1220 FOR tej=3 TO 1 STEP -1:IF hab$(cur,te 
j)="" OR hab$(cur,tej)=SPACE$ (14) THEN zae 
hl(cur)=tej 

1230 NEXT 

1240 IF preis(we(zahl))>ge(cur) THEN PRINT 
#1,"Er ist doch zu teuer !":FOR wa=1 TO 20 
00:NEXT:GOTO 1140 

1250 ge(cur)=ge(cur)-preis (we (zahl) ) :GOSUB 
1780:hab$ (cur, zaehl(cur))=player$(we(zahl 
)):verk(we(zahl))=1:G0SUB 1490 

1260 posil(cur,zaehl(cur))=posi (we(zahl)): 
gehalt (cur, zaehl (cur))=INT(preis(we(zahl)) 
/5):preisi(cur,zaehl(cur))=preis(we(zahl)) 
-8000- (INT(RND*80) *100) 

1270 GOTO 1140 

1280 ' 

1290 '--Spieler verkaufen-- 

1300 ' 

1310 GOTO 1060 

1320 FOR w=1 TO 32:preis (we (w))=(35-w)*300 

0+((40-alter (we (w)))*300)-INT(RND*3+6) *100 
0:NEXT 

1330 CLS#1:PRINT#1 

1340 PRINT#1," Auf welchem Weltranglistenp 
latz":PRINT#1,"steht der Spieler,den Sie v 
erkaufen":PRINT#1," wollen,";sp$(cur);" " 
;:INPUT#1,zahl:IF zahl<0O OR zahl)33 OR zah 
lc»INT(zahl) THEN PRINT#1," Falsche Ei 
ngabe !!":FOR w=1 TO 1000:NEXT:GOTO 1140 
1350 IF zahl=0 THEN 990 ELSE IF zahl=33 TH 
EN CLS#1:GOTO 1070 

1360 IF hab$(cur,1)<>player$(we(zahl)) AND 
hab$ (cur,2)<>player$(we(zahl)) AND hab$( 
cur,3)<>player$(we(zahl)) THEN PRINT#1,"Ha 

ha,den haben Sie zwar gar nicht, aber das 
sage ich Ihnen ja nicht !":FOR wa=1 TO 30 
00:NEXT:GOTO 1330 

1370 CLS#1:PRINT#1,"So,Sie mJchten also de 
n ":PRINT#1,player$(we(zahl));" verschache 
rn...":PRINT#1:PRINT#1,"Sie w’rden fuer ih 
n";preis (we(zahl)) ;"US-Dollar";"bekommen.V 

erkaufen Sie ihn fuer die-"; 

1380 PRINT#1," sen Preis? (J-a/N-ein/Z-ur’c 
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[6053] 
[2600] 
[4358] 
[5003] 


[872] 
[16002] 


[4067] 


[10927] 


[8373] 


[8057] 


[8046] 


[3409] 


[6232] 


[350] 
[8017] 


[7386] 


[11201] 


[311] 
[117] 
[1846] 
[117] 
[311] 
[4038] 


[872] 
[17789] 


[4067] 


[13663] 


[15403] 


[3669] 


k)"; 

1390 a$="":WHILE a$<>"J" AND a$<>"N" AND a 
$)"Z":a$=INKEY$:a$=UPPERS (a$) :WEND:IF a$= 
"Z" THEN 990 ELSE IF a$="N" THEN 1330 

1400 zaehl (cur)=zaehl (cur)-1:IF zaehl(cur) 
<1 THEN zaehl(cur)=1 

1410 merk=0:FOR w=1 TO 3:IF hab$(cur,w)=pl 

ayer$(we(zahl)) THEN merk=w 

1420 NEXT 

1430 ge(cur)=ge(cur)+preis (we (zahl)) :GOSUB 
1780 

1440 FOR q=1 TO 32:IF player$(we(g))=hab$( 

cur,merk) THEN verk(we(q))=0 ELSE NEXT 
1450 hab$(cur,merk)=SPACE$ (14) :GOSUB 1490: 

posil(cur,merk)=0:gehalt (cur,merk)=0:preis 
l(cur,merk)=0:60T0 1330 

1460 ' 

1470 '--Anzeige WINDOW 2-- 

1480 ' 

1490 FOR ki1=1 TO 6:FOR k2=1 TO 3:LOCATER2, 

5,k1*4-3+k2:PRINT#2,hab$(k1,k2);:NEXT k2,k 
1:RETURN 

1500 ' 

1510 '--Anzeige der Spielernamen-- 

1520 ' 

1530 CLS#2:FOR w=1 TO 6:LOCATE#2,1,#w*4-3:P 

RINT#2,STRING$ (18,"1");:LOCATE#2,1,#w*4-3:P 

RINT#2,CHR$ (24)" ";sp$(w);": "CHR$(24) :NEX 


7 

1540 FOR w=1 TO 6:FOR s=1 TO 3:LOCATE#2,1, 

w*4-3+s:PRINT#2,s;CHR$ (8) ;")":NEXT s,w:RET 

URN 

1550 ' 

1560 '--Ausdrucken der Weltrangliste-- 
1570 ' 

1580 CLS:PRINT CHR$(7):FOR spi=1 TO 32:FOR 
te=1 TO 32 

1590 IF posi(te)=spi THEN we(spi)=te:IF ve 

rk(te)=0 THEN PRINT posi(te);CHR$(8);") "; 

player$(te) ELSE PRINT CHR$ (24) ;posi(te);C 

HRS (8);") ";player$(te);" "CHR$(24) 

1600 NEXT:IF spi=16 THEN WINDOW 30,61,9,25 
1610 NEXT:WINDOW 1,61,8,25 


1620 RETURN 

1630 ' 

1640 '--Neues Menue ?-- 
1650 ' 


1660 ein$=UPPER$ (ein$) :LOCATE 1,1:PRINT CH 
R$(T):IF ein$="K" OR ein$="G" OR ein$="E" 
OR ein$="W" OR ein$="Z" THEN menue$=ein$:G 
OTO 540 


1670 RETURN 

1680 ' 

1690 '--Abfrage Mitspieler-- 
1700 ' 


1710 LOCATE #1,3,3:INPUT#1,"Wieviele Mitsp 
ieler (1-6) ";m$:IF m$<"1" OR m$>"6" OR LE 
N{m$)>1 THEN 1710 ELSE mitspieler=VAL(m$): 
CLS#1 

1720 FOR w=1 TO mitspieler:PRINT#1,w;CHR$( 
BIER) ren 5 

1730 LOCATE #1,5,w:LINE INPUT#1,sp$(w) :1=L 
EN(sp$(w)):IF 1>10 OR 1<3 THEN 1730 


1740 NEXT:CLS#1:RETURN 
1.750: " 

1760 '--Anzeige WINDOW 3-- 
1770 ' 


1780 FOR k3=1 TO 6:LOCATE#3,2,k3:PRINT#3,s 
p$(k3) :LOCATE#3,12,kK3:PRINT#3,USING"## ,### 
‚###.##";ge(k3) ;:NEXT:RETURN 

1790 ' 


1800 ' KrAkkkkkkckkhck 


1810 ' ** G-Menue ** 

1820 ah 

1830 ' 

1840 RESTORE 1860:CLS#1:CLS:LOCATE#1,10,1: 
PRINT#1," G - Me n u e ":FOR w=1 TO 6:pra 
emie (w)=0:NEXT 

1850 READ a,b:IF a=-2 THEN READ c:MOVE b,c 
:GOTO 1850 ELSE IF a=-1 THEN 1870 ELSE DRA 


Spiele 


[5089] 


[3665] 
[4259] 


[350] 
[2505] 


[4225] 


[5365] 


[117] 
[3026] 
[117] 
[6876] 


[117] 
[4218] 
{117] 
[5744] 


[4100] 


[117] 
[2008] 
[117] 
[3468] 


[7747] 


[2125] 
[1529] 
[555] 
[117] 
[692] 
[117] 
[6427] 


[555] 
[117] 
[1494] 
[117] 
[5703] 


[3585] 
[4525] 


[942] 
[117] 
[3189] 
[117] 
[6110] 


[117] 
[345] 
[1144] 
[345] 
[117] 
[6004] 


[4648] 


epc 149 


W a,b,1:G0T0 1850 
1860 DATA -2,48,48,448,48,360,272,136,272, 
48,48,-2,96,48,168,272,-2,392,48,320,272,- 
2,240,128,240,240,-2,160,240,331,240,-2,12 
3,128,368,128,-1,-1 

1870 FOR sp=135 TO 350 STEP 5:MOVE sp,176: 
DRAW sp, 200:NEXT:FOR ze=176 TO 200 STEP 4: 
MOVE 135,ze:DRAW 350, ze:NEXT 

1880 RESTORE 1880:FOR w=1 TO 9:READ t,d:SO 
UND 1,t,d/2,15,1:NEXT:DATA 478,40,426,40,3 
79,40,426,40,379,40,358,40,379,40,358,40,3 
38,100 

1890 LOCATE 9,17:PRINT" Wo m]Jchten Sie spi 
elen? Bitte w[hlen Sie ! ":PRINT#1:PRINT#1 
‚"l => Paris (Sand) ":PRINT#1,"2 
=) Wimbledon (Rasen) ":PRINT#1,"3 = 
>» Flushing Meadow (Kunstbelag)":PRINT#1," 
4 =) Australian Open (Rasen)" 

1900 ein$="":WHILE ein$="":ein$=INKEY$:WEN 

D:GOSUB 1660 

1910 IF ein$<"1" OR ein$>"4" THEN 1900 ELS 

E einga=VAL(ein$) :tun=einga 

1920 IF einga=2 THEN einga=3 ELSE IF einga 

=4 THEN einga=3 ELSE IF einga=3 THEN einga 
=2 

1930 PRINT#1,CHR$ (24) :CLS#1:PRINT#3,CHR$ (2 

4) :CLS#3:GOSUB 1780:LOCATE#1,3,2:PRINT#1,t 
un$ (tun) :finale=16 

1940 LOCATE #1,10,5:PRINT#1, finale;CHR$ (8) 
;"-tel Finale ":CLS:IF finale=16 THEN 1950 
ELSE 2020 

1950 LOCATE 18,2:PRINT" The 6 Tea 

ms : ":FOR w=1 TO 6:stsp$(w)=" "+UPPERS(s 

p$(w))+" ":NEXT:LOCATE 3,5:PRINT stsp$ (1): 

LOCATE 23,5:PRINT stsp$(2) :LOCATE 43,5:PRI 

NT stsp$(3) 

1960 LOCATE 3,12:PRINT stsp$(4) :LOCATE 23, 
12:PRINT stsp$(5):LOCATE 43,12:PRINT stsp$ 
(6) 

1970 FOR w=1 TO 3:FOR s=1 TO 3:LOCATE (w-1 
)*20+1,6+5:PRINT s;CHR$(8)") ";hab$(w,s):N 

EXT s,w 

1980 FOR w=4 TO 6:FOR s=1 TO 3:LOCATE (w-4 
)*20+1,13+s:PRINT s;CHR$S(8)") ";hab$(w,s): 

NEXT s,w:LOCATE 15,18:PRINT" << Hıt any Ke 

y to Continue >> ":FOR w=1 TO 32:paar (w)=0 
:NEXT:CALL &BBO6:CLS 

1990 ' 

2000 '-Die Paarungen per RND ermitteln- 
2010 ' 

2020 LOCATE 23,1:PRINT" Die Paarungen: ":P 

RINT 

2030 FOR wdh=1 TO finale*2 STEP 2 

2040 IF finale<16 THEN. 2100 

2050 r=INT(RND*finale*2+1):FOR te=1 TO wdh 
:IF r=paar (te) THEN 2050 

2060 NEXT:paar (wdh)=r 

2070 ri=INT(RND*finale*2+1):FOR te=1 TO wd 

h:IF rl=paar(te) THEN 2070 

2080 NEXT:paar (wdh+1)=r1 

2090 IF finale=16 THEN spieler$(wdh)=playe 

r$(paar (wdh)) :spieler$ (wäh+l)=player$ (paar 
(wdh+1)) 


2100 PRINT wdh/2+0.5;CHR$(8);") ";spieler$ 
(wdh);" - ";spieler$ (wdh+1) :NEXT 
2110 ' 


2120 '--Die Ergebnisse berechnen-- 

2130: ° 

2140 FOR w=1 TO 32:gesant (w)=0:NEXT:LOCATE 
1,1:PRINT CHR$(7):LOCATE 22,1:PRINT" Die 

Ergebnisse: :PRINT 

2150 FOR wdh=1 TO finale*2 STEP 2:diff=we( 

paar (wdh))-we (paar (wdh+1)) :di£f£f=INT(diff*1 
.3):IF weise (paar (wdh))=einga THEN diff=di 

£f£-INT(RND*3+3) 

2160 IF weise(paar (wdh+l))=einga THEN diff 

=diff+INT(RND*3+3) 

2170 IF ABS(weise(paar (wdh))-einga)=1 THEN 
diff=diff-2 

2180 IF ABS (weise (paar (wdh+1))-einga)=1 TH 


[5928] 


[7382] 


[5889] 


[20181] 


[3799] 
(3191) 


[3980] 


[6440] 


[5017] 


[11759] 


[4815] 


[5441] 


[12226] 


[117] 
[1482] 
[117] 
[2817] 


[1209] 
[1260] 
[4233] 


(1167) 
[3911] 


[1486] 
[4260] 
[2369) 
(117) 

[1477] 


[117] 
[5333) 


[7741] 


[4479] 


(3381) 


[2103] 


EN diff=diff+2 

2190 IF boden(paar (wdh+1))=einga THEN diff 
=diff+INT(RND*4+5) 

2200 IF boden(paar (wdh) J=einga THEN diff=d 
if£f-INT(RND*4+5) . 

2210 IF ABS(boden (paar (wdh))-einga)=1 THEN 
diff=diff-3 

2220 IF ABS(boden (paar (wdh+1))-einga)=1 TH 

EN diff=diff+3 

2230 IF alter (paar (wdh))>alter (paar (wdh+1) 
) THEN diff=diff+2 ELSE diff=diff-2 

2240 IF we(paar (wdh))>we(paar (wdh+1)) THEN 
2270 

2250 IF RND>O.8 THEN diff=diff-(RND*20-40) 
ELSE diff=diff-(RND*13-7) 

2260 GOTO 2280 

2270 IF RND>O.8 THEN diff=diff+(RND*20-40) 
ELSE diff=diff+(RND*13-7) 

2280 IF diff<1 THEN sieger=1 ELSE sieger=2 
2290 satzanzahl=INT(RND*3+3) 

2300 IF satzanzahl=3 THEN ausn=0:ausnl=0 E 
LSE IF satzanzahl=4 THEN ausn=INT (RND* (sat 
zanzahl-1)+1):ausnl=0 ELSE 2320 

2310 GOTO 2330 

2320 ausn=INT(RND* (satzanzahl-1)+1) :ausnl1= 
INT(RND* (satzanzahl-1)+1):IF ausnl=ausn TH 

EN 2320 

2330 FOR satz=1 TO satzanzahl:IF satz=ausn 
OR satz=ausni THEN 2340 ELSE 2360 

2340 pl(3-sieger)=6:pl(sieger)=INT(RND*T7): 
IF pl(sieger)>4 THEN pl(3-sieger)=7 

2350 GOTO 2380 

2360 pl(sieger)=6:pl(3-sieger)=INT(RND*T7): 
IF pl(3-sieger)>4 THEN pl (sieger)=7 

2370 IF pl(1)>pl(2) THEN gesamt (wdh)=gesan 
t(wdh)+1 ELSE gesamt (wdh+l)=gesamt (wdh+1) + 
1 

2380 LOCATE 36+((satz-1)*5) ,2+wdh/2+0.5:PR 
INT pl(1);CHR$ (8) ;":";USING"#";pl(2) :NEXT: 
NEXT 

2390 ' 

2400 '--Wer scheidet aus?-- 

2410 ' 

2420 FOR wa=1 TO finale*2 STEP 2:IF gesant 
(wat1)=3 THEN spieler$(wa/2+0.5)=spieler$( 
watl):paar (wa/2+0.5)=paar (wat1) ELSE IF ge 
samt (wa)=3 THEN spieler$(wa/2+0.5)=spieler 
$(wa) :paar (wa/2+0.5)=paar (wa) 

2430 NEXT wa:GOSUB 2920:finale=finale/2:IF 
finale<1 THEN 2480 ELSE IF finale<8 THEN 
LOCATE 20,15:PRINT" << SPACE to go on >) " 
2440 WHILE INKEY$<>" ":WEND:CLS:GOTO 1940 

2450 ' 

2460 '--Runde aus-- 

2470 ' 

2480 FOR w=1 TO 32:stpunkt (w)=punkt (w) :NEX 
T:hi=0 

2490 FOR dimvari=1 TO 32:FOR w=1 TO 32:IF 
stpunkt (w)>hi THEN hi=stpunkt (w) :zae=w 
2500 NEXT:posi (zae)=dimvari:stpunkt (zae)=0 
:hi=0:NEXT 

2510 FOR w=1 TO 32:punkt (w)=33-posi (w) :NEX 


T 

2520 CLS#1:PRINT#1:PRINT#L," PRAEMI 
EN-VERGA DB E":PRINTEL," ";STRINGS( 
33,"-"):PRINT#1," Jeder bekommt 1/3 dess 
en,was seine Sch’tzlinge einspielen. 
2530 FOR w=1 TO 1500:NEXT:CLS#1:FOR w=1 TO 
6:LOCATE#1,1,w:PRINT#1,sp$ (w) :LOCATE#1,14 
‚w:PRINT#1," : + "ZUSING" HR, #44 $";pra 
emie(w) :NEXT:RESTORE 3050:G0SUB 3040 

2540 FOR w=1 TO 6:ge(w)=ge(w)+praemie(w):G 

OSUB 1780:FOR wa=1 TO 500:NEXT wa,w:PRINT# 
1,CHR$ (24) :PRINT#3,CHR$ (24) :CLS#3:GOTO 184 

0 

2550 END 

2560 ' 

2570 '--Kauf des Computers-- 
2580 ' 


150 EPE 
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[2512] 
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[1877] 
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[12215] 


[10397] 


[7599] 


2590 IF mitspieler?5 THEN RETURN [1740] 
2600 IF RND>O.75 THEN IF RND>O.3 THEN 2730 [3580] 
ELSE RETURN 

2610 rn=INT(RND* (6-mitspieler)+1+mitspiele [2017] 
r) 

2620 FOR wiederholung=1 TO 32:preis(we(wie [8828] 
derholung) )=(35-wiederholung) *#3000+ ((40-al 

ter (we (wiederholung)))*300)+INT(RND*20-5) * 
1000:NEXT 

2630 ideal=INT(RND*32+1) [1019] 
2640 IF hab$(rn,3)<>"" AND hab$(rn,3)<>SPA [2156] 
CE$(14) THEN RETURN 

2650 IF verk(we(ideal))<>0 THEN RETURN [2608] 
2660 IF preis(we(ideal))>ge(rn) AND ge(rn) [1968] 
»0 THEN RETURN 

2670 FOR qw=1 TO 3:IF hab$(rn,qw)="" OR ha [5093] 
b$(rn,qw)=SPACE$ (14) THEN zaehl (rn)=qw:GOT 

0 2690 

2680 NEXT [350] 
2690 ge(rn)=ge(rn)-preis(we(ideal)):GOSUB [13101] 
1780:hab$ (rn,zaehl(rn))=player$(we(ideal)) 
:verk(we(ideal))=1:G0SUB 1490:preisi(rn,za 
ehl(rn))=preis (we (ideal) )-5000- (INT (RND*50 

)*100) :gehalt (rn,zaehl (rn))=INT (preis (we (i 
deal))/8) 

2700 posil(rn,zaehl(rn))=posi(we(ideal)):R [2900] 
ETURN 


2710 ' [117] 
2720 '--Verkauf des Computers-- [873] 
2730 ' [117] 
2740 rn1=INT(RND* (6-mitspieler)+1+mitspiel [3445] 
er) 


2750 FOR id=3 TO 1 STEP -1:IF hab$(rni1,id) [4560] 
="" OR hab$(rni1,id)=SPACE$ (14) THEN NEXT:G 

OTO 2600 

2760 ge(rni)=ge(rnl)+preisi(rnl,id):GOSUB [3620] 
1780:gehalt (rn1,id)=0:preisi(rn,id)=0 

2770 FOR q=1 TO 32:IF player$(we(q))=hab$( [5492] 
rnl,id) THEN verk(we(g))=0 ELSE NEXT 

2780 hab$(rnl1,id)=SPACE$ (14) :GOSUB 1490:po [2079] 
sil(rni1,id)=0:RETURN 


2790 ' [117] 
2800 '--Informationen ausdrucken-- [1035] 
2810 ' [117] 
2820 CLS:PRINT"NAME: ! ALTER: [3804] 
! SPIELWEISE: ! BODENTYP" 


2830 adj$(1)="Grundlinie":adj$(2)="Mitteld [6355] 
ing":adj$(3)="Netz":bod$(1)="Sandplatz":bo 
d$(2)="Kunstbelag":bod$(3)=" Rasen" 
2840 PRINT"----------------- Im I--- [3600] 
Pe En EEE GENE Yen en rn an ae 9 
2850 FOR w=1 TO 16:LOCATE 1,2+w:PRINT play [7031] 
er$(we(w)):LOCATE 18,2+w:PRINT"! ";alter (w 
e(w));" J.":LOCATE 28,2+w:PRINT"! ";adj$( 
weise (we(w))):LOCATE 43,2+w:PRINT"! ";bod 
$(boden (we (w))):NEXT 
2860 WHILE INKEY$="":WEND:LOCATE 1,1:PRINT [9617] 
CHR$ (7) :CLS:PRINT"NAME: ! ALTE 
R: 1! SPIELWEISE: ! BODENTYP:":PRINT"---- 

I 


2870 FOR w=17 TO 32:LOCATE 1,#w-14:PRINT pl [10877] 
ayer$(we(w)):LOCATE 18,w-14:PRINT"! ";alte 
r(we(w));" J.":LOCATE 28,w-14:PRINT"! ";a 
dj$(weise(we(w))):LOCATE 43,#w-14:PRINT"! 

";bod$ (boden (we (w))) :NEXT 

2880 WHILE INKEYS$="":WEND:LOCATE 1,1:PRINT [4690] 
CHR$S (7) :CLS:GOTO 990 


2890 ' [117] 
2900 '--Weltranglistenpunkte vergeben-- [1774] 
2910 ' [117] 


2920 FOR w=1 TO finale:FOR wi1=1 TO 32 [2437] 
2930 IF spieler$(w)=player$(we(w1)) THEN p [4383] 
unkt (we (w1) )=punkt (we (w1))+1.2+RND 


2940 NEXT wl,w [376] 
2950 ' [117] 
2960 '--Praemien vergeben-- [2408] 
2970 ' [117] 


2980 FOR w=1 TO finale:FOR a=1 TO 6:FOR b= [3117] 
170 3 
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2990 IF spieler$(w)=hab$(a,b) THEN praenie 
(a)=praemie (a)+preisgeld (finale) *10000 


3000 NEXT b,a,w:RETURN 
3010 ' 
3020 '--Praemiensound-- 
3030 ' 


3040 READ t,d:SOUND 1,t*1.3,4/1.5,15,1:IF 

t=1 THEN RETURN ELSE 3040 

3050 DATA 119,20,127,20,119,40,159,40,159, 
40,159,20,179,20,190,20,159,20,119,40,119, 
40,106,20,113,20,106,40,159,40,159,40,106, 
20,119,20,127,20,106,20,80,40,80,40 

3060 DATA 71,20,63,20,60,20,63,20,71,20,80 
‚20,71,20,80,20,89,20,95,20,89,20,95,20,10 
6,20,119,20,106,20,119,20,127,20,142,20,15 
9,20,142,20,127,20,119,20,106,20,95,20,89, 
20,106,20,95,40,119,40,119,80,1,1 

3070 ' 

3080 '--Titelsound-- 

3090 ' 

3100 READ t,d:SOUND 1,t,d/1.3,15,1:IF t=1 

THEN RETURN ELSE 3100 

3110 DATA 319,40,159,40,159,20,179,20,190, 
20,179,20,159,40,190,40,190,40,179,40,213, 
40,213,40,159,40,190,40,190,40,159,40,159, 
20,179,20,190,20,179,20,159,40,190,40,190, 
40,179,40,213,40,213,40,239,80 

3120 DATA 319,20,159,20,179,20,159,20,190, 
20,159,20,213,20,159,20,190,20,159,20,213, 
20,159,20,239,20,159,20,213,20,159,20,239, 
20,159,20,253,20,159,20,239,20,159,20,213, 
20,159,20,190,20,159,20 

3130 DATA 179,20,159,20,190,20,159,20,213, 
20,159,20,190,20,159,20,213,20,159,20,239, 
20,159,20,213,20,159,20,239,20,159,20,253, 
20,159,20,239,80 

3140 DATA 319,40,159,40,159,20,179,20,190, 
20,179,20,159,40,190,40,190,40,179,40,213, 
40,213,40,159,40,190,40,190,40,159,40,159, 
20,179,20,190,20,179,20,159,40,190,40,190, 
40,179,40,213,40,213,40,239,80,1,1 

3150 ' 

3160 '--Programm beenden-- 

3170 ' 

3180 CLS#1:CLS:LOCATE #1,10,1:PRINT#1," E 

-Menue ":PRINT#1 

3190 PRINT#1,"1 => Programm verlassen":PRI 
NT#1,"2 => Spielstand abspeichern":PRINT#1 
‚"3 =) Alten Spielstand laden":PRINT#1,"4 

=) Programm doch weiter£f'hren" 

3200 ein$="":WHILE ein$="":ein$=INKEY$:WEN 
D 

3210 IF ein$<"1" OR ein$>"4" THEN 3200 ELS 
E ein=VAL(ein$):ON ein GOTO 3220,3260,3330 
‚3400 

3220 GOSUB 4020:MODE 1:BORDER 3:INK 0,6:IN 
K 1,16:END 

3230 ' 

3240 '--Spielstand speichern-- 

3250 ' 

3260 CLS#1:LOCATE #1,5,2:PRINT#1,"REC & PL 
AY druecken...":LOCATE #1,9,4:PRINT#1,"Dat 
einame ? ";:LINE INPUT#1,d$:d$="!"+d$:0PEN 
OUT d$ 

3270 FOR w=1 TO 32:PRINT#9,player$(w) :PRIN 
T#9,alter (w) :PRINT#9,posi (w) :PRINT#9, weise 
(w) :PRINT#9, boden (w) :PRINT#9, verk (w) :PRINT 
#9,we(w) :NEXT 

3280 FOR w=1 TO 6:PRINT#9,ge(w) :PRINT#9,sp 
$(w) :NEXT 

3290 PRINT#9,mitspieler:FOR w=1 TO 6:FOR s 
=1 TO 3:PRINT#9,hab$ (w,s) :PRINT#9, gehalt (w 
‚Ss):PRINT#9,preisi(w,s):PRINT#9,posil(w,s) 
:NEXT s,w:CLOSEOUT:GOTO 3180 


3300 ' 

3310 '--Spielstand laden-- 

3320 ' 

3330 CLS#1:LOCATE #1,8,2:PRINT#1,"PLAY dru 
ecken...":LOCATE #1,9,4:PRINT#1,"Dateinane 


? ";:LINE INPUT#1,4$:d$="!"+d$:0PENIN d$ 
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[4315] 
[1554] 
[117] 
[1957] 
[117] 
[4373] 


[7812] 


[8362] 


[117] 
[708] 
[117] 
[2386] 


[7591] 
[10074] 


[5895] 


[7824] 


[117] 
[1375] 
[117] 
[2868] 


[14534] 


[2253] 
[3050] 


[3373] 


[117] 
[1900] 
[117] 
[5273] 


[8100] 


[2199] 
[8757] 


[117] 
[1993] 
[117) 
[8694] 
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3340 FOR w=1 TO 32:INPUT#9,player$(w) :INPU 
T#9, alter (w) :INPUT#9,posi (w) :INPUT#9 ‚weise 
(w) :INPUT#9, boden (w) :INPUT#9, verk (w) :INPUT 
#9,we(w) :NEXT 

3350 FOR w=1 TO 6:INPUT#9,ge (w) :INPUT#9,sp 
$(w) :NEXT 

3360 INPUT#9,mitspieler:FOR w=1 TO 6:FOR s 
=1 TO 3:INPUT#9,hab$ (w,s) :INPUT#9, gehalt (w 
‚s):INPUT#9,preis1i(w,s):INPUT#9,posil(w,s) 
:NEXT s,w:CLOSEIN:CLS#3:GOSUB 1530:G0SUB 1 
490:G0OSUB 1780:G0SUB 1580:G0TO 3180 

33702: 

3380 '--Doch Weiter-- 

3390 ' 

3400 CLS#1:LOCATE#1,8,1:PRINT#1," Zu welch 
em Menue ? " 

3410 PRINT#1:PRINT#1,"1 => W-Menue":PRINT# 
1,"2 =) K-Menue":PRINT#1,"3 => G-Menue":PR 
INT#1,"4 => Z-Menue" x 
3420 ein$="":WHILE ein$="":ein$=INKEY$:WEN 


D 

3430 IF ein$<"1" OR ein$)"4" THEN 3420 ELS 
E ein=VAL(ein$):ON ein GOTO 600,990,1840,3 
540 

3440 ' 

3450 '--Neuer Monat-- 

3460 ' 

3470 FOR w9=1 TO 6:monat (w9)=monat (w9)+1:N 
EXT 

3480 FOR w9=mitspieler+1 TO 6:FOR s=1 TO 3 
:ge (w9)=ge (w9)-gehalt (w9,s) :NEXT:GOSUB 178 
O:monat (w9)=0:NEXT:RETURN 


3490 ' 
3500  ahhcchhrchchcccch 
3510 ' ** Z-Menue ** 
3520 N aahhrrcchchchhccch 
3530 ' 


3540 CLS#1:CLS:GOSUB 1780:LOCATE#1,10,1:PR 
INT#l," 2- Menue ":PRINT#1 

3550 PRINT#1,"1 => Geh[lter sehen":PRINT#1 
‚"2 => Geh[lter zahlen":PRINT#1,"3 => Geh[ 
lter k’rzen" 

3560 ein$="":WHILE ein$="":ein$=INKEY$:WEN 
D:GOSUB 1660 

3570 IF ein$<"1" OR ein$>"3" THEN 3560 ELS 
E ein=VAL(ein$):ON ein GOTO 3610,3670,3750 
3580 ' 

3590 '--Geh[lter sehen-- 

3600 ' 

3610 CLS#1:GOSUB 1070:FOR d=1 TO 3:LOCATE 
3,3+d*3:PRINT hab$ (cur ,d) :LOCATE 23,3+d*3: 
PRINT USING"##,###.## S";gehalt (cur,d) :LOC 
ATE 35,3+d*3:PRINT"Gehalt.":NEXT 

3620 LOCATE 3,14:PRINT" Sie liegen";monat 
(cur) ;"Monatsgeh[lter im R’ckstand. " 
3630 z=(gehalt (cur,1)+gehalt (cur, 2)+gehalt 
(cur,3))*monat (cur) :LOCATE 3,16:PRINT" Das 
erg[be insgesamt ";:PRINT USING" ###,###.# 
#";2;:PRINT" $ zu zahlen. " 

3640 LOCATE 3,18:PRINT" << Any key to go o 
n >> ":CALL &BBO6:CLS:GOTO 3540 

3650 ' 

3660 '--Geh[lter zahlen-- 

3670 ' 

3680 CLS#1:GOSUB 1070:GOSUB 3940:IF merk=1 
THEN PRINT CHR$(7):GOTO 3540 

3690 ge(cur)=ge(cur)-((gehalt (cur,1)+gehal 
t(cur,2)+gehalt (cur,3))*monat (cur) ) :GOSUB 
1780 

3700 CLS:LOCATE 3,3:PRINT" ";sp$(cur);",$Si 
e haben Ihre Geh[lter ordentlich gezahlt. 


3710 FOR w=1 TO 1500:NEXT:monat (cur)=0:G0T 
0 3540 

3720 ' 

3730 '--Geh[lter k’rzen-- 

3740 ' 

3750 CLS#1:GOSUB 1070 

3760 CLS#1:LOCATE#1,6,1:PRINT#1," Wessen G 
ehalt k’rzen ? ":PRINT#1 
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[8948] 


[2667] 


[12954] 


[117] 
[1335] 
[117] 
[2331] 


[7523] 


[2253] 
[2959] 


[117] 
[804] 
[117] 
[2785] 


[6531] 


[117) 
[345] 
[946] 
[345] 
[117] 
[3642] 


[7949] 


[3799] 
[4240] 
[117] 

[2289] 


[117] 
[8850] 


[6153] 


[11294] 


[1857] 


[117] 
[1547] 
[117] 
[4008] 


[4078] 


[6668] 


[2591] 


[117] 
[2179] 
[117] 
[793] 
[3840] 


3770 FOR w=1 TO 3:PRINT#1,w;"=> ";hab$ (cur 
‚W) :NEXT:PRINT#1," 4 => Keinem,zum Z-Menue 


3780 ein$="":WHILE ein$="":ein$=INKEY$:WEN 

D 

3790 IF ein$<"1" OR ein$>"4" THEN 3780 ELS 

E ein=VAL(ein$) 

3800 IF ein=4 THEN 3540 ELSE IF hab$(cur,e 

in)="" OR hab$(cur,ein)=SPACE$(14) THEN 37 

60 

3810 LOCATE 4,3:PRINT" ";hab$(cur,ein);" b 

ekommt z.Z. ";:PRINT USING"##,###.##";geha 
lt(cur,ein);:PRINT" $ Gehalt. " 

3820 LOCATE 1,6:INPUT"Um wieviel Dollar m] 

chten Sie sein Gehalt k’rzen ";money 

3830 random=money/10000:IF RND<random THEN 
3870 

3840 IF RND>O.8 THEN 3870 

3850 gehalt (cur,ein)=gehalt (cur, ein)-money 
:GOSUB 3920:LOCATE 1,8:PRINT hab$ (cur, ein) 
;" akzeptiert die Gehaltsk’rzung und bekom 
mt nun";:PRINT"ein Monatsgehalt von";:PRIN 

T USING" ##,###.## $.";gehalt (cur,ein) 
3860 PRINT:PRINT" << Any key to go on >) " 
:CALL &BB06:CLS:GOTO 3760 

3870 a$(1)="das h[tte er nicht verdient.": 
a$(2)="Sie w[ren ein gieriger Geizhals.":a 
$(3)="das w[re eine Frechheit." 

3880 LOCATE 1,8:PRINT hab$(cur,ein);" akze 

ptiert Ihre Gehaltsk’rzung nicht.":PRINT"E 

r meint,";a$(INT(RND*3+1)) 

3890 PRINT:PRINT" Fristlose K’ndigung !! " 

3900 FOR q=1 TO 32:IF player$(we(g))=hab$( 

cur,ein) THEN verk(we(q))=0 ELSE NEXT 

3910 hab$(cur,ein)=SPACE$ (14) :gehalt (cur, e 
in)=0:posil(cur,ein)=0::ge(cur)=ge(cur)+pr 

eisl(cur,ein):preisl(cur,ein)=0:G0SUB 1780 
:GOSUB 1490:CALL &BBO6:GOTO 3540 

3920 IF gehalt (cur,ein)<100 THEN gehalt (cu 

r,ein)=100 

3930 RETURN 

3940 FOR w=1 TO 3:IF hab$(cur,w)=SPACE$ (14 
) OR hab$(cur,w)="" THEN NEXT:GOTO 3950 EL 

SE merk=0:RETURN 

3950 LOCATE 3,3:PRINT"Sie haben keinen ein 

zigen Spieler." 

3960 LOCATE 3,5:PRINT"Wem wollen Sie denn 

da etwas zahlen ?" 

3970 LOCATE 3,7:PRINT"Der Putzfrau viellei 

cht ?" 

3980 FOR wa=1 TO 5000:NEXT:merk=1:RETURN 

3990 ' 

4000 '--Endabrechnung-- 

4010 ' 

4020 FOR w=1 TO 6:ge(w)=ge(w)-((gehalt (w,1 
)+gehalt (w,2)+gehalt (w,3)) *monat (w)):ge(w) 
=ge(w)+preisi(w,1)+preisi(w,2)+preisi(w,3) 
:NEXT 

4030 CLS:LOCATE 20,3:PRINT" Endabrechnung 


4040 PRINT:PRINT"Alle Geh[lter wurden geza 
hlt und die Spieler anschliessend" :PRINT"i 
n Freundschaft entlassen." 
4050 WINDOW #4,1,13,16,21:PAPER#4,1:CLS#4: 
FOR w=1 TO 6:LOCATE 1,8+w:PRINT" ";sp$(w); 
" "3:LOCATE 15,8+w:PRINT USING"#,###,###.# 
# $";ge(w) :NEXT 
4060 FOR w=1 TO 6:IF ge(w)>hi THEN hi=ge (w 
) :zae=w 
4070 NEXT 
4080 LOCATE 3,17:PRINT" Der Sieger heisst 
damit... ";sp$(zae);" !!! ":RESTORE 4100 
4090 READ t,d:IF t=-1 THEN 4110 ELSE SOUND 
1,t,d,13,1:SOUND 2,t+1,d,13,1:G0T0 4090 
4100 DATA 478,15,379,15,319,15,358,15,379, 
15,426,15,379,15,426,15,478,15,426,15,478, 
15,506,15,478,30,379,30,319,30,239,90,-1,- 
1 


4110 WHILE UPPER$ (INKEY$)<>"E":LOCATE 33,1 
1:PRINT"Press 'E' to End !":LOCATE 33,11:P 


RINT SPCiE):UEND RETURN [| 


[3986] 


[2253] 
[2213] 
[3717] 


[5818] 


[7111] 
[2205] 


[606] 
[16571] 


[4436] 


[10476 
[7826] 
[3240] 


[6413] 
[9615] 


[1721] 
[555] 

[5204] 
[4033] 
[4912] 
[4670] 
[1533] 
[117] 

[1071] 


[117] 
[8085] 


[3009] 
[10977] 


[7056] 


[2371] 


[350] 
[7269] 


[3997] 


[5926] 


[6318] 


Sonderheft 5’87 


Bildschirmaufteilung 


Oben links wird das gerade zur Verfügung stehende Geld 
angezeigt. Darunter sieht man den Namen, unter dem der 
Spieler in GUAZUELA als Präsident agiert und daneben 
die Level-Nr. (0: schwach, 5: stark). Oben rechts wird an- 
gegeben, in welchem Vierteljahr man spielt. Darunter 
wird angegeben, in welcher Spielphase bzw. in welchem 
Menuepunkt des Hauptmenues man sich befindet. 


Ablauf 


Das Spiel ist in Vierteljahre gegliedert. Das erste Viertel- 
jahr des Spiels ist Frühling 1965. Ein Vierteljahr läuft fol- 
gendermaßen ab: 


Tagesfrage 

Hier wird von Ihnen eine Ja/Nein-Entscheidung über eine 
gerade aktuelle politische Frage verlangt. Unter Umstän- 
den verursacht eine positive Entscheidung Kosten, die 
dann von dem Ihnen zur Verfügung stehenden Geld abge- 
zogen werden. Negative Entscheidungen sind immer ko- 
stenlos. 


Attentate/Rebellionen/Wahlen/Krieg 

Falls Sie sich den Zorn einer Bevölkerungsgruppe zuge- 
zogen haben, besteht die Gefahr von Attentaten und Re- 
bellionen. Bei Attentaten brauchen Sie Glück, um dem 
Anschlag auszuweichen. Eine Rebellion überstehen Sie 
nur, wenn Sie andere Bevölkerungsgruppen hinter sich 
haben. 


Zu bestimmten Terminen werden Wahlen durchgeführt, 
die Ihnen zeigen, ob Sie im Volk beliebt sind. 


Sollten Sie Ihren Nachbarstaat Conduyana allzu schlecht 
behandelt haben (oder er aus irgendeinem anderen Grund 
kriegslüstern geworden sein), wird er Sie unter Umstän- 
den angreifen. 
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GUAZUELZÄA ist ein Strategiespiel für eine Person. 
Sie spielen die Rolle des Präsidenten eines fiktiven 
mittelamerikanischen Staates. Sie müssen 
versuchen, möglichst lange zu regieren und dabei 
soviel Geld wie möglich auf Ihr Nummernkonto in 
die Schweiz zu schaffen. 


Hauptmenue 


Hier können Sie die Rahmenbedingungen Ihrer Politik 
festlegen und wirtschaften, um den Inhalt der Staatskas- 
se zu vermehren. 


Zu Punkt <0>: 

Sie können die Leistungsfähigkeit Ihrer Wirtschaft da- 
durch beeinflussen, daß Sie sie subventionieren. Das mag 
volkswirtschaftlich gesehen ein Strohfeuer sein, aber Ih- 
nen kommt es ja hauptsächlich darauf an, die Beteiligten 
zufriedenzustellen und Ihr Konto in der Schweiz zu füllen. 


Zu Punkt <1>: 

Sie können Bündnisse schließen und wieder kündigen. 
Wenn Sie ein Bündnis kündigen, können Sie mit dersel- 
ben Großmacht erst nach einer ganzen Weile (bis zu zwei- 
einhalb Jahren) wieder ein Bündnis schließen. Wenn Sie 
mit keiner Großmacht ein Bündnis schließen können (z.B. 
weil Sie ausländische Firmen verstaatlicht haben), wird 
dieser Punkt im Menue nicht mehr aufgeführt. 


Zu Punkt <2>: 

Achten Sie stets darauf, für einen Konflikt mit Conduya- 
na wohlgerüstet zu sein. In diesem Menuepunkt können 
Sie Ihrer Armee Waffen kaufen und damit deren Ausrü- 
stungsstand verbessern. Gelegentlich können Sie sich ge- 
gen Conduyana auch präventiv verteidigen. 


Ein Krieg besteht aus mehreren Schlachten. Je nach 
Kampfstärke beider Nationen bewegt sich der Brennpunkt 
des Krieges mehr und mehr auf die Hauptstadt Ihres Staa- 
tes oder auf Conduyanas Hauptstadt zu. Falls Sie meinen, 
Sie werden den Krieg sicher verlieren, empfiehlt es 
sich, mit <Q> die Aufgabe zu signalisieren. Beachten 
Sie bitte, daß das Programm die laufende Schlacht noch 
beendet. 


Zu Punkt <3>: 

Sie können zwischen 5 Sorten Wertpapieren wählen. Das 
Programm zeigt den Börsenstand graphisch und durch An- 
gabe des $-Preises an. Die Zeile darunter gibt an, wieviel 
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Aktien von jeder Sorte Sie besitzen. Der Kurs hängt von 
der Jahreszeit und von Ihrer Wirtschaftspolitik ab. Er 
bleibt während eines Vierteljahres stabil. 


Zu Punkt <4>: 

Hier können Sie Geld in die Schweiz transferieren und sich 
einen Fluchtweg organisieren. Je länger Sie spielen, de- 
sto teurer wird es, die geeigneten Leute zu bestechen, um 
sich den Fluchtweg zu öffnen. Und denken Sie daran: die 
Schweizer Botschaft braucht einige Zeit, um Ihnen das Vi- 
sum auszustellen! 


Zu Punkt <5>: 

Oberhalb der gestrichelten Linie sehen Sie, wie beliebt Sie 
sind, unterhalb, wie leistungsfähig Ihre Armee und Ihre 
Wirtschaft ist. Es ist nicht einfach, es allen recht zu ma- 
chen! 


Zu Punkt <6>: 

Wenn Sie Spielstände abspeichern wollen, legen Sie eine 
dafür bestimmte Kassette/Diskette ein und wählen Sie die- 
sen Punkt an. 


Zu Punkt <8>: 

Wählen Sie diesen Punkt, wenn Sie meinen, daß Sie für 
dieses Vierteljahr genug getan haben. Sie können auch 
<ENTER> statt<8> drücken. 


für a64-664-6128 | = EEE 


10 'Stellt Guafrag.O her [2086] 
20 MODE 2:PRINT"Bitte Datentraeger bereith [6101] 
alten - GUAFRAG.O wird hergestellt." 

30 OPENOUT"guafrag.O0" [1058] 
40 READ a$:IF a$<»"@" THEN PRINT#9,a$:FOR [2361] 
i=1 TO 10:READ b:PRINT#9,b:NEXT:GOTO 40 

50 CLOSEOUT:PRINT"Fertig" [1621] 
60 DATA"Sollen die Gewerkschaften verboten [4724] 
wer- den?" 

70-DATA . 1, 1,-1,-5, 5, 1,71, 0,2; 0 [1368] 
80 DATA"Sollen Gewerkschaften zugelassen w [3748] 
erden?" 

SO DATA -1,-1, 0, 5,-4,-1,-1., 0,-2, 2 [1321] 
100 DATA"Sollen die Gro”grundbesitzer ente [6016] 
ignet werden?" 

110 DATA -6,-2, 5, 0,-4,-3, 2,4, 0, 1 [1092] 
120 DATA"Soll eine Flurbereinigung durchge [3245] 
£lhrt werden?" 

1302DAT2 =4,202-2,:0,:0, 05 0.:2,00,43 [1441] 
140 DATA"Soll eine allgemeine Wehrpflicht [4243] 
einge- £f}hrt werden?" 

150 DATA -2, 8,-6,-8,-3,-2,-6,-1,-3, 1 [1657] 
160 DATA"Soll die Armee Pre”kommandos eins [8815] 
etzen dirfen, die junge Minner zum Wehrdi 

enst '}berreden' dIrfen?" 

170 DATA -4, 10,-8,-10,-4,-2,-6,-3,-5, 0 [1159] 
180 DATA"Soll die Kirche vom Staat getrenn [8134] 
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Ereignisse 

Gelegentlich passieren Dinge, auf die Sie keinen Einfluß 
haben, die aber Ihr Volk und Sie (und die Staatskasse) sehr 
wohl beeinflussen können. 


Auswertung 

Das Spiel endet ohne Punktwertung, wenn Sie erschossen 
werden. Sollten Sie es schaffen zu flüchten (oder wurden 
Sie dazu gezwungen), wird ein Score berechnet, der sich 
aus der Regierungsdauer und dem in die Schweiz ge- 
schafften Geld ergibt. 


Außerdem werden Ihnen die Highscores angezeigt, die 
bisher erreicht wurden. Wenn Sie nicht mehr spielen wol- 
len, können Sie die sechs High-Scores abspeichern, wenn 
Sie möchten. Bei Kassettenbetrieb verwenden Sie bitte 
eine Extra-Kassette. 


Die Listings 

Geben Sie die Listings 1—4 bitte der Reihe nach ein, und 
speichern Sie sie auf Disk oder Kassette. Listing 1 und 2 
erstellen nach dem Start die Tagesfragen, d.h. sie müssen 
beide vor dem ersten Spiel einmal gestartet werden. Da- 
nach müßten sich auf Ihrem Datenträger die Dateien Gua- 
frag. O und Guafrag. 1 befinden. Nun können Sie das Spiel 
mit RUN“GUAZUELA starten. 


(Thomas Naumann/SH) 


t wer- den und das Recht verlieren, den Ze 
hnteneinzuziehen?" 

LI0U DATA »=2.,70,=2.:.2,.:0,-0; 2,::0..0; 0 

200 DATA"Soll ein Importstop gegen auslind 
ische Agrarprodukte verhi{ngt werden?" 

210 DATA 8, 0, 3,-4,-4, 0,-6, 4, 0, 1 
220 DATA"Sollen Zille auf ausl{ndische Ind 
ustrie-produkte erhoben werden?" 

230° DATA =3; 0,=3, 0, 4, .0,-6; 0, 4,1 

240 DATA"Soll die 40-Stunden-Woche eingef} 
hrt werden?" 

250 DATA -8,-8, 6, 6,-8, 0, 2,-2,-2, 2 

260 DATA"Soll die 50-Stunden-Woche wiedere 
inge- f}hrt werden?" 


[1165] 
[6451] 


[1291] 
[8058] 


[869] 
[3231] 


[1348] 
[4356] 


270.DATA, „5, 5,-6,-6,-5. 0,-2,: 2, 2. 0 

280 DATA"Soll die Kinderarbeit verboten we 
rden?" 

2905DATA 6, 12,6, .6,-3,0, 1, 0,1, 1 

300 DATA"Sollen Sozialwohnungen eingericht 


[1228] 
[3136] 


[773] 
[3927] 
et wer-den?" 

310. DATA. 2,0, 2:6. 4,0, 2. 1, 3.30 
320 DATA"Soll eine allgemeine Krankenversi 
cherungeingef!hrt werden?" 

330. DATA 02 .00.00,22.,70%872,0° 07,20 
340 DATA"Sollen die Nahrungsmittelpreise g 
esenkt werden?" 

350 DATA -8, 1, 0, 8, 2, 0, 0,-4,:4,:0 

360 DATA"Sollen die Nahrungsmittelpreise e 
rh!ht werden?" 

370 DATA 6, 0, 0,-8,-2,-1, 0, 4,-3, 0 

380 DATA"Soll General Conte del Oregano al 
s Ver- teidigungsminister ernannt werden?" 
390 DATA 2, 10, 0,-4,-4,-8, 0, 0, 0,0 
400 DATA"Soll der Notstand ausgerufen werd 
en?" 

410 DATA -2, 7,-2,-6,-3,-7,-4,-2,-2, 1 

420 DATA"Sollen die Kompetenzen des Geheim 


[925] 
[5529] 


[1253] 
[5886] 


[1267] 
[6654] 


[877] 
[7648] 


[1128] 
[2350] 


[1453] 
[5379] 
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dien- stes beschnitten werden?" 

AS0IDATAC 27 6,94, 16.225210, 549 1721,.30 
440 DATA"Soll die Armee atomar bewaffnet w 
erden?" 

ASOFDATA 06 8% 0. 00 2,-27>12,.:05.4,.,10 
460 DATA"Sollen die Befugnisse des Geheimd 
iensteserweitert werden?" 

470 DATA -2,-8,-2,-2,-2, 10,-2,-1,-1, 0 
480 DATA"Soll es verboten werden, die Arme 


e zur Aufrechterhaltung von Ruhe und Ordn 
ung innerhalb der Landesgrenzen einzusetz 
en?" 


490 DATA -4,-8, 2, 2,-6, 6, 2, 0,0, 4 

500 DATA"Sollen Zille abgeschafft werden?" 
SIOSDATA =4.: On .u2m2n Os arı, 21 

520 DATA"Sollen landwirtschaftliche Fliche 
n in Industriegebiete umgewandelt werden 
u 

530 DATA -6, 2,-6, 6, 6, 0,-2,-4, 4, 3 

540 DATA"Sollen den Unternehmern Subventio 
nen ge-w{hrt werden?" 

SSOSDATA. -2,-25 0405 83-03-02 07 23-15 
560 DATA"Soll der Arbeiterfihrer Juan Cele 
stes als Volksverriter hingerichtet werd 
en?" 

570 DATA 4, 4,-4,-10, 7, 6,-6, 0,-2, 0 
580 DATA"Soll eine staatliche Lotterie ein 
gef!hrtwerden?" 

590 :DATA@E2 22405505 432772420, 70410, 0 

600 DATA"Soll die allgemeine Schulpflicht 
einge- £fihrt werden?" 

610 DATA -2, 0, 2, 4,-4,-4, 0,-2,-2, 8 

620 DATA"Soll das Lied "Land der Himmel, L 
and derBerge' als Nationalhymne eingef}hrt 
wer-den?" 

630 CDATR MT 12,027 22752, 10 00 

640 DATA"Soll die Fu”’ballnationalmannschaf 
t unse-res Landes von Ihnen den Orden 'Pou 
r le merite' bekommen, weil sie ins Halbfi 
na-le der Fu”ball-WM vorgesto’en ist?" 
GSORDATA 0,22,5,4442189:0 04107 0010 

660 DATA"”Sollen die Ureinwohner unseres La 

ndes, die Xualtemec-Indianer, in Reservat 

e zu-sammengehalten werden?" 

620 DATA 12. 25=2,=25 2916,10, 03024 

680 DATA"Soll ein Propagandafeldzug fir Eu 

er Ex- zellenz durchgef}hrt werden?" 

690.:DATA.. 25125521512. 242,.:20,,:.048 

700 DATA"Soll eine Kampagne 'Mehr Flei”' g 

estar- tet werden?" 

110 DATA ı 24,122 0.,100,,24,,0,=2, 45 

720 DATA"Soll Ihre Frau das Waisenhaus in 

Ciudad de Guazuela besuchen?" 

130 DATA 0, 0%. AHA 0,4104 10,::07,220 540 

740 DATA"Sollen die Priester der Kirche vo 

n der Kanzel die Gottgef{lligkeit der Reg 

ie- rung Eurer Exzellenz verkInden?" 

750 DATA 0, 0, 6, 4, 0% 0,2; 0, 0, 6 

760 DATA"Soll der Geheimdienst zur Rauschg 

iftbe- kimpfung eingesetzt werden?" 

TINO IDATA 3, 1,22, 1,011 .2208 0,1 202 5 

780 DATA'"Sollen mehr Spione in Conduyana e 
inge- setzt werden?" 

TIOHDATA 7 31482,,.10:°0 4.011 13,555,,0 0, T6 

800 DATA"Sollen f}hrende M{nner der Politi 

k und Wirtschaft durch den Geheimdienst } 

ber- pr}ift werden?" 

810 DATA I=1,-45 11,0, =4, 5,-3,0510482 

820 DATA"Soll jedem hiheren Armeeoffizier 

ein Po-litischer Kommissar beigeordnet wer 

den?" 

ige Nachtleben in unserer Hauptstadt zu u 
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[985] 
[2486] 


[1289] 
[6685] 


[1518] 
[13504] 


[1425] 
[3477] 
[1087] 
[6810] 


[821] 
[7386] 
[974] 
[8804] 
[1020] 
[5856] 


[758] 
[5071] 


[1390] 
[5053] 


[989] 
[15687] 


[913] 
[9965] 


[1192] 
[6835] 


[897] 
[4582] 


[743] 
[3857] 


[1039] 
[8323] 
[1279] 
[7843] 


[1054] 
[5441] 


[1092] 
[9072] 


[1178] 
[8911] 


830: DATA 1 0,-5.,,0.,10:,0.45:420., 10.4054 

840 DATA"Sollen die Spielschulden von Caes 
ar de Buonviega, dem Chef des Geheimdiens 
tes, }bernommen werden?" 

850 DATA -1,-1,-3,.-3:-1. 6,0, :0, 0.10 

860 DATA"Die Armee wInscht, da” der Marine 
st}tz- punkt Incarcion an der Nordk|ste un 
seresLandes ausgebaut wird." 

870: DATA. 0,4; 9 ,,.=15:02 10..531,.10:5,0.5 410 
880 DATA"Sollen neue Boden-Luft- und Luft- 

Luft- Raketensysteme angeschafft werden?" 
890: DATA 1, 8.2141, :04-0526.0-0;. 05,80 
900 DATA"Soll der Sold erhiht werden?" 

910 DATA -1, 6,-1,-1,-1,-1, 0, 0, 0,5 

920 DATA"Soll eine Kampagne 'The Army Want 
s You!'gestartet werden?" 

30 :DATA-3 56, 1,2103 4,0052, 

940 DATA"In Tonuela haben randalierende So 
ldaten Zivilisten zusammengeschlagen und F 
rauenvergewaltigt. Soll ein Exempel statui 
ertwerden?" 

SSU:DATA. 1,659, 35. 4,.1.10,02,0,440 

960 DATA"Sollen Insektengifte verboten wer 
den?" 

970 DATAS=4..05=2,20,=1550550,=14,0420 

980 DATA"Soll den Gro’grundbesitzern die n 
iedere Gerichtsbarkeit genommen werden?" 
990..DATA. 5. 0.,:5,, 1..0,.:0,x0,=1gr 0, 0 
1000 DATA"Viele Landarbeiter zichten als N 
ebener- werb Mohn, um daraus Haschisch und 
Mari-huana zu gewinnen. Soll das in Zukun 
ft untersagt werden?" 

L010: DATA al 222 iD 
1020 DATA"Soll das Farbfernsehen eingef}hr 
t wer- den?" 

L0O30.:DATA, 1.01.2802 hear 5 
1040 DATA @ 
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[894] 
[7673] 


[975] 
[10858] 


[1015] 
[7236] 


[1557] 
[2114] 
[1073] 
[5694] 


[1072] 
[12074] 


[1340] 
[3506] 


[1546] 
[9677] 


[1306] 
[12615] 


[1728] 
[3010] 


[1504] 
[215] 


10 'Stellt Guafrag.1 her 

20 MODE 2:PRINT"Bitte Datentraeger bereith 
alten - GUAFRAG.1 wird hergestellt." 

30 OPENOUT"guafrag.1" 

40 READ a$:IF a$<>"@" THEN PRINT#9,a$:FOR 
i=1 TO 10:READ b:PRINT#9,b:NEXT:GOTO 40 

50 CLOSEOUT:PRINT"Fertig" 

60 DATA"Soll fir alle eine Altersrente ein 
ge- f}hrt werden, die aus der Staatskass 
e finanziert wird?" 

TOSDATAUDT, 1,028,29,1,..12.15,..0,5,0,,,%20 

80 DATA'"Wollen Sie die berIhmte Schauspiel 
erin Carmencita Villiaga heiraten?" 
SORDATANO, 0,.8,.5:.10,=2,::02.:05::0,50 

100 DATA"Soll in der Romero-Halle die Popg 
ruppe "Big Swindle' auftreten?" 
LIOVDATANS1,2L, Ir 4750.:0:40,7070 554 

120 DATA"Soll die Kfz-Steuer abgeschafft w 
erden?" 

LIOTDATAAOE 510, 8324 451,.10,,00 00 el 
140 DATA"Soll die Todesstrafe abgeschafft 
werden?" 

150’DATA -3,-4, 1,01,*2,*3,00,°0,°0,00 

160 DATA"Soll der Bitte der katholischen K 
irche, strenger durchzugreifen, um das }pp 


[1918] 
[5837] 


[1064] 
[2361] 


[1621] 
[9040] 
[1311] 
[5550] 


[949] 
[3510] 


[1460] 
[2765] 


[902] 
[3461] 


[1072] 
[11485] 
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n- terbinden, stattgegeben werden?" 

170 DATA 3,-2, 3,-1,-1, I; 0, 0, 0, 3 
180 DATA"Soll mehr Geld gedruckt werden?" 
190 DATA=2, I, 2, 2,-2, 0, TeI-T2E 

200 DATA"Sollen die Kreditzinsen der Banca 
Nacio-nal gesenkt werden?" 

210 DATA 3; D; I g; 4, 9,1; 0, 2, 6 
220 DATA"Sollen diplomatische Beziehungen 
zu Con-duyana aufgenommen werden?" 
230°DATAN 15-1, 2, 07 °2,7-3, AT Te 

240 DATA"Sollen die diplomatischen Beziehu 
ngen zuConduyana abgebrochen werden?" 
Z50DATA 1, 1,%0,°70,=25 3,4 =1=27.10 

260 DATA"Soll die Zensur verstirkt werden? 


270 DATA 3, 4,-3,-5, 4, 4,-2, 0,-1, 3 

280 DATA"Soll den bedingungslosen Rational 
isie- rungspl{nen der Unternehmer zugesti 

mnt werden?" 

290 DATA 0, 0, 0,-5, 5, 0,-1, 0, 3, 0 

300 DATA"Soll unser Land dem Mittelamerika 
-Pakt beitreten?" 

SION DATK 1.932°0, 0, 2A 0 00 

320 DATA"Wird Euer Exzellenz Seine Kinigli 
che Ho-heit Prinz Jose von Conduyana enpfa 

ngen?" 

330 DATA. 0,=2, 0: PFLET, 57070710 

340 DATA"Wollen Euer Exzellenz einen neuen 
Orden,den des Verdienten Volksgenossen, s 
tif- ten?" 

350 ’DATA 0,70%: 17170 07°02.0, 1001 

360 DATA"Soll dem Murren der Arbeiter Geh! 
r ge- schenkt werden, die sicherere Arbei 
ts- plitze fordern?" 

310. DATA ı=1, 0, 1..4=-4;0,.0.:0,-1, 2 

380 DATA"Soll das Stra”ennetz unseres Land 
es aus-gebaut werden?" 

330: DATA, al, 1, 5.10, 0, L, 5. 322 
400 DATA"Sollen ausl{ndische Fluggesellsch 

aften Landerechte in unserem Land bekomme 

n?" 

410 :DATA -,0,72,::0450,4:3.=1,24:4,02322:440 

420 DATA"Wollen Euer Exzellenz der Premier 

e von "Guter Mond', dem neuesten Stck de 

s so-zialistischen Dichters Giorge Henricu 
»  beiwohnen?" 

430: DATA) -3,=3,°2.4,-35=3,:1,:0, 0, 0 

440 DATA"Soll der Bitte der Gro”grundbesit 
zer, aufs{ssige Bauern hirter zu bestraf 

en, stattgegeben werden?" 

ASOSDRETA 4, 1,=5,-1, 1, 2,-1,21;30,°0 

460 DATA"Soll die amerikanische Gesellscha 
ft Dry-Oil das Recht bekommen, die Erd!lvo 

rri- te des Landes ausbeuten zu d}rfen?" 
ATO-DATA=2,=2,=1; 0,-2,-1, 91,0; 0,0 

480 DATA"Soll Frauen der Zugang zu !ffentl 
ichen L[mtern gestattet werden?" 

AIOTDATR = 3,=4,.1,..4,:.0,.0,..1,.0,.0,.0 

500 DATA"Soll Eurer Exzellenz ein neuer Pa 

last gebaut werden?" 

SIOEDATA 1, 2, .,0,-3;=1..0-0,:,0,.0,,2 

520 DATA"Soll dem Geheimdienst verboten we 

rden, ohne richterlichen Beschlu” das Tel 

efon-netz anzuzapfen und Briefe zu !ffnen? 

S30-.DATA. 3,0, 3, 5..5,=6,0,.:0,.:0, 0 

540 DATA"Sollen an alle Kinder Luftballons 
mit der Aufschrift 'Viva Excellenza' au 

sge- geben werden?" 

SSOTDATA 0,20, 09,03, 20,23,520,10,10,53 

560 DATA"Soll die Kunstd/ngung erlaubt wer 

den?" 
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[1253] 
[3373] 
[832] 

[6111] 


[899] 
[7652] 


[1010] 
[6893] 


[1374] 
[1843] 


[1242] 
[6898] 
[1352] 
[3623] 
[1336] 
[6534] 


[1377] 
[8203] 


[1260] 
[9684] 


[1204] 
[6656] 
[1177] 
[7640] 


[878] 
[9446) 


[1076] 
[9557] 


[923] 
[9361] 


[1135] 
[4797] 


[1371] 
[4666] 


[1316] 
[11547] 


[921] 
[9895] 


[1014] 
[4461] 


570 
580 


DATAX A, 0, 27,°0,20,,0,005 44.0440 

DATA"Soll den Gro’grundbesitzern verbo 
ten werden, ein Feld linger als zwei Ja 

hre hintereinander zu bestellen?" 
SYOSDATA =3, 0,-2,.0, 05-05 07 45 05 0 

600 DATA"]berschwemmungen haben den Gro’”gr 

undbe- sitzern hohe Verluste bereitet. Sol 
len sie aus Staatsmitteln ausgeglichen we 
r- den?" 

GLO-DATALEG 20. 2:40,00 5:05.05234530:.4.12 
620 DATA"Sollen alle Conduyaner ohne Auswe 
is ver-haftet und zu Zwangsarbeit verurtei 
lt werden?" 

6305DATRT 24,3; 0,:0.:45:25-10, :0,204.10 

640 DATA"Soll eingef}hrt werden, da” den A 
rmen des Landes eine warme Mahlzeit am T 

ag garantiert wird?" 

650 DATA. =3, 3.:3,-.5,=3,.:0..0,.0, 0,58 

660 DATA"Soll unser Land eine neue Verfass 
ung be-kommen, in der die Menschenrechte g 

aran-tiert werden?" 

GTOTDATA.-2;-4, 57 57-472, 270, 050 

680 DATA"Soll die Selbstverwaltung der Dir 
fer ab-geschafft und statt der Dorf{lteste 

n Regionalkommissare eingesetzt werden? 
690 EDATAT=34..37=55410 0.140 2410, 

700 DATA"Soll es den Schulen zur Pflicht g 
emacht werden, in jedem Klassenzimner ein 

Bild von Ihnen aufzuhingen?" 

TLOVDATA -0,:3,=-2:=2, 0,5735 05:0n08 1 

720 DATA"Geben Euer Exzellenz den Auftrag, 
ein neues Verfahren zur Herstellung von 
Ke- rosin zu entwickeln?" 

TSVUEFDATA 0,.2,.0, 32.4, 0.0..0,.359 

740 DATA'"Sollen alle Raketen der Arnee ver 
schrot-tet und die Truppenzahl verringert 

wer- den?" 

TO DATRTU07=2750,.235.0783,.840204 1 

760 DATA"Soll unser Land eine Mannschaft z 
u den Olympischen Spielen schicken?" 
AHORDATAS 0.770,.03,,.23:200170,=2, 3070712 

780 DATA"Soll den Gro’grundbesitzern das ' 

Recht der ersten Nacht' genommen werden?" 
T3OSDATR +45 09509 180504 02:04.07:0 

800 DATA"Soll der 4. Mirz - der Jahrestag 
der Machtergreifung Eurer Exzellenz - z 

um allgemeinen Feiertag erklirt werden?" 
810 DATA -3, 0, 4, 4,-4, 1,-1,-1,-1, 0 

820 DATA"Der Minister f}r Landwirtschaft u 
nd For-sten, Oberst Coutinho, hat vor Geri 
cht einen Meineid geschworen, als er gefr 
agtwurde, ob er Bestechungsgelder angenon- 
men hat. Soll er entlassen werden?" 
B3UTDATAT 3,3, 12, 31, 187102 28, 208 0,20 

840 DATA"Wollen Euer Exzellenz eine allgem 
eine Pockenschutzimpfung einf}hren?" 
SSUSDATA 29 2), 20 2, 2P U, 0 4s 103 

860 DATA"Sollen die traditionellen Ma’e ab 
ge- schafft und das metrische System ei 
nge- fihrt werden?" 

SIQSDATA 02 ,3,=2, 0, 3:.:040::04 2512 

880 DATA"Soll dem Trinkwasser Fluor zur Ve 
rhin- derung der weitverbreiteten Zahnf/{u 
le zugesetzt werden?" 

2390 -DATA. 12024,30410: 1410 3:0:20 10.4102 

900 DATA"Soll neben dem Staatsrundfunk ein 
e pri- vate Radiostation den Betrieb aufne 
hmen d}rfen?" 

910 DATA E10 7-17 1422705773 41000,, 100 

920 DATA"Soll die Alkoholsteuer abgeschaff 

t wer- den?" 
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[1203] 
[13527] 


[484] 
[8767] 


[1532] 
[10589] 


[1499] 
[8222] 


[966] 
[7888] 


[961] 
[8441] 


[1318] 
[12531] 


[1273] 
[17740] 
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[5262] 
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930. DATAGST. ZI FA 1,51 0 EEE 
940 DATA"Soll der Guazuela-Peso aufgewerte 
t wer- den?" 


[1540] 
[3453] 


SSOLCDATAL= 20,0, 11, = 0, 3507110 [1403] 
960 DATA"Soll der Guazuela-Peso abgewertet [3817] 
wer- den?" 
910. DATA2L 3.207 204, 0424 5,0: Aal ne [700] 
980 DATA"Der Birgermeister von Casella, ve [16802] 
rmut- lich ein heimlicher Oppositioneller 
wurde vom Geheimdienst ermordet. Soll 
eine Untersuchungskommission eingesetzt 
werden?" 
IIOIDATAMiO 70502404, 7056, 72,,0 0 [1555] 
1000 DATA"Soll der !ffentliche Nahverkehr [7413] 
zum Nulltarif angeboten werden?" 
10102DATA: 0,.0,.3, Bd: 0,50320 523 [1032] 
1020 DATA"Sollen Ergebnisse der milit{risc [10379] 
hen For-schung der Industrie kostenlos zur 
Ver- £f}gung gestellt werden?" 
1030°DATA 0, 0, 0, 0, 3; 0, 0, Orwaase [1612] 
1040 DATA @ [215] 


[1523] 
[800] 

[1897] 
[484] 

[3463] 
[1398] 
[5707] 


10 "Guazuela v 2.2 vom 1. 3. 87 

20 "Poke-Plan: a=himem 

30 'a+1 bis at4: inks 0 ... 3 

40 'a+5: level 

50 "at6: highscores laden (ja=1, nein=0) 

60 'a+8 bis a+22: Name (15 Buchstaben) 

70 'a+23 bis at54: Staedtekoordinaten st (i 
‚J) - st(1,0) *LowB, HighB*, st(1,1) *LowB 
» HIGHB*,. SE.(2,0).., 

80 '"at55 ... a+534: Grafikdaten 

90 MODE 1:FOR i=0 TO 3:INK i,0:NEXT:LOCATE 
1,25:PRINT">":LOCATE 40,25:PRINT"<"; 

100 WINDOW#0,1,40,4,24:WINDOW#1,1,19,1,1:W 

INDOW#2,21,40,1,1:WINDOW#3,3,38,25,25:WIND 

OW#4,21,40,2,2:WINDOW#5,1,19,2,2:WINDOW#6, 

1,40,3,24:farbe0=0:farbel=24:farbe2=20:far 

be3=16 

110 el$=CHR$ (200) :eg$=CHR$ (200) :e$=CHR$ (20 

0):DIM schwierig$ (5) :name$="HURTADO" 

120 DATA ]bung ‚Neuling, Provinzpolitiker,,Er 

nsthafter Versuch ‚Profi,"Selbstmirder" 

130 RESTORE 120:FOR i=0 TO 5:READ schwieri 

g$(i) :NEXT 

140 PEN#1,2:PEN#2,3:PEN#3,0:PEN#4,1:PAPER# 

1,3:PAPER#2,2:PAPER#3,1:PAPER#4,3:PAPER#5, 
2:PEN#5,0 


[1213] 
[4901] 


[10457] 


[3213] 
[5073] 
[2764] 


[6103] 


150 GOSUB 230 [935] 

160 OPENOUT"d":MEMORY HIMEM-1:CLOSEOUT:a=H [4217] 
IMEM:MEMORY a-535:a=HIMEM 

170 POKE a+5,1:POKE a+6,0:G0OSUB 1320 [1888] 
180 GOSUB 1200:G0SUB 1220 [1274] 
190 DATA 148,313,188,325,228,271,288,265,3 [3210] 
54,251,382,301,396,329,456,289 

200 RESTORE 190:FOR i=1 TO 8:FOR j=0 TO 1: [6743] 
READ st (i,j):POKE a+23+((i-1)*2+j)*2,st(i, 

J)MOD 256:POKE at23+((i-1)*2+j)*2+1,st(i,j 

)\ 256:NEXT:NEXT 

210 RUN" !qgua" [436] 

220 'Symbole [369] 

230 SYMBOL AFTER 0:SYMBOL 48,124,134,138,1 [3149] 
46,162,194,124,0 

240 SYMBOL 49,16,48,80,16,16,16,56,0 [2605] 
250 SYMBOL 50,124,130,2,12,112,128,254,0 [1835] 
260 SYMBOL 51,120,132,2,12,2,132,120,0 [2390] 
270 SYMBOL 52,128,128,136,254,8,8,8,0 [2222] 
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SYMBOL 
SYMBOL 


53,254,128,128,124,2,2,252,0 
54,124,128,128,252,130,130,124, 


[2649] 
[2477] 


SYMBOL 
SYMBOL 


55,254,2,4,8,16,16,16,0 
56,124,130,130,124,130,130,124, 


[1646] 
[2378] 


SYMBOL 
SYMBOL 
SYMBOL 


57,124,130,130,126,2,130,124,0 
65,16,40,68,130,254,130,130,0 
66,248,132,132,252,130,130,252, 


[2408] 
[2330] 
[2359] 


SYMBOL 67,126,128,128,128,128,128,126, [1880] 


SYMBOL 68,252,130,130,130,130,130,252, [2392] 


370 SYMBOL 69,254,128,128,240,128,128,254, [2095] 
0 

380 SYMBOL 70,254,128,128,240,128,128,128, [2567] 
0 

390 SYMBOL 71,126,128,128,142,130,130,124, [2365] 
0 

400 SYMBOL 72,130,130,130,254,130,130,130, [3106] 
0 

410 SYMBOL 73,16,16,16,16,16,16,16,0 [1645] 
420 SYMBOL 74,16,16,16,16,16,16,96,0 [1854] 
430 SYMBOL 75,136,144,160,192,160,144,136, [2812] 
0 

440 SYMBOL 76,128,128,128,128,128,128,254, [2329] 
0 

450 SYMBOL 77,130,198,170,146,130,130,130, [2969] 
0 

460 SYMBOL 78,130,194,162,146,138,134,130, [2354] 
0 

470 SYMBOL 79,124,130,130,130,130,130,124, [1864] 
0 

480 SYMBOL 80,252,130,130,252,128,128,128, [1697] 
0 

490 SYMBOL 81,124,130,130,130,130,146,124, [2162] 
4 

500 SYMBOL 82,252,130,130,252,136,132,130, [1711] 
0 

510 SYMBOL 83,126,128,128,124,2,2,252,0 [1802] 
520 SYMBOL 84,254,16,16,16,16,16,16,0 [2520] 
530 SYMBOL 85,130,130,130,130,130,130,124, [2234] 
0 

540 SYMBOL 86,130,130,130,130,68,40,16,0 [2298] 
550 SYMBOL 87,130,130,130,130,130,84,40,0 [2047] 
560 SYMBOL 88,130,68,40,16,40,68,130,0 [2134] 
570 SYMBOL 89,130,68,40,16,16,16,16,0 [2096] 
580 SYMBOL 90,254,4,8,16,32,64,254,0 [1740] 
590 SYMBOL 97,0,0,120,4,124,132,124,0 [1956] 
600 SYMBOL 98,128,128,252,130,130,130,252, [2240] 
0 

610 SYMBOL 99,0,0,126,128,128,128,126,0 [2114] 
620 SYMBOL 100,2,2,126,130,130,130,126,0 [1933] 
630 SYMBOL 101,0,0,124,130,254,128,126,0 [1864] 
640 SYMBOL 102,24,32,32,48,32,32,32,0 [1722] 
650 SYMBOL 103,0,0,124,130,130,126,2,252 [2160] 
660 SYMBOL 104,128,128,252,130,130,130,130 [2098] 
A) 

670 SYMBOL 105,0,16,0,16,16,16,16,0 [1539] 
680 SYMBOL 106,0,16,0,16,16,16,16,96 [1628] 
690 SYMBOL 107,64,64,72,80,96,80,72,0 [1860] 
700 SYMBOL 108,32,32,32,32,32,32,24,0 [1534] 
710 SYMBOL 109,0,0,236,146,146,146,146,0 [2307] 
720 SYMBOL 110,0,0,124,66,66,66,66,0 [1957) 
730 SYMBOL 111,0,0,124,130,130,130,124,0 [1866] 
740 SYMBOL 93,130,0,130,130,130,130,124,0 [2097] 
750 SYMBOL 91,146,40,68,130,254,130,130,0 [1859] 
760 SYMBOL 92,130,124,130,130,130,130,124, [2281] 
0 

770 SYMBOL 123,0,132,120,4,124,132,124,0 [2700] 
780 SYMBOL 124,0,130,124,130,130,130,124,0 [2393] 
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790 SYMBOL :09..0,252.130,.130,252,.1283.128 
800 SYMBOL 113,0,0,126,130,130,126,2,2 

810 SYMBOL 114,0,0,88,96,64,64,64,0 

820 SYMBOL 115,0,0,126,128,124,2,252,0 

830 SYMBOL 116,32,32,112,32,32,32,24,0 

840 SYMBOL 117,0,0,66,66,66,66,62,0 

850 SYMBOL 118,0,0,0,130,68,40,16,0 

860 SYMBOL 119,0,0,130,130,146,170,68,0 
870 SYMBOL 120,0,0,68,40,16,40,68,0 

880 SYMBOL 121,0,0,130,68,40,16,32,64 

890 SYMBOL 122,0,0,124,8,16,32,124,0 

900 SYMBOL 58,0,0,0,16,0,16,0,0 

910 SYMBOL 44,0,0,0,0,0,8,16,32 

920 SYMBOL 46,0,0,0,0,0,0,16,0 

930 SYMBOL 63,120,4,4,56,32,0,32,0 

940 SYMBOL 33,16,16,16,16,16,0,16,0 

950 SYMBOL 125,0,0,66,0,66,66,62,0 

960 SYMBOL 126,60,66,66,92,66,66,92,64 

970 SYMBOL 238,129,195,102,24,24,36,66,129 
980 "Tasten umbelegen 

990 KEY DEF 17,1,125,93 

1000 KEY DEF 19,1,123,91 

1010 KEY DEF 22,1,124,92 

1020 KEY DEF 26,1,124,92,64 

1030 KEY DEF 24,1,126,94,0 

1040 RETURN 

1050 'Geldanzeige . 

1060 CLS#1:PRINT#1,USING fo$;ge!;:RETURN 
1070 "Warten auf Taste 

1080 WHILE INKEY$<>"":WEND:PRINT CHR$S(7);: 
MID$(eg$,1,1)=CHR$ (200) 

1090 MID$(eg$,1,1)=INKEY$:IF eg$=CHR$ (200) 
THEN 1090 

1100 MID$(e$,1,1)=eg$:MID$(el$,1,1)=LOWER$ 
(eg$) :en=ASC (eg$)-48 

1110 IF el$="j"OR el$="y"THEN ja=-1 ELSE j 
a=0 

1120 SOUND 1,0,2,5,,,31:PAPER#3,0:CLS#3:PA 
PER#3,1:RETURN 

1130 "Taste druecken 

1140 CLS#3:PRINT#3,TAB(7) ;"<TASTE> dricken 
"1:GOSUB 1080:RETURN 

1150 'Zifferntaste druecken 

1160 CLS#3:PRINT#3,TAB (6) ;"Zifferntaste dr 
Icken";:GOSUB 1080:RETURN 

1170 'Ja/Nein-Abfrage 

1180 CLS#3:PRINT#3,TAB(3);"<J) £fir Ja - <N 
> £}r Nein";:GOSUB 1080:RETURN 

1190 "Bitte warten 

1200 CLS#3:PRINT#3,TAB(10) ; "BITTE WARTEN!" 
;:RETURN 

1210 'Grafikdaten einpoken 

1220 RESTORE 1250:i=55 

1230 READ k:IF k=999 THEN 1240 ELSE POKE a 
+i,k MOD 256:POKE a+ti+1,k\256:READ k:POKE 
atit2,k MOD 256:POKE ati+3,k\256:i=i+4:G0T 
0 1230 

1240 RETURN 

1250 DATA 8,365,631,365,631,195,8,195,8,36 
5,52,343,62,347,76,345,78,341,76,333,72,32 
9,174,325,84,327,86,323,98,333,104,349,130, 
351,132,345,156,347,186,337,186,327,192,33 
1,196,347,244,341,244,339,260,341,272,351, 
286,337,300,337,310,325 

1260 DATA 308,319,302,315,304,309,308,297, 
306,285,304,273,308,259,310,249,298,245,28 
4,255,266,275,252,269,256,243,244,219,244, 
229,230, 223,216,227,220,235,222,237,218,24 
1,202,241,202,237,192,235,158,229,136,247 
1270 DATA 114,241,98,261,100,283,108,287,1 
02,297,84,301,68,311,54,313,50,325,52,343 
1280 DATA 312,323,314,335,312,343,324,347, 
346,351,392,335,406,349,440,351,466,343,46 


158 EPE 


[2242] 
[2147] 
[2464] 
[2447] 
[1710] 
[2384] 
[1916] 
[1990] 
[1834] 
[1799] 
[1936] 
[2170] 
[2044] 
[1822] 
[1727] 
[1523] 
[2008] 
[1593] 
[2409] 
[859] 

[746] 

[1140] 
[1264] 
[765] 

[1480] 
[555] 

[1447] 
[3570] 
[733] 

[4842] 


[3260] 
[3339] 
[1815] 
[3359] 


[657] 
[4198] 


[1996] 
[5381] 


[2122] 
[4795] 


[1984] 
[2663] 


[1161] 
[751] 
[9855] 


[555] 
[10370] 


[10554] 


[4374] 


[12723] 


8,337,466,331,456,319,456,319,458,305,472, 

305,474,301,486,287,500,289,512,307,518,31 

5,510,333,502,339,502,351,508,359,522,361, 

532,365 

1290 DATA 552,365,554,353,556,335,544,323, 

546,305,554,293,566,285,566,273,554,267,53 

0,271,530,253,514,251,484,235,458,251,438, 

253,420,261,406,277,392,273,380,257,374,23 

9,362,225,344,225 

1300 DATA 344,227,348,231,356,245,342,249, 

326,239,300,233,288,253,999 

1310 "Einstellungen 

1320 FOR i=0 TO 5:CLS#i:NEXT:PRINT#2,"VORE 

INSTELLUNGEN" 

1330 LOCATE 10,1:PRINT CHRS$(24);"GUAZ 

UELA ";CHR$(24); 

1340 LOCATE 10,4:PEN 2:PRINT"von Thomas Na 

umann":LOCATE 10,6:PRINT"Mirz 1987 - v 2.2 

":PEN 1 

1350 PRINT:PRINT 

1360 LOCATE 1,9:PRINT"<O> Anleitung":PRINT 
:PRINT"<1> Monitor: ";:PEN 2:IF farbe2=9 T 

HEN PRINT"Farbmonitor" ELSE PRINT"Gr}nmoni 

tor" 

1370 PEN 1:PRINT:PRINT"<2> Level: ";:PEN 2 
:PRINT schwierig$ (PEEK (a+5)) ;CHR$S (18) 

1380 PEN 1:PRINT:PRINT"<3> High-Scores lad 

en: ";:PEN 2:IF PEEK(at6)=1 THEN PRINT"ja 
" ELSE PRINT"nein" 

1390 PEN 1:PRINT:PRINT"<4) Name Eurer Exze 

llenz: ";:PEN 2:PRINT name$ 

1400 PEN 1:PRINT:PRINT"<5> oder <ENTER>: S 


.tart":INK O,£farbe0O:INK 1,farbe1l:INK 2,farb 


e2:INK 3,farbe3:BORDER farbe0:PEN 1:PAPER 
0 

1410 GOSUB 1160:IF el$=CHR$ (13) OR en=5 TH 
EN 5140 

1420 IF en<O OR en>4 THEN 1410 


1430 IF en<>O THEN 5000 

1440 CLS:PEN 2:PRINT" ANLEITUNG" 
:PEN 1 

1450 PRINT 

1460 PRINT"Sie sind Prisident von Guazuela 
‚ einem" 

1470 PRINT"kleinen, ziemlich instabilen S 
taat in" 

1480 PRINT"Mittelamerika. Ihr Ziel ist e 
5; MIg-" 

1490 PRINT"lichst lange zu regieren und da 
bei Ihr" 


1500 PRINT"Nummernkonto in der Schweiz zu 
£}llen." 

1510 PRINT"Dabei m|ssen Sie alle Bev!lkeru 

ngsgrup-" 

1520 PRINT"pen ruhig halten. 
st noch" 

1530 PRINT"nicht alles: 

hat noch" 

1540 PRINT"einen 
n, die" 

1550 PRINT"Operettenmonarchie Conduyana." 
1560 PRINT 

1570 PRINT"Das Spiel gliedert 
uartale." 

1580 PRINT"Jedes Quartal l{uft folgenderma 


"en ab:" 
1590 PRINT 


1600 PEN 2:PRINT"1) Tagesfragen":PEN 1 


Aber das i 
Ihr kleiner Staat 
argwihnischen Nachbar 


sich in Q 


1610 PRINT 

1620 PRINT"F{llen Sie Ihre Entscheidung ] 
ber die" 

1630 PRINT"gerade aktuelle und hei” dis 
kutierte" 
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[8776] 


[2546] 


[1831] 
[3106] 


[3105] 
[4930] 


[743] 
[9144] 


[4505] 


[6422] 


[4134] 


[9638] 


[2863] 
[1388] 
[1517] 
[2345] 


[361] 
[3739] 


[4691] 
[4443] 
[2915] 
[4830] 
[6260] 
[3239] 
[4001] 
[3739] 
[2697] 
[361] 

[3717] 
[3205] 
[361] 

[1909] 


[361] 
[4337] 


[5335] 


0 6:hisc$(i)=SPACE$S (15) :NEXT:tt$=SPACES (15 
):GOSUB 9300:v$=STRING$ (40,"-"):ba$=STRING 
$(20,CHR$ (233)) :inv$=CHR$ (24) 

20 DIM gp$(7),sn$(8) ‚mn$(4),ka$(5),pa$(5), 
mch$ (1) ‚menue$(8),st(8,2),pk(120,1) 

30 £fo$="HH#,#Hh,HaR.#H $":xn$=CHR$ (23) +CHR 
$(1) :x£$=CHR$ (23) +CHR$S (0) :mch$ (0)="USA" mc 
h$(1)="UdSSR":ee$="Euer Exzellenz" 

40 FOR i=1 TO 8:FOR j=1 TO 2:st (i,j)=PEEK( 
him!+23+((i-1)*2+Jj-1)*2)+PEEK (him!+23+((i- 
1)*2+j-1)*2+1)*256:NEXT:NEXT:RESTORE 100:F 
OR i=1 TO 8:READ sn$(i) :NEXT:RESTORE 110:F 
OR i=1 TO 4:READ mn$(i):NEXT:RESTORE 120:F 
OR i=1 TO 5:READ ka$(i):READ pa$(i):NEXT 
50 RESTORE 130:FOR i=1 TO T:READ gp$(i):NE 
XT:RESTORE 140:FOR i=0 TO 8:READ menue$(i) 
:NEXT:FOR i=0 TO 119:pk(i,0)=PEEK (him!+55+ 
i*4)+PEEK (him!+55+i*4+1) *256:pk (i,1)=PEEK( 
him!+55+i%*%4+2)+PEEK (him! +55+i*4+3) *#256:NEX 
T 

60 CLS#6:IF PEEK(him!+6)=1 THEN GOSUB 7800 
:GOSUB 9600:0PENIN"guahigh":FOR i=0 TO 5:L 
INE INPUT#9,hisc$(i) :INPUT#9,hisc (i) :NEXT: 
CLOSEIN:GOSUB 3800 

70 DIM g!(7),p!(T),ma(7),ku!(5),ak(5),kn(4 
),si!(5),bu(1) 

80 sk!=1-0.11*PEEK (him!+5) :FOR i=1 TO T:g! 
(i)=60+INT(RND*90) :p! (i)=30+INT(RND*50) :NE 
XT:kn(1)=1:kn(2)=2:kn(3)=4:kn (4)=55:bu (0)= 
0:bu(1)=0:fe$=")3> Leider nicht miglich. < 
oc" 

90 TEN EITERL TOR. ROHR ERERHER 
=0:5z!=6*sk!:vs=0:ed=0:rn=0:at=INT(3*sk!): 
rv=INT (5*sk!) :bs=0:£fd=3:bv=5000+INT (RND*30 
00*sk!) :c=5000+INT (RND*3000) :mo=4:jr=1964 
100 DATA Ciudad de Guazuela,Incarcion,Case 
l1la,Tonuela,Anchasar,,Diego,Porto Verde,Con 
ducuor 

110 DATA Fr}hling, Sommer ‚Herbst ‚Winter 

120 DATA F. Gonzales,Christdemokr.,J. Feli 
pe,Sozialisten,C. Turandot,,Kommunisten,Gen 
eral Todo,Nationalisten,Dr. Limosa,Liberal 
e 5 
130 DATA Gro’grundb.,Armee,Landarbeiter, Fa 
brikarbeiter ‚Unternehmer ‚Geheimdienst, Cond 
uyana 

140 DATA Wirtschaft, ,Au’enpolitik,Milit{rpo 
litik,"Birse",Schweiz,Lage,Speichern, Bu 
Scores,Nichstes Quartal 

290 'Vorspann 

300 FOR i=8 TO 22:MID$(hisc$ (6) ,i-7,1)=CHR 
$(PEEK (him!+i)) :NEXT:GOSUB 4700:CLS:PRINT" 
Altes Spiel laden?":GOSUB 7600:IF ja THEN 
GOSUB 4900 

490 "Hauptprogramm 

500 RANDOMIZE TIME:CLS:GOSUB 7300:G0SUB 70 
00:IF bs>O THEN kf£f!=0.5/sk!ELSE k£!=1 

510 IF mo=2 THEN kf!=k£!+0.05%sk!ELSE IF m 
o=4 THEN kf!=k£!-0.05*sk! 

520 ku! (1)=p!(7)*0.5%(RND*0.2*sk!+0.9) :ku! 
(2)=p!(7)*0.4* (RND*O.2*sk!+0.9):ku! (3)=p!( 
5)*0.6*(RND*0.2*sk!+0.9) :ku! (4)=p!(1)*0.7% 
(RND*0.2*sk!+0.9) :x!=0:FOR i=1 TO 6:x!=x!+ 
g!(i) :NEXT:x!=x!/60:ku! (5)=x!%*5%* (RND*O.2%*s 
k!+0.9) 

530 FOR i=1 TO 5:ku!(i)=(ku! (i)+60+RND*10) 
*k£!:NEXT 

690 "Kontrollen 

700 IF zz<=fm THEN 900 ELSE IF df<mf THEN 
df=df+1:G0SUB 9300:zz=0:G0TO 900 

710 PRINT"Sie wurden von Ihrem Premier weg 
en Al- tersschwiche abgesetzt.":PRINT:GOT 
0 6000 


[2981] 


[6362] 


[14210] 


[13405] 


[11052] 


[2450] 


[11770] 


[10311] 


[4947] 


[3072] 
[6176] 


[3344] 


[10169] 


[606] 
[5658] 


[1580] 
[3622] 


[3721] 


[12219] 


[1700] 


[661] 
[2352] 


[6601] 


[720 IF ge!»50000000 THEN PRINT ee$;" Premi 


Spiele 


erminister beschlag-nahmt die Staatskasse 
und findet Sie miteinem Teil daraus ab.":P 
RINT:ge!=ge!*RND*0.5+ge!*0.2:G0SUB 7000:G0 
TO 6000 
730 IF (bv>9000 AND RND<O. 2/sk!)OR RND<0.0 
1 OR bv>30000 THEN op=INT (RND* (bv/2)):PRIN 
T"Die Pest fordert ";:PRINT USING"#,###,## 
# ";op*1000; :PRINT"Todesopfer.":bv=bv-op:G 
OSUB 7200 
740 IF (c>9000 AND RND<O.2*sk!)OR RND<0.01 
OR c>30000 THEN op=INT(RND* (c/2)):PRINT"I 
n ";gp$(7);" fallen ";PRINT USING"#,###, ## 
# ";op;:PRINT"Menschen ":PRINT"der Cholera 
zum Opfer.":c=c-op:GOSUB 7200 
890 "Tagesfragen 
900 CLS#2:PRINT#2,"TAGESFRAGEN":t=ta(zz):P 
RINT £fr$(t):PRINT:PRINT ee$;" m!ige entsche 
iden!":PRINT 
910 IF £p!(t,10)>0 THEN x!=(£fp!(t,10)* (z+1 
5*sk!)/(15*sk!))*(0.8+RND*O.2)*1000:PRINT" 
Kosten fir eine positive Entscheidung:'":PR 
INT:PEN 2:PRINT USING" --- #ak,###.## $ 
---";x!:PEN 1 ELSE PRINT"Es entstehen kein 
e Kosten.":x!=0 
920 GOSUB 7600:PRINT:IF ja AND ge!<x!THEN 
PRINT fe$:GOTO 930 ELSE IF ja THEN PRINT"O 
.K.":ge!=ge!-x!:GOSUB 7000: GOTO 940 ELSE P 
RINT"Nun gut!" 
930 FOR i=1 TO 9:£p!(t,i)=-0.5*£fp! (t,i):NE 
XT 
940 FOR i=1 TO 7:g! (i)=g! (i)+£fp!(t,i)*10:N 
EXT:p! (1)=p! (1)+£p!(t,8)*10:p! (5)=p! (5)+fp 
!(t,9)*10:GOSUB 9400:G0SUB 1900: CLS 
1090 "Wahlen 
1100 IF z MOD 15<>8 THEN 1400 ELSE CLS#2:P 
RINT#2,"WAHLEN":PRINT"Der Tag der Wahrheit 
ist heranger|ckt,":PRINT ee$;"! Werden Si 
e die £f{lli-";"gen Wahlen abhalten?":GOSUB 
7600 
1110 IF NOT ja THEN g! (1)=g! (1)+40:g!(2)=g 
1(2)+50:g9!(3)=g!(3)-70:g!(4)=g!(4)-90:g!(5 
)=g!(5):g!(6)=g!(6)+30:g!(T7)=g! (T)-20:G0SU 
B 9400:G0SUB 7900:G0TO 1400 
1120 LOCATE 1,5:PRINT"Es kandidieren fir d 
ie Prisidentschaft unseres Landes:" 
1130 FOR i=1 TO 5:LOCATE 1,7+i:PRINT ka$(i 
);TAB(20);pa$(i) :NEXT:PRINT:PRINT"und ";ee 
$;"1":GOSUB 7200 
1140 CLS:PEN 2:PRINT"Kandidat";TAB(15);"Pa 
rtei";TAB(30) ;"Stimmant.":PRINT:PEN 1 
1150 FOR i=1 TO 5:si! (i)=200-g! (i) :NEXT:x! 
=0:FOR i=1 TO 5:x!=x!+g! (i) :NEXT:x!=x!/5:s 
i!(O)=x! 
1160 si! (1)=si!(1)*(1.5+RND*0.5) :si! (2)=si 
!(2)*(2+RND) :si! (5)=si!(5)*(0.5+RND*0.25): 
si!(O)=si!(0)*(2+RND)*sk!:x!=0:FOR i=0 TO 
5:x!=x!+si!(i):NEXT:FOR i=0 TO 5:si!(i)=si 
!(i1)*100/x!:NEXT 
1170 FOR i=1 TO 5:LOCATE 1,2+i:PRINT ka$(i 
);TAB(15);pa$(i);TAB(30);:PRINT USING"##.# 
";si!(i);:PRINT"%":NEXT:LOCATE 1,9:PRINT e 
e$;TAB(30);:PRINT USING"##.#";:si!(0);:PRIN 
T"%":PRINT 
1180 j=0:m=si!(0):FOR i=1 TO 5:IF si! (i)>m 
THEN j=i:m=si!(i) 
1190 NEXT:IF j=0 THEN PRINT inv$;"Sie sind 
der Wahlsieger!";inv$;:PRINT:PRINT"Herzli 
chen Gl}ckwunsch!":GOSUB 7200:G0TO 1400 
1200 PRINT"Wahlsieger ist ";ka$(j);" von d 
en":PRINT pa$(j):PRINT:PRINT"Wollen ";ee$; 
" ihn als Volksfeind";"hinrichten lassen?" 
:GOSUB 7600:IF NOT ja THEN PRINT:PRINT"Ihn 
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1640 PRINT"politische Frage. Je nachdem, w 

ie Ihre" 

1645 GOSUB 1140:CL$ 

1650 PRINT"Entscheidung ausf{llt, werden T 
eile der" 

1660 PRINT"Bevilkerung zustimmen, ander 
e sich" 

1670 PRINT"{rgern und wieder andere ste 
hen ihr" 

1680 PRINT"gleichg}ltig gegeniber." 

1690 PRINT 

1700 PEN 2:PRINT"2) Steuern":PEN 1 

1710 PRINT 

1720 PRINT"Wenn keine Bev!lkerungsgrupp 
© eine" 

1730 PRINT"Revolution anfacht oder Conduy 
ana Sie" 

1740 PRINT"angreift, gibt Ihnen das S 
teueramt" 

1750 PRINT"einen Bericht. Sie kinne 
n den" 

1760 PRINT"Steuersatz {ndern, aber passen 
Sie auf," 

1770 PRINT"da” Sie Ihr Volk nicht so aus 
pressen," 

1780 PRINT"da” es rebelliert!" 

1790 PRINT 

1800 PEN 2:PRINT"3) Menue":PEN 1 

1810 PRINT 

1820 PRINT"Sie kinnen die Wirtschaft 

durch" 

1830 PRINT"Subventionen firdern, sich G 
eld von" 

1840 PRINT"Schutzm{chten besorgen oder Ihr 
e Armee" 

1850 PRINT"ausr|sten. Sie k!nnen au’erdem 
an der" 

1855 GOSUB 1140:CLS 

1860 PRINT"Birse Aktien kaufen und verkauf 
en, Geld" 

1870 PRINT"in die Schweiz transferieren u 
nd Ihre" 


1880 PRINT"Flucht dorthin vorbereiten. Mit 
L Lage im 

1890 PRINT"kinnen Sie einen Lagebericht an 

fordern," 


1900 PRINT"aber nur, wenn Sie es sich 

mit dem" 

1910 PRINT"Geheimdienst nicht verdorben 
haben." 

1920 PRINT"Au’erdem kinnen Sie sich die a 

ktuellen" 

1930 PRINT"High-Scores ansehen und den Sp 

ielstand" 

1940 PRINT"abspeichern." 

1950 PRINT 

1960 PEN 2:PRINT"4) Bildschirmaufteilung": 

PEN 1 

1970 PRINT 

1980 PRINT"Am oberen Rande des Bildschirm 

s sieht" 

1990 PRINT"man in der ersten Zeile links o 

ben den" 


2000 PRINT"aktuellen Staatskassenstand 
und" 

2010 PRINT"darunter Name und Level (0: sch 
wach, 5;" 

2020 PRINT"sehr stark). Rechts oben 
wird" 

2030 PRINT"angegeben, in welcher Quart 
alsphase" 


2040 PRINT"bzw. Menuepunkt man sich b 
efindet." 


160 EePe 


[5333] 


[894] 
[3395] 


[4748] 
[3684] 
[2723] 
[361] 

[2051] 
[361] 

[5205] 
[3026] 
[3582] 
[4142] 
[4120] 
[3958] 
[2789] 
[361] 

[1687] 
[361) 

[5330] 
[4712] 
[4881] 
[3968] 


[894] 
[4601] 


[6549] 
[2459] 
[4493] 
[3034] 
[4293] 
[2195] 
[4075] 
[2658] 
[361] 

[3403] 


[361] 
[4918] 


[5415] 
[4143] 
[3369] 
[3770] 
[5536] 


[4709] 


2050 PRINT"Darunter steht das Quarta [2518] 
2 I Das" 

2055 GOSUB 1140:CL$ [894] 
2060 PRINT"Programm zeigt Ihnen in der u [5016] 
ntersten" 

2070 PRINT"Zeile an, welche Eingabe es vo [2756] 
n Ihnen" 

2080 PRINT"verlangt." [2003] 
2090 PRINT [361] 
2100 PEN 2:PRINT"5) Besondere Bedienungshi [3856] 
nweise":PEN 1 

2110 PRINT [361] 
2120 PRINT"Statt <N> £]r 'Nein' kinnen Si [2945] 
e immer" 

2130 PRINT"auch die <ENTER)-Taste dricke [5572] 
n. Wenn" 

2140 PRINT"Sie auf der ırse Aktien v [3777] 


erkaufen" 
2150 PRINT"wollen, missen Sie auf die [3948] 
Frage" 
2160 PRINT"'Aktien verkaufen:' eine Lee [2915] 
reingabe" 
2170 PRINT"machen (nur <ENTER> dricken). [4990] 
Wihrend" 
2180 PRINT"eines Krieges k!nnen Sie mit [2950] 
9) wie" 
2190 PRINT" 'Quit' aufgeben und Repa [4370] 
rationen" 
2200 PRINT"zahlen, falls genigend Geld [3595] 
in der" 


2210 PRINT"Staatskasse ist." [2720] 
2220 GOSUB 1140:CLS:G0TO 1330 [1519] 
5000 IF en<>1 THEN 5030 [1238] 


5010 IF farbe2=9 THEN farbe2=20:farbe3=16 [3307] 
ELSE farbe2=9:farbe3=6 

5020 GOTO 1360 [411] 
5030 IF en<>2 THEN 5060 [1251] 
5040 IF PEEK(a+5)=5 THEN POKE a+5,0 ELSE P [3088] 
OKE at5,PEEK(a+5)+1 

5050 GOTO 1360 [411] 
5060 IF en<>3 THEN 5090 [1575] 
5070 IF PEEK(a+6)=1 THEN POKE a+6,0 ELSE P [2104] 
OKE a+6,1 

5080 GOTO 1360 [411] 
5090 FOR i=9 TO 21:LOCATE 1,i:PRINT CHRS(1 [4745] 
8) ;:NEXT:LOCATE 1,9 

5100 PRINT"Den Namen Eurer Exzellenz bitte [5071] 
:":PRINT:INPUT"",name$ 

5110 IF LEN(name$)>15 THEN PRINT:PRINT"Nic [7992] 
ht mehr als 15 Buchstaben!":GOSUB 1140:6G0T 

0 5090 

5120 name$=UPPER$ (nane$) [790] 
5130 FOR i=9 TO 21:LOCATE 1,i:PRINT CHRS(1 [4243] 
8) ;:NEXT:GOTO 1360 

5140 POKE a+l,farbe0:POKE a+t2,farbel:POKE [3806] 
at+t3,farbe2:POKE a+4,farbe3 

5150 IF LEN(name$)<15 THEN name$=name$+SPA [3337] 
CE$ (15-LEN (name$)) 

5160 FOR i=8 TO 22:POKE a+ti,ASC(MID$(name$ [3971] 
‚i-7,1)) :NEXT:RETURN 


10 DEFINT a-z:eg$=CHR$ (200) :e$=eg$:2l$=eg$ [15380] 
:df=0:him!=HIMEM:mf=1:fz=50:DIM £r$(fz),£p 
!(£z,10),ta(£fz),hisc$(6) ,hisc(6):FOR i=0 T 
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en bleibt nur die Flucht...":GOTO 6000 
1210 PEN O:PAPER 2:CLS:LOCATE 10,10:PRINT 
UPPERS$ (ka$(j)):LOCATE 10,12:PRINT"wurde hi 
ngerichtet.":GOSUB 8300:PEN 1:PAPER 0 

1220 g!(j)=g!(j)-60-30/sk!:FOR i=1 TO 5:g! 
(i)=g! (i)-30/sk!:NEXT:g! (6)=g! (6) +40:GOSUB 
9400:G0SUB 7900 

1390 "Revolution? 

1400 FOR i=1 TO T:IF g!(i)<30/sk!THEN ma(i 
)=ma(i)+1 ELSE IF g!(i)>50+50/sk!THEN ma(i 
)=MAX (ma (i)-1,0) 

1410 NEXT:IF rn)O THEN 1700 ELSE GOSUB 840 
0:IF NOT(x!>at AND x!<rv AND RND<0.3/sk!)T 
HEN 1430 

1420 CLS#2:PRINT#2,"ATTENTAT!":CLS:PRINT"E 
in Attentat wurde auf Sie ver|bt.":PRINT:G 

OSUB 8300:RANDOMIZE TIME:IF RND<0.05 THEN 
PRINT"Es war erfolgreich.":PRINT:GOTO 6300 
ELSE PRINT"Gl}ck gehabt!":GOSUB 7200:G0TO 
1800 

1430 IF NOT(x!>=rv AND RND<0.3/sk!)THEN 17 

00 ELSE CLS#2:PRINT#2,"REVOLUTION!":PAPER 
2:PEN O:CLS 

1440 LOCATE 5,3:IF gr<)6 THEN PRINT"Rebell 
ion der ";gp$(gr)ELSE PRINT"Der ";gp$(6) ;" 
inszeniert":LOCATE 5,4:PRINT"eine Revolut 
ion!" 

1450 PRINT:ma(gr)=0:G0SUB 8300 

1460 x!=0:FOR k=1 TO 6:x!=x!+g!(k) :NEXT:x! 
=x!-g! (T):x!=x!/5:h=x!-g!(gr) 

1470 IF h>=100-RND*50*sk!THEN 1490 ELSE LO 
CATE 5,6:PRINT ee$;" sind abgesetzt!" 

1480 IF NOT £fw OR RND<O.1 THEN LOCATE 5,10 
:PRINT ee$;'" wurden erschossen!":GOSUB 720 

O:PEN 1:PAPER 0:CLS:GOTO 6300 ELSE GOSUB 7 
200:PEN 1:PAPER 0:CLS:GOTO 6000 

1490 LOCATE 5,6:PRINT ee$;" haben die":LOC 
ATE 5,7:PRINT"Revoluzzer niedergeworfen!": 

g!(gr)=0:rn=5:PEN 1:PAPER 0:G0SUB 7200 
1690 "Krieg? 

1700 IF c<4000 OR ma(T7)<rv OR g! (7)>30/sk! 

OR RND>O.3/sk!OR p!(7)<50/sk!OR £d>=1 THEN 
1800 

1710 CLS:op!=ge!*RND:PRINT gp$(7);" droht 
Ihnen mit Krieg!":PRINT:PRINT"Michten Sie 
ihn durch einen 'Kredit' ab-wenden (H!he:" 
;ROUND (op! ,2) ;"$) ?" 

1720 GOSUB 7600:IF NOT ja THEN GOSUB 8700 

ELSE ge!=ge!-op!:GOSUB 7000 

1730 IF ed>O THEN 6000 

1790 "Steuern 

1800 CLS#2:PRINT#2,"STEUERN":CLS:PRINT ee$ 
;" Steueramt berichten:":PRINT:PRINT"Bev!l 
kerung:";TAB(25);:PRINT USING LEFT$(£o$,11 
);bv*1000:PRINT:PRINT"Zu versteuern:";TAB( 

25): 

1810 bp!=0:FOR i=1 TO 6:bp!=bp!+g!(i):NEXT 
:bp!=bp!+5*p! (1)+5%p! (5) :bp!=bp!*100:bp!=b 

p!*(0.9+RND*0.2)*bv/6000:PRINT USING £o$;b 

p!:PRINT:PRINT"Steuersatz:";TAB(25) ;:PRINT 
USING LEFT$(£o$,13);sz!;:PRINT" %":PRINT: 

PRINT"Einnahmen:";TAB(25); 

1820 gw!=(bp!/100)*sz!:PRINT USING fo$;gw! 
:LOCATE 1,17:PRINT"Wollen ";ee$;" den Steu 

ersatz {n-";"dern?":GOSUB 7600:IF NOT ja T 

HEN 1850 ELSE as!=sz! 

1830 LOCATE 1,19:PRINT CHR$ (18) ;:INPUT"Neu 

er Steuersatz: ",sz!:IF sz!<O OR sz!»>99 TH 

EN PRINT fe$:GOTO 1830 

1840 FOR i=1 TO 5:g!(i)=g! (i)+as!*10-sz!*1 

2:NEXT:GOSUB 7900:IF sz!>20 AND sz!>as!THE 

N rn=0:FOR i=1 TO 5:ma(i)=at+1:NEXT 

1850 ge!=ge!+gw!:GOSUB 7000 


[8147] 


[5353] 


[867] 
[3150] 


[7150] 


[14012] 


[5736] 


[7205] 


[1368] 
[4295] 


[3815] 


[7797] 


[7981] 


[651] 
[5155] 


[11738] 


[4574] 


[840] 
[434] 
[14054] 


[14904] 


[8687] 


[6120] 


[7075] 


[725] | 
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1990 'Menue 
2000 CLS#2:CLS:PRINT#2,"REGIERUNG":FOR i=0 
TO 8:IF(bu(0)>0 AND bu(1)>0 AND i=1)OR (wh 
>0 AND i=4)THEN 2010 ELSE PRINT USING"<#> 

":i;:PRINT menue$ (i) :PRINT 

2010 NEXT 

2020 GOSUB 7500:IF en=8 OR el$=CHR$ (13) THE 

N 5000 ELSE IF en=0 THEN GOSUB 3500:G0T0 2 

000 ELSE IF en<1 OR en)7 THEN 2020 

2030 ON en GOSUB 2200,2500,2700,3200,8100, 
4800,3800:IF ed THEN 6000 

2040 GOTO 2000 

2190 "Aussenp. 

2200 CLS:CLS#2:PRINT#2,"AUSSENPOLITIK":IF 
bu(0)>0 AND bu(1)>0 THEN PRINT"Bindnisse s 
ind z. Z. nicht miglich!":GOSUB 7200:G0TO 
2330 

2210 PRINT ee$;" haben ";:IF bu(0)<>-1 AND 
bu(1)<»-1 THEN PRINT"kein B}ndnis";"abges 
chlossen!"ELSE PRINT"ein Bindnis mit":IF b 
u(0)=-1 THEN PRINT"den USA abgeschlossen." 
ELSE PRINT"der UdSSR abgeschlossen." 

2220 PRINT:FOR i=0 TO 1:IF bu(i)=-1 THEN P 
RINT:PRINT"Wollen ";ee$;" es kindigen?":GO 
SUB 7600:IF ja THEN bu(i)=5+INT(RND*5/sk!) 
:ks=0:G0TO 2200 

2230 NEXT:PRINT:IF bu(0O)=-1 OR bu(1)=-1 TH 
EN 2270 ELSE PRINT"Wollen ";ee$;" ein BInd 
nis neu";"abschlie”’en?":FOR i=0 TO 1:IF bu 
(i)=0 THEN PRINT USING"<#>";i;:PRINT" mit 
der ";mch$(i) 

2240 NEXT:GOSUB 7500:FOR i=0 TO 1:IF bu(i) 
=0 AND en=i THEN bu(i)=-1 

2250 NEXT:IF en<O OR en>i THEN GOTO 2000 
2260 ks=0 

2270 IF ks>3 THEN 2330 

2280 PRINT:FOR i=0 TO 1:IF bu(i)<>-1 THEN 
2320 
2290 GOSUB 7700:IF q THEN 2320 

2300 IF i=0 THEN a=p! (5)ELSE a=p!(1) 

2310 IF a>100 THEN PRINT"Die ";mch$(i);" i 
st der Ansicht, da” unser":PRINT"Land kein 
e Unterst}tzung braucht.":GOSUB 7200 ELSE 
us=INT (RND*10+3) *1000:ge!=ge!+us:GOSUB 700 
0:PRINT:PRINT"Gew{hrt werden" ;us;"$":ks=ks 
+1:GOSUB 7200 

2320 NEXT 

2330 RETURN 

2490 '"Mil.-pol. 

2500 CLS:CLS#2:PRINT#2,"MILIT[RPOLITIK":PR 
INT"Wollen Sie Waffen kaufen?":GOSUB 7600: 
IF NOT ja THEN 2520 ELSE PRINT:INPUT"F}r w 
ieviel $: ",x!:IF x!>ge!THEN PRINT:PRINT £ 
e$:GOSUB 7200:G60T0 2500 

2510 k=2:G0SUB 8000 

2520 IF £d>O OR c<3000 THEN GOTO 2530 ELSE 
PRINT:PRINT"Wollen Sie ";gp$(7);" }berfal 
len?":GOSUB 7600:IF NOT ja THEN 2530 ELSE 

GOSUB 8700 

2530 RETURN 

2690 "Boerse 

2700 CLS:CLS#2:PRINT#2,"B\RSE" 

2710 PEN 2:PRINT" Condu-";TAB(9);" CMC";TA 

B(17);" Holec";TAB(25);" Fruit";TAB(33);"S 
taats-";:PRINT" copper";TAB(17);" Ltd.";TA 

B(25);" Trade";TAB(33);"anleihen":PEN 1 
2715 MOVE 10,200:DRAWR 0,125,1:MOVE 10,200 
:DRAWR 630,0:FOR i=50 TO 100 STEP 50:MOVE 

6,200+i:DRAWR 8,0,2:NEXT 

2720 FOR i=1 TO 5:a=i*128-100:b=INT (ku! (i) 
/2):MOVE a,200:DRAWR 0,b,1:DRAWR 60,0:DRAW 

R 0,-b:DRAWR-60,0:FOR j=1 TO 29:MOVE a+j*2 
‚200:DRAWR 0,b,3:NEXT:MOVE a,b+200:DRAWR 3 


Spiele 


[1057] 
[10137] 


[350] 
[6269] 


[3302] 


[363] 
[809] 
[10174] 


[13839] 


[9741] 


[13304] 


[3016] 


[2218] 
[288] 

[1294] 
[2969] 


[1533] 
[1268] 
[16296] 


[350] 
[555] 
[729] 
[12602] 


[1161] 
[9608] 


[555] 
[334] 
[1828] 
[11952] 


[4954] 


[13078] 


epc 161 


Spiele 


0,30,2:DRAWR 60,0:DRAWR-30,-30:MOVE a+60,2 

00:DRAWR 30,30:DRAWR O0,b 

2730 LOCATE i*8-5,13:PRINT inv$;i;inv$:LOC 

ATE i*8-7,15:PRINT USING"#RR.##S";kul (i);: 

NEXT 

2740 LOCATE 1,17:PRINT CHRS (18) :FOR i=1 TO 
5:LOCATE i*8-7,17:PEN 2:PRINT USING"###,# 
##";ak(i):PEN 1:NEXT:LOCATE 1,19:PRINT CHR 
$(18);"Welche Aktien kaufen?":GOSUB 7500:I 
F en<1 OR en)5 THEN 2760 

2750 LOCATE 1,19:PRINT CHR$S (18) ;:LOCATE 1, 
19:x!=MIN(32700-ak (en) ‚INT(ge!/ku!(en))):P 

RINT"Wieviele (max.";x!;"): ";:INPUT"",mx! 
:IF mx!>x!THEN GOTO 2750 ELSE ge!=ge!-mx!* 

ku!(en) :GOSUB 7000:ak (en)=ak (en) +mx!:GOTO 
2740 

2760 LOCATE 1,19:PRINT CHRS (18) ;:LOCATE 1, 
19:PRINT"Welche Aktien verkaufen?":GOSUB 7 
500:IF en<1 OR en)5 THEN 2790 

2770 LOCATE 1,19:PRINT CHRS (18) ;:LOCATE 1, 
19:INPUT"Wieviele: ",x!:IF x!>ak(en)THEN G 

OTO 2770 ELSE ak(en)=ak(en)-x!:ge!=ge!+x!* 
ku! (en) :GOSUB 7000 

2780 GOTO 2740 

2790 RETURN 

3190 "Flucht 

3200 CLS:CLS#2:PRINT#2,"FLUCHTWEGE":PRINT" 
Sie haben bisher";:PRINT USING £fo$;su!:PRI 

NT"in der Schweiz.":PRINT:PRINT"Wollen Sie 
Geld transferieren?":GOSUB 7600:PRINT 
3210 IF NOT ja THEN 3230 ELSE INPUT"Betrag 
: ",x!:IF x!>ge!THEN su!l=su!+ge!l:ge!=0 ELS 

E ge!=ge!-x!:sul=sul+x! 

3220 GOSUB 7000:PRINT 

3230 IF £fw THEN 3260 ELSE £f=3:PRINT"Wollen 
Sie einen Fluchtweg einrichten?":PRINT:ko 
!=(z+10)/10*10000:PRINT"Kosten: ";:PRINT U 
SING £o$;ko! 

3240 GOSUB 7600:IF ja AND ge!>=ko!THEN ge! 

=ge!-ko!:GOSUB 7000: £w=-1:PRINT"O.K.":GOTO 
3280 

3250 IF ja AND ge!<ko!THEN PRINT fe$:GOSUB 
7200 

3255 GOTO 3280 

3260 IF £>O AND £fw THEN PRINT ee$;" k!nnen 
noch nicht £flich-";"ten. Noch hat Ihnen d 

ie Schweiz kein Vi-sum ausgestellt.":GOSUB 
7200:G0T0 3280 

3270 PRINT"Wollen Sie £fl}chten?":PRINT:GOS 

UB 7600:IF ja THEN 6000 

3280 RETURN 

3490 "Wirtsch.-pol. 

3500 CLS:CLS#2:PRINT#2,"WIRTSCHAFT":PRINT" 
<1) Subventionen f}r die Agrarwirtschaft"; 
:PRINT:PRINT"<2)> Subventionen fir die Indu 

strie":PRINT:IF NOT vs THEN PRINT"<3) Vers 

taatlichung ausl{ndischer Firmen"; :PRINT 

3510 PRINT"<4> Schmuggel von High-Tech":PR 
INT:PRINT"<5> Zur!ck" 

3520 GOSUB 7500:IF el$=CHR$(13)THEN en=5 E 

LSE IF en<1 OR en)5 THEN 3520 

3530 IF en<>1 AND en<>2 THEN 3560 ELSE IF 

en=1 THEN k=1 ELSE k=5 

3540 CLS:PRINT:INPUT"Wieviel: ",‚x!:IF x!)g 

e!THEN PRINT:PRINT fe$:GOSUB 7200:G0T0 354 

0 

3550 GOSUB 8000:G0TO 3500 

3560 IF en<)3 OR vs THEN 3600 ELSE ge!=ge! 

+RND*30000*sk!+20000:G0SUB 7000:vs=-1 

3570 IF bu(0O)>=0 AND bu(1)>=0 THEN CLS:PRI 

NT"Ausl{ndische Michte distanzieren sich": 

PRINT"von der Ma’nahme ";ee$;".":GOSUB 720 

0:FOR i=0 TO 1:bu(i)=bu(i)+5+INT (RND*5/sk! 


162 EPE 


[4458] 


[12147] 


[16491] 


[6741] 


[7783] 


[391] 
[555] 
[602] 
[11493) 


[6499] 


[858] 
[8448] 


[4165] 


[2292] 


[680] 
[7965] 


[3256] 
[555] 


[671] 
[19276] 


[3930] 
[4251] 
[2994] 
[4026] 
[2452] 
[4472] 
[12366] 


) :NEXT:GOTO 3500 

3580 CLS:FOR i=0 TO 1:IF bu(i)=-1 THEN PRI 

NT"Die ";mch$(i);" sagen sich von unserem 
";"Land los.":bu(i)=bu(i)+INT(RND*5/sk!)+5 

3590 NEXT:GOSUB 7200:G0T0 3500 

3600 IF en<)4 THEN 3620 ELSE CLS:PRINT:IF 

bu(0)<>-1 THEN PRINT"Leider haben ";ee$;" 
Spione kei-";"nen Zugang zu High-Tech-Prod 

ukten bekom-men.":GOSUB 7200:G0TO 3620 
3610 PRINT ee$;" Spione haben Computer-";" 

chips }ber die Botschaft in New York ei 

ngeschmuggelt.":PRINT:PRINT"Der Pr{sident 

der USA ist dar)ber em- pirt.":bu(0)=5+I 

NT(RND*5/sk!):p!(5)=p! (5) +INT(RND*80)+20:G 

OSUB 7200 

3620 RETURN 

3790 "High-Scores 

3800 CLS:CLS#2:PRINT#2,"HIGH-SCORES" :GOSUB 
9700:G0SUB 7200:RETURN 

4690 'Name und Level 

4700 CLS#5:PRINT#5,hisc$ (6) ;PEEK(him!+5);: 

RETURN 

4790 "Speichern 

4800 CLS#2:CLS:PRINT#2,"SPEICHERN" :PRINT"W 
irklich?":GOSUB 7600:IF NOT ja THEN 4840 E 

LSE GOSUB 7800 

4810 OPENOUT"!guasave":PRINT#9,d£f:PRINT#9, 

zz:PRINT#9,z:PRINT#9,ge!:PRINT#9,su!:FOR i 

=1 TO 7:PRINT#9,g! (i) :PRINT#9,p! (i) :NEXT:F 

OR i=0 TO 1:PRINT#9,bu(i) :NEXT:PRINT#9,mo: 

PRINT#9, jr:PRINT#9,sz! 

4820 PRINT#9,c:PRINT#9,bv:PRINT#9,£:PRINT# 
9,£w:PRINT#9,rn:PRINT#9, £fd:PRINT#9,bs:PRIN 

T#9,vs:PRINT#9,sk!:FOR i=0 TO 5:PRINT#9,ku 
!(i):PRINT#9,ak(i) :NEXT 

4830 PRINT#9,£m:FOR i=0 TO £fm:PRINT#9,ta(i 
) :NEXT:CLOSEOUT 

4840 RETURN 

4890 'Laden 

4900 CLS:GOSUB 9600:G0SUB 7800 

4910 OPENIN" !quasave":INPUT#9,d£f£f:INPUT#9, 
zz:z2z=22z+1:INPUT#9,z:z=z+1:INPUT#9,ge!:INP 

UT#9,su!:FOR i=1 TO 7:INPUT#9,g!(i) :INPUT# 
9,p!(i):NEXT:FOR i=0 TO 1:INPUT#9,bu(i):NE 

XT:INPUT#9,mo:INPUT#9, jr: INPUT#9,sz! 


4920 INPUT#9,c:INPUT#9,bv:INPUT#9,£:INPUT# 
9, £w:INPUT#9,rn:INPUT#9, £d:INPUT#9,bs: INPU 
T#9,vs:INPUT#9,sk!:FOR i=0 TO 5:INPUT#9, ku 
!(i) :INPUT#9,ak(i) :NEXT 
4930 INPUT#9,£m:FOR i=0 TO £fm:INPUT#9,ta(i 
) :NEXT:CLOSEIN 
4940 IF df<»d£ff THEN PRINT"Falsche Tagesfr 
agen geladen!":GOSUB 7200:d£f=dff:GOSUB 930 
0 
4950 GOSUB 7000:G0SUB 7300:G0OSUB 4700:RETU 
RN 
4990 "Zufall 
5000 RANDOMIZE TIME:r!=RND:IF r!>0.45 THEN 
5400 ELSE CLS:CLS#2:PRINT#2,"EREIGNIS" 
5010 IF r!>0.02 THEN 5050 ELSE PRINT"Ein E 
rdbeben fordert zahlreiche Todes-":PRINT"o 
pfer!":x!=MIN(99999,MAX (RND*10000,RND*ge!) 
/sk!):PRINT"Es sind ";USING" HH, #H#.## $";x 
!;:PRINT" £}r die Soforthilfe":PRINT"erfor 
derlich.":PRINT 
5020 p!(1)=p!(1)-30:p!(5)=p!(5)-30:g!(6)=g 
!(6)+10 
5030 IF ge!<x!THEN PRINT"Leider haben Sie 
nicht soviel Geld - Sie geben alles, ab 
er zu wenig.":g!(3)=g!(3)-30:g!(4)=g!(4)-3 
O:g!(1)=g!(1)-50:60SUB 9400:G0SUB 7900:ge! 
=0:G0SUB 7000:G0TO 5230 


5040 ge!=ge!-x!:GOSUB 7000:PRINT ee$;" kom [9005] 


[8996] 


[975] 
[9419] 


[18109] 


[555] 
[1009] 
[3412] 


[504] 
[2918] 


[428] 
[5827] 


[13360] 


[7639] 


[3652] 
[555] 
[384] 


[1931] 
[13522] 


[7780] 


[2743] 
[5898] 


[2523] 


[1320] 
[4385] 


[13993] 


[2902] 


[10486] 
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men nicht darum herum,";:PRINT"dem P!bel d 
as Geld vorzuwerfen!":PRINT:g! (3)=g!(3)-15 
:g!(4)=g!(4)-15:60SUB 9400:G0SUB 7900:G0TO 
5230 
5050 IF r!>0.06 THEN 5080 ELSE i=INT(RND*5 
0)+5:PRINT"Der Guazuela-Peso mu’te um";i;" 
% abge-":PRINT"wertet werden.":ge!=ge!-i*g 
e!/100:G0SUB 7000 
5060 IF su!>O THEN PRINT:PRINT"Das betriff 
t zum Gl}ck nicht Euer Exzel-lenz "Notvorr 
at' in der Schweiz!" 
5070 GOTO 5230 
5080 IF r!>0.1 OR ak(1)+ak(2)+ak(3)+ak(4)+ 
ak(5)<100 THEN 5090 ELSE PRINT"Eine Baisse 
wirkt sich verheerend auf die Birsenkur 
se aus.":bs=2+INT(RND*4) :G0OTO 5230 
5090 IF r!»0O.15 THEN 5100 ELSE PRINT"Terro 
risten haben eine der modernsten Fabrike 
n des Landes in die Luft ge- sprengt." 
:p!(5)=p!(5)-20:G0SUB 7900:G0T0 5230 
5100 IF r!>O0.17 THEN 5110 ELSE PRINT"Ein F 
l{chenbrand hat mehr als ein Sechs-tel des 
Ackerlandes vor}bergehend un- fruchtbar 
gemacht.":p!(1)=p!(1)-20:G0SUB 7900:G0TO 
5230 
5110 IF r!»0.19 THEN 5120 ELSE PRINT"Skand 
alise Zustinde in der ";gp$(2);":":PRINT I 
NT(RND*3)+2;"Generale und";INT(RND*8)+2;"0 
bristen mu”ten gehen.":p!(2)=p!(2)-20:60SU 
B 7900:60T0 5230 
5120 IF r!»0.27 THEN 5140 ELSE PRINT"Die B 
eziehungen zu ";gp$(7);" haben sich ";:IF 
RND<0.5 THEN a=-1:PRINT"verschlechtert."EL 
SE a=1:PRINT"verbessert." 
5130 g!(7)=g!(7)+a* (INT(RND*50)+10) :GOSUB 
7900:G0T0 5230 
5140 IF r!»0.32 THEN 5150 ELSE PRINT"Leide 
r haben die Conduyaner wieder un- verdien 
te, aber betr{chtliche wirt- schaftlic 
he Fortschritte gemacht.":p!(7)=p!(T7)+RND* 
50+10:G0SUB 7900:G0T0O 5230 
5150 IF r!»0.37 THEN 5160 ELSE PRINT"Erfre 
ulicherweise haben die Conduyaner Ricksch 
lige auf wirtschaftlichem Gebiet hinnehmen 
missen.":p!(7)=p! (7)-RND*50-10:G0SUB 7900 
:GOTO 5230 
5160 IF r!>O0.42 THEN 5210 
5170 IF bu(0)=-1 THEN PRINT"Die USA bauen 
einen Milit{rst}tzpunkt an der Klste uns 
eres Landes.":p!(2)=p!(2)+10:g!(2)=g!(2)+1 
0:g!(7)=g! (7)-40:g! (6)=g! (6)+10:p! (5)=p! (5 
)+10:g!(5)=g!(5)+10:G0SUB 7900:G0T0 5230 
5180 IF bu(1)<>-1 THEN PRINT"Die Blockfrei 
en kommen in Ciudad del Guazuela zusamm 
en.":GOTO 5230 
5190 PRINT"Die UdSSR unterst}tzen die komm 
unisti- schen Bergguerilleros. Wollen Sie 
das Bindnis aufkIndigen?":GOSUB 7600:IF 
ja THEN bu(1)=2+INT(RND*2) :x!=-1 ELSE x!= 
0.5 
5200 g!(1)=g!(1)-x!*30:FOR i=3 TO 4:g!(i)= 
g!(i)-x!*30:NEXT:g! (6)=g! (6) -x!*30:g! (7)=g 
!(T)+x!%*%30:p!(1)=p!(1)-x!*30:G0SUB 9400:60 
SUB 7900:G0T0 5400 
5210 IF su=0 OR r!>0.45 THEN 5400 ELSE PRI 
NT ee$;" Hausbank in der Schweiz";"teilt m 
it, da” sie Euer Guthaben mit":i=RND*15*sk 
!+1:PRINT USING"##.#";i; 
5220 PRINT"% verzinst.":PRINT:PRINT"Altes 
Guthaben:";:PRINT USING £fo$;su!:PRINT:su!= 
su!+su!*i/100:PRINT"Neues Guthaben:";:PRIN 
T USING £o$;su!:GOTO 5230 
5230 GOSUB 7200 
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5390 "Schalter weiterstellen 
5400 zz=zz+1:z=z+1:un=0:c=c+INT(RND*100) :b 
v=bv+INT(RND*100) :FOR i=0 TO 1:IF bu(i)>O 
THEN bu(i)=bu(i)-1 

5410 NEXT:IF £fw THEN f=MAX(f-1,0) 

5420 rn=MAX(rn-1,0) :£d=MAX(0,£d-1) :bs=MAX ( 
bs-1,0) :wh=MAX (wh-1,0) 

5440 IF p!(7)<100 THEN p!(7)=p!(T)+RND*20/ 
sk! 
5450 
5500 
5510 
5990 


g!(7)=(0.9+RND*0.1)*g! (7) 

GOSUB 9500 

GOTO 500 

"Auswertung 

6000 CLS#2:PRINT#2, "AUSWERTUNG" 

6010 IF ed=1 THEN PRINT"Sie flichteten aus 
Ihrer Hauptstadt!":PRINT 

6020 IF ed=2 THEN GOTO 6300 

6030 IF NOT £fw THEN PRINT"Leider ist die F 

lucht mi”glickt - Sie wurden von Ihren e 
igenen Leibw{chtern erschossen!":GOSUB 8 

300:G0T0 6300 

6040 IF £fw AND £)O THEN PRINT"Die Flucht w 

ar wohl etwas }berst|rzt!":pkt=1 

6050 IF £w AND £=0 THEN PRINT"Wohlbehalten 
landen Sie in der Schweiz!":pkt=2 

6060 PRINT:PRINT"Sie haben"; jr-1965; "Jahre 
";:PRINT"und";mo*3-3;"Monate ";"regiert." 
:PRINT"Dabei haben Sie";:PRINT USING £o$;s 

ul;:PRINT" ";"au£f";:PRINT"die Seite schaff 

en kinnen.":PRINT 

6070 IF pkt=1 AND ge!>O THEN PRINT"Leider 

verlangen die Schweizer Beh!rden":PRINT US 
ING £o$;0.4*su!;:PRINT" an Steuern.":PRINT 
:PRINT"Es verbleiben";:PRINT USING fo$;su! 
*0.6:PRINT"Bereiten Sie das n{chste Mal Ih 

re Fluchtbesser vor!" 

6080 GOSUB 7200:CLS:x!=(jr-1965) *4/+mo:x!= 

INT((x!/sk!)*SQR(SOQR (su!)))*10:PRINT:PEN 2 
:PRINT"Ihr Score:";TAB(20);:PEN 1:PRINT x! 
;"Punkte":PEN 1:PRINT 

6090 hisc(6)=x!:FOR i=0 TO 5:FOR j=6 TO it 
1 STEP-1:IF hisc(i)<hisc(j)THEN k=hisc(i): 

hisc(i)=hisc(j) :hisc (j)=k:MID$ (tt$,1,15)=h 
isc$(i):MID$(hisc$(i),1,15)=hisc$(j) :MID$( 

hisc$(j) ,1,15)=tt$ 

6100 NEXT:NEXT:GOSUB 9700 

6290 "nochmal? 

6300 PRINT:PRINT"Wollen Sie nochnal spiele 

n?":GOSUB 7600:IF ja THEN 6320 ELSE PRINT: 
PRINT"High-Scores abspeichern?":GOSUB 7600 
:IF ja THEN OPENOUT"!quahigh":FOR i=0 TO 5 
:PRINT#9,hisc$ (i) :PRINT#9,hisc (i) :NEXT:CLO 
SEOUT 

6310 END 

6320 ERASE g!,p!,ma,ku!,ak,kn,si!,bu:GOSUB 
9800:G0T0 70 

6890 'Q fuer Aufgabe 

6900 CLS#3:PRINT#3," <Q> £}r Aufgabe, sons 
t warten ":RETURN 

6990 "Geldanzeige 

7000 CLS#1:PRINT#1,USING fo$;ge!;:RETURN 
7090 "Warten auf Taste 

7100 WHILE INKEY$<»"":WEND:SOUND 55,100,1, 
5:MID$(eg$,1,1)=CHR$ (200) 

7110 MID$(eg$,1,1)=INKEY$:IF eg$=CHR$ (200) 
THEN 7110 

7120 MID$(e$,1,1)=eg$:MID$(el$,1,1)=LOWER$ 
(eg$) :en=ASC (eg$) -48 

7130 IF el$="j"OR el$="y"THEN ja=-1 ELSE j 
a=0 

7140 SOUND 1,0,2,5,,,31:PAPER#3,0:CLS#3:PA 
PER#3,1:RETURN 

7190 'Taste druecken 


[2372] 
[4869] 


[1953] 
[3330] 
[2226] 
[868] 
[844] 
[401] 
[1091] 
[2041] 
[4385] 


[1881] 
[12873] 


[5540] 
[4803] 


[13023] 


[17884] 


[8710] 


[10665] 


[1536] 
[211] 
[14115] 


[110] 
[3775] 


[1356] 
[4113] 


[1447] 
[3570] 
[733] 

[5097] 
[3296] 
[3339] 
[1815] 
[3359] 


[657] 
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7200 CLS#3:PRINT#3,TAB(7) ;"<TASTE> dricken 
"+:GOSUB 7100:RETURN 

7290 '"Datumsanzeige 

7300 IF mo=4 THEN mo=1:jr=jr+1 ELSE mo=no+t 
1 
7310 
7390 
7400 
CATE 


CLS#4:PRINT#4,mn$ (mo) ;jr:RETURN 
'Balkenskala 

LOCATE 19,h1:PEN 3:PRINT ba$:PEN 1:LO 
19,h1:PRINT MID$(ba$,1,h2) :RETURN 
7490 'Zifferntaste druecken 

7500 CLS#3:PRINT#3,TAB (6) ;"Zifferntaste dr 
Icken";:GOSUB 7100:RETURN 

7590 'Ja/Nein-Abfrage 

7600 CLS#3:PRINT#3,TAB(3);"<J> £ir Ja - <N 
>» £}r Nein";:GOSUB 7100:RETURN 

7690 "Wollen Sie U? 

7700 q=0:IF un THEN q=-1:60TO 7710 ELSE PR 
INT"Wollen Sie Unterst}tzung haben?'":GOSUB 
7600:IF NOT ja THEN PRINT"Dann nicht!":FO 

R ii=1 TO 1000:NEXT:q=-1 ELSE un=-1 

7710 RETURN 

7790 "Bitte warten 

7800 CLS#3:PRINT#3,TAB (10) ;"BITTE WARTEN!" 
; RETURN 

7890 'Begradigen 

7900 FOR h=1 TO 7:g! (h)=MAX(0,MIN(200,g!(h 
))):p!(h)=MAX(0,MIN(200,p!(h))):NEXT:RETUR 

N 

7990 "Wirkung von Investitionen 

8000 x1!=x!/(((z+20)/20)*500*%sk!):p!(k)=p! 
(k)+x1!:g!(k)=g! (k)+xl!:gel=ge!l-x!:GOSUB 7 
900:G0SUB 7000:RETURN 

8090 "Stimmungsbild 

8100 CLS:IF g!(6)<20 THEN PRINT"Der ";gp$( 
6);" unterst}tzt Sie nicht":PRINT"mehr. Si 
e erhalten daher keinen Lagebe- richt.":60 
SUB 7200:G0T0 8220 

8110 ko!=30-g! (6) /10:ko!=ko!*100:ko!=ko!-( 
ko!/4)*RND:ko!=ko!+ge!/(sk!*80) 

8120 PRINT"Soll Ihnen der ";gp$(6);" einen 
Lage-":PRINT"bericht liefern?":PRINT:PRIN 
T"Kosten:";:PRINT USING"##,### $";ko!:GOSU 
B 7600:IF NOT ja THEN 8220 

8130 IF ko!)ge!THEN PRINT:PRINT fe$:GOSUB 
7200:G60T0 8220 ELSE ge!=ge!-ko! 

8140 CLS:GOSUB 7000:CLS#2:PRINT#2,"LAGEBER 
ICHT":PEN 2:PRINT"Beliebtheit":PEN 1 

8150 FOR i=1 TO 6:LOCATE 1,i+2:PRINT gp$(i 
);":2":NEXT:LOCATE 1,10:PRINT gp$ (7) ;":" 
8160 FOR i=1 TO 6:hl=it+2:h2=INT(g! (i)/10): 
GOSUB 7400:NEXT:h1=10:h2=INT (g! (7) /10) :60S 
UB 7400 

8170 LOCATE 1,11:PEN 2:PRINT v$:PEN 1:LOCA 
TE 1,12:PRINT"Ausr}stung ";gp$(2);":":hi=1 
2:h2=INT(p!(2)/10)::G0SUB 7400 

8180 LOCATE 1,14:PEN 2:PRINT"Wirtschaftssi 
tuation":PEN 1 

8190 LOCATE 1,16:PRINT"Agrarwirtschaft":hl 
=16:h2=INT (p! (1) /10) :G0OSUB 7400 

8200 LOCATE 1,17:PRINT"Industrie":h1=17:h2 
=INT(p! (5) /10):GOSUB 7400 

8210 GOSUB 7200 

8220 RETURN 

8290 "MG-Feuer 

8300 FOR hi1=1 TO 3:6G0SUB 8310:NEXT:RETURN 
8310 h=kn(INT(RND*3)+1):FOR h2=1 TO INT(RN 
D*20)+5:hr=INT(RND*15) +1 

8320 FOR h3=31-hr TO 26-hr STEP-1:SOUND h, 
0,1,15,,,h3:NEXT:SOUND 55,0,2,0:NEXT:FOR h 
2=1 TO INT(RND*600)+200:NEXT:WHILE SQ(4)>1 
27:WEND:RETURN 

8390 "Feindlichste 

8400 x!=0:gr=0:FOR i=1 TO 6:IF ma(i)>x!THE 
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[3837] 


[1489] 
[428] 


[2309] 
[1215] 
[4571] 


[1996] 
[4262] 


[2122] 
[4289] 


[1907] 
[10242] 


[555] 

[1984] 
[2663] 
[1170] 
[4469] 


[1465] 
[6545] 


[1137] 
[8024] 


[3504] 


[9567] 


[3180] 
[4266] 
[4301] 
[5466] 


[6412] 


[3424] 
[4491] 
[3675] 
[859] 
[555] 
[746] 
[3770] 
[3744] 


[7072] 


[1388] 
[2659] 


N x!=ma(i):gr=i 

8410 NEXT:RETURN 

8490 'Kriegslaerm 

8500 h4=1 

8510 IF h4<=3 THEN ON INT(RND*4)+1 GOSUB 8 

310,8310,8530,8540:WHILE SQ(4)>127 OR SQ(2 

)>127 OR SQ(1)>127:WEND:h4=h4+1:G0TO 8510 

8520 RETURN 

8530 h=kn(INT(RND*3)+1):FOR h1!=1 TO 7 STE 
P 0.3:SOUND h,2000,5,h1!,,,31-h1!*4:NEXT:S 
OUND 55,2000,5,h1!,,,1:RETURN 

8540 h=kn(INT(RND*3)+1):FOR h1!=1 TO 7 STE 
P 0.2:SOUND h,h1!*6+10,h1!,h1!,,,h1!*4:NEX 
T:FOR hi1=1 TO 70:SOUND 55,0,1,MIN(7,h1/5), 
‚.31-(h1 MOD 10)-1:NEXT:RETURN 

8550 RETURN 

8560 FOR h1=1 TO 3:SOUND kn (INT(RND*3) +1), 
500,6,7:FOR h=500 TO 100 STEP-15 

8570 SOUND kn (INT(RND*3)+1),h,3,7:NEXT:SOU 
ND kn (INT(RND*3)+1),100,10,7:SOUND 55,0,30 
:NEXT:RETURN 

8690 "Krieg!!! 

8700 ed=0:G0SUB 6900:CLS:CLS#2:PRINT#2,"KR 
IEG":GOSUB 9000: £d=INT(RND*6)+4 

8710 WINDOW#0,1,40,14,23:G0SUB 9200 

8720 RANDOMIZE TIME:sla=1:IF RND<mg!THEN s 
=5 ELSE s=4 

8730 PRINT"Der Krieg beginnt...":GOSUB 856 
O:PRINT:PLOT-10,-10,1 

8740 PRINT xn$; :a=st (s,1):b=st (s,2) :GOSUB 
8900 

8750 op=INT(RND*300)+5:CLS:PRINT"Gua:":;:PR 
INT USING" ###,###,###";bv*1000;:PRINT TAB 
(21);"Con:";:PRINT USING" ###,.###,###";c*1 
000:PRINT 

8751 PRINT"Die";sla;CHR$(8);". Schlacht - 
um ";UPPERS$(sn$(s));" - ";"£orderte ";:PRI 
NT USING"###,### ";0p*1000; :PRINT"Opfer." 
8760 r!=RND:PRINT"Die Streitkrifte von ";: 
IF r!<mg!THEN PRINT"Guazuela";ELSE PRINT g 
p$(7); 

8770 PRINT" siegten.":PRINT:mx!=0.5*RND+O. 
5:IF s(=4 THEN bv=bv-mx!*op:c=c-(1-mx!)*op 
ELSE c=c-nx!*op:bv=bv- (1-mx!)*op 

8780 IF bv<4000 AND r!>=mg!THEN PRINT"Guaz 
uela ist villig ausgeblutet. Der ge-gneris 
che Milit{rgouverneur verurteilt Sie dahe 
r nach Ihrer Kapitulation zum Tode.":ed= 
2:G0OTO 8860 

8790 IF c<4000 AND r!<mg!AND sla)ı1 THEN PR 
INT gp$(7);" kapituliert und zahlt Repara- 
":PRINT"tionen.":GOTO 8830 

8800 GOSUB 8500:G0SUB 9200:G0SUB 8900:PRIN 
T x£$;:IF r!<mg!THEN s=s+1 ELSE s=s-1 

8810 IF s=0 THEN PRINT"Die entscheidende S 
chlacht wurde vom Feind gewonnen. Sie 
mu”ten fl}chten.":ed=1:60T0 8860 

8820 IF s<9 THEN 8840 ELSE PRINT"Sie haben 
den Feind niedergeworfen. Die Beute ist g 
ro”!":p!(2)=RND*0.8*p! (2)*sk! 

8830 PRINT:FOR i=1 TO 6:g! (i)=g! (i)+RND*60 
-RND*sla*5:NEXT:ge!=ge!+RND*60000+30000*sk 
!:p!(T)=0:g!(7)=0:60SUB 7900:G0SUB 7000:60 

TO 8860 

8840 sla=sla+1:IF LOWER$ (INKEY$)<>"qg"THEN 

GOTO 8740 ELSE CLS:IF ge!<30000 THEN PRINT 
"Der Staatsschatz reicht nicht hin, um "; 

gp$(7);" zufriedenzustellen.":GOSUB 7200:G 

OSUB 6900:G0TO 8740 

8850 mx!=MAX (30000,ge!*(0.4/sk!)):PRINT gp 

$(7);"verlangt ";:PRINT USING £o$;mx!:PRIN 

T"als Kriegsentsch{digung.":ge!=ge!-mx!:GO 

SUB 7000 
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8860 GOSUB 7200:WINDOW 1,40,4,24:CLS#6:RET [2751] *bv/7000:mg!=mg!+4*p! (2)+3*sk!*p! (2) :mm=ng 
URN !+mc:mg!=mg!/mm:IF mg!)0.5 THEN mg!=ng!+(1 
8890 "Schlachtort [595] -mg!)/2 ELSE mg!=mg!/2 
8900 TAG:MOVE a-8,b+8:PRINT CHR$ (238) ;:TAG [2563] 9210 RETURN [555] 
OFF:RETURN 9290 'Fragen laden [383] 
8990 "Bild [788] 9300 IF z>O THEN GOSUB 9600:G0SUB 7800 [1579] 
9000 FOR i=0 TO 3:INK i,0:NEXT:PLOT pk(0,0 [9969] 9310 d$="!quafrag."+STR$(df):d$=d$:0PENIN [11287] 
),pk(0,1),1:h1=1:h2=4:G60SUB 9900:PLOT pk(5 d$:i=0:WHILE NOT EOF:LINE INPUT#9,£fr$(i):F 
‚0) ,‚pk(5,1):h1=6:h2=64:60SUB 9900:PLOT pk( OR j=1 TO 10:INPUT#9,£p! (i,j) :NEXT:i=i+1:W 
65,0),pk(65,1) :h1=66:h2=90:G0SUB 9900:PLOT END: £m=i-1:CLOSEIN:GOSUB 9800:RETURN 
pk(91,0),pk(91,1) :h1=92:h2=119:60SUB 9900 9390 'Zufallsminderung [1672] 
9010 PLOT 148,313,2:PLOT 150,313:PLOT 150, [6442] 9400 FOR i=1 TO T:g!(i)=INT(g!(i)*0.95+RND [4048] 
311:PLOT 148,311:PLOT 188,325:PLOT 190,325 *0.1*g! (i)):p! (i)=INT(p! (i)*0.95+RND*O.1%*g 
:PLOT 190,323:PLOT 188,323:PLOT 228,271 !(i)):NEXT:RETURN 
9020 PLOT 230,271:PLOT 230,269:PLOT 228,26 [12657] 9490 '"Ueberdruss [625] 
\ 9:PLOT 288,263:PLOT 290,263:PLOT 290,265:P 9500 FOR i=1 TO 7:IF g!(i)>100 THEN g!(i)= [2445] 
| LOT 288,265:PLOT 354,249,3:PLOT 354,251:PL g!(i)-RND*0.1*(g!(i)-100) 
| OT 356,251:PLOT 356,249:PLOT 456,289:PLOT 9510 IF p!(i)>i00 THEN p!(i)=p!(i)-RND*O.1 [2791] 
ı 458,289:PLOT 458,287:PLOT 456,287:PLOT 396 *(p!(i)-100) 
,329 9520 NEXT:RETURN [940] 
9030 PLOT 398,329:PLOT 398,327:PLOT 396,32 [5454] 9590 "Ladenanzeige [506] 
7:PLOT 382,301:PLOT 384,301:PLOT 384,299:P 9600 CLS#2:PRINT#2, "LADEN" :RETURN [1493] 
LOT 382,299 9690 "High-Score-Ausgabe [1253] 
9040 TAG:PLOT-1,-1,2:PEN 2:MOVE 116,287:PR [8160] 9700 PRINT:PRINT"DIE BESTEN PR[SIDENTEN":P [8561] 
ı INT"GUAZUELA";:FOR i=1 TO 4:MOVE st (i,1)+8 RINT LEFT$(v$,22):PRINT:FOR ii=0 TO 5:PRIN 
‚st(i,2):PRINT LEFT$(sn$(i),3);:NEXT T hisc$ (ii) ;TAB (20) ;hisc (ii) ;"Punkte":NEXT 
9050 PLOT-1,-1,3:MOVE 416,240:PRINT"CONDUY [7218] :RETURN 
ANA"; :FOR i=5 TO 8:MOVE st(i,1)+8,st(i,2): 9790 "Mischen [663] 
\ PRINT LEFT$(sn$ (i) ,3) ;:NEXT: TAGOFF 9800 RANDOMIZE TIME:FOR i=0 TO fm:ta(i)=i: [10158] 
\ 9060 PEN 1:FOR i=0 TO 3:INK i,PEEK(him!+i+ [4292] NEXT:FOR i=0 TO £fm-1:k=INT (RND* (£fm-i)+1)+i 
1) :NEXT:RETURN :t=ta(i):ta(i)=ta(k):ta(k)=t:NEXT:RETURN 
9190 "Motivation [1222] 9890 'HilfsUP zu Bild [1203] 


9200 mc=(7*p! (7)+200-g9!(7))*c/5000:mg!=0:F [7741] 
OR i=1 TO 6:mg!=mg!+g! (i) :NEXT:mg!=(mg!/6) 


9900 FOR i=h1l TO h2:DRAW pk(i,0),pk(i,1):N [2705] 
EXT:RETURN 


Sie wollen uns ein Programm zusenden? Folgende Regeln sollten Sie beachten: 


I) Schicken Sie Ihre Programme auf Kassette, werden somit nicht zur buchstaben geschrieben werden und 
Kassette oder Diskette. Dabei mehr- Katastrophe. möglichst verständlich sein. Die 
mals hintereinander abspeichern. ; Variable buttersagt mehr aus, als nur 

6) Wenn Sie sogar mehrere Programme bu. 
2)Legen Sie eine ausführliche Pro- geschrieben haben und diese veröf- 


grammbeschreibung bei. aus derein- fentlichen wollen, nehmen Sie bitte 9) Bieten Sie das Programm niemals 
deutig der Sinn und Zweck des Pro- . für jedes Programm eine separate verschiedenen Verlagen gleichzeitig 
grammes hervorgeht. Eine Varia- Kassette (mehrmals abspeichern!). an! Mit der Veröffentlichungund dem 
blenliste ist sehr wichtig, in ihr daraus resultierenden Honorar, ge- 
sollten alle im Programm definierten "Damit erleichtern Sie unsere Arbeıt hen die Urheberrechte an den Verlag 
Variablen mit ihrer Verwendung auf- wesentlich und eine schnellere Bear- über! Sollte Ihr Programm dann noch 
geführt sein. beitung wird möglich. in einer anderen Zeitschrift ab- 
Beispiel: n$ = Nachname gedruckt werden, liegt ein Verstoß 
g = glücklicher usw. 7) Versehen Sie das Programm mit den gegen das Wettbewerbsrecht vor. 
sehr wichtigen REM-Statements. 

3) Wenn Sie gleichzeitig Besitzer eines Das fördert nicht nur die Übersicht 10) Jedes bei uns ordnungsgemäß einge- 
Druckers sind. schicken Sie auf je- für uns und unsere Leser, sondern gangene Programm wird ausführlich 
den Fall ein Programmlisting mit. unterstützt zusätzlich das struktu- begutachtet und getestet. Sie er- 

rierte Programmieren. Merke: Auch halten von uns dann umgehend Be- 

4) Vergessen Sie Ihren Absender nicht! erfahrene Programmierer verwenden scheid, ob Ihr Programm veröffent- 
Vollständige Anschrift, wenn möglich REM-Zeilen, das Programm sollte licht wird oder nicht. Wenn Sie das 
auch die Telefonnummer, ersparen schließlich jeder verstehen und an- Programm nach unserer Begutach- 
unnötige Verzögerungen bei even- wenden können. tung zurückhaben wollen, legen Sie 
tuellen Nachfragen unsererseits. bitte der Einsendung einen frankier- 

8) Vermeiden Sie möglichst Variablen- ten und adressierten Rückumschlag 

5) Behalten Sie auf jeden Falleine Ko- namen, woleicht | undioderO undo bei. Die Kosten einer eventuellen 
pie Ihres Programmes, unvorherseh- verwechselt werden können. Varia- Rücksendungsind in jedem Fallvom 
bare Umstände. wie z.B. Bandriß der blen sollten grundsätzlich in Klein- Einsender zu tragen. 


Falls wir uns für den Abdruck Ihres Programmes entschieden haben, setzen wir uns unverzüglich mit Ihnen in Verbindung und be- 
sprechen Ihr verdientes Honorar! 

Übrigens wäre es nett, wenn Sie uns auch ein paar persönliche Daten schreiben würden (z.B. Ihr Alter, Tätigkeit, wieund wann kam 
die Idee zu dem Programm, was alles machen Sie mit dem CPC usw.?). So, jetzt aber genug der Theorie, mit fast unerträglicher 
Spannung und Neugier wartet Ihre „Schneider CPC international” auf Ihre Beiträge. 


Einsendungen bitte an: DMV - Daten & Medien Verlagsges.mbH, Fuldaer Straße 6, 3440 Eschwege 
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Das folgende Programm ist dem bekannten Gesellschafts- 
spiel nachempfunden und ist nach unserer Meinung hervor- 
ragend von Werner Schmidt umgesetzt worden. 


Nach der Eingabe des Listings sollte man es vorsichtshalber vor 
dem ersten Start speichern,denn bei einem Fehler in den Da- 
tazeilen kann das Programm abstürzen. Nach einer kurzen War- 
tezeit,in der die Daten eingelesen werden, erscheint das Titel- 
bild,welches man mit der Leertaste wieder verlassen kann. Nach 
dem Aufbau des Spielfeldes wird man nach den Namen der Mit- 
spieler gefragt. Nur ENTER bedeutet,daß diese Farbe nicht mit- 


für 464-664-6128 


10 FOR n=0 TO 11:READ a:INK n,a:NEXT:INK 1 
2,13,15:INK 13,13,0:BORDER 13:MODE 0:LOCAT 
E 5,18:PRINT"bitte warten":SPEED INK 15,15 
20: DATA 13,0,6,18,.2.24,3,.9,1,.12.4;10 

30 MEMORY 39999:FOR n=40000 TO 40274:READ 
a:POKE n,a:NEXT:CALL 40000 


40 DATA 
50 DATA 
60 DATA 
70 DATA 
80 DATA 
„229 

90 DATA 
100 DATA 
6 

110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
5 

170 DATA 
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1,73,156,33,84,156,195,209,188,78 
156,195,88,156,80,82,73,78,212,0 
0,0,0,0,254,3,192,221,94,2 
221,126,4,221,70,1,221,78,0,197 
203,67,202,130,156,205,173,156,209 


6,8,205,156,156,225,1,80,0,9 


6,4,205,156,156,201,29,205,173,15 


209,229,1,0,32,9,6,4,205,156 
156,225,1,80,0,9,6,8,205,156 
156,201,197,6,3,26,119,35,19,16 
250,1,253,7,9,193,16,240,201,6 
8,14,40,22,0,29,33,0,0,41 
203,33,210,190,156,25,16,247,95,2 


17,255,191,25,201,62,2,50,16,164 


[7170] 


[1382] 
[4390] 


[1943] 
[2058] 
[2070] 
[1931] 
[2283] 


[1429] 
[2164] 


[1217] 
[1681] 
[2013] 
[1440] 
[1467] 
[1773] 


[1024] 


Fi 
vo0o0o000 S Booo. 


o© 
oo o© 


Mensch ärgere den EPE nicht! 


spielt. Eingabe von COMPUTER bewirkt, daß der Computer 
diesen Spieler übernimmt. Das Programm führt alle Züge, die 
sich als Pflichtzüge erweisen, automatisch aus. Kann der Spieler 
mehr als einen Stein bewegen, so fängt einer der möglichen Stei- 
ne an zu blinken. 


Mit der Leertaste läßt sich nun ein Stein auswählen. Wenn der 
richtige blinkt, wird mit der Entertaste der Zug ausgeführt. Am 
Ende einen Zuges ist es möglich durch Drücken der E-Taste das 
Spiel vorzeitig abzubrechen. 

(Werner Schmidt) 


180 DATA 205,31,157,58,16,164,30,27,1,72 [1499] 
190 DATA 161,205,103,156,58,16,164,198,3,3 [1940] 
0 


200 DATA 24,1,220,160,205,103,156,58,16,16 [2261] 
a 

210 DATA 198,3,30,30,1,36,161,205,103,156 [1088] 
220 DATA 58,16,164,198,6,30,27,1,0,161 [1645] 
230 DATA 205,103,156,205,27,187,254,32,200 [2213] 
‚205 

240 DATA 25,189,205,25,189,58,16,164,60,50 [1610] 
250 DATA 16,164,254,73,194,204,156,205,31, [1585] 


260 DATA 195,199,156,58,16,164,61,30,27,1 [1336] 
270 DATA 252,161,205,103,156,58,16,164,198 [2320] 


280 DATA 30,24,1,252,161,205,103,156,58,16 [1901] 
290 DATA 164,198,2,30,30,1,252,161,205,103 [1650] 
300 DATA 156,58,16,164,198,5,30,27,1,252 [2028] 
310 DATA 161,205,103,156,201 [886] 
320 FOR n=41000 TO 41467:READ a:POKE n,a:N [3828] 
EXT:FOR n=41468 TO 41503:POKE n,O0:NEXT 

330 DATA 192,192,192,192,192,192,128,0,64, [5443] 
128,0,64,128,0,64,128,0,64,128,0,64,128,0, 
64,128,0,64,128,0,64,192,192,192,192,192,1 

92 

340 DATA 60,60,60,60,60,60,40,0,20,40,0,20 [4301] 
‚40,0,20,40,0,20,40,0,20,40,0,20,40,0,20,4 
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en u...  ... 


0,0,20,60,60,60,60,60,60 

350 DATA 252,252,252,252,252,252,168,0,84, [6221] 
168,0,84,168,0,84,168,0,84,168,0,84,168,0, 
84,168,0,84,168,0,84,252,252,252,252,252,2 

52 

360 DATA 3, R 
42, 041,2, ' 
370 DATA 19 9 
130,0.65.,130,0; 
65,130,0,65,130,0 
95 

380 DATA 192,192,192,192,192,192,132,12,72 [7906] 
7132012, 12,132,12,72.132,12,.12.132402 7277 
32:12,12,132;12,.72,132,12572,192,192719251 
92,192,192 

390 DATA 192,192,192,192,192,192,196,204,2 [8102] 
00,196,204,200,196,204,200,196,204,200,196 
‚204,200,196,204,200,196,204,200,196,204,2 
00,192,192,192,192,192,192 

400 DATA 192,192,192,192,192,192,144,48,96 [7346] 
‚144,48,96,144,48,96,144,48,96,144,48,96,1 
44,48,96,144,48,96,144,48,96,192,192,192,1 
92,192,192 

410 DATA 192,192,192,192,192,192,208,240,2 [7384] 
24,208,240,224,208,240,224,208,240,224,208 
,‚240,224,208,240,224,208,240,224,208,240,2 
24,192,192,192,192,192,192 

420 DATA 60,60,60,60,60,60,44,12,28,44,12, [4622] 
28,44,12,28,44,12,28,44,12,28,44,12,28,44, 
12,28,44,12,28,60,60,60,60,60,60 

430 DATA 252,252,252,252,252,252,236,204,2 [7784] 
20,236,204,220,236,204,220,236,204,220,236 
‚204,220,236,204,220,236,204,220,236,204,2 
20,252,252,252,252,252,252 

440 DATA 3,3,3,3,3,3,18,48,33,18,48,33,18, [4874] 
48,33,18,48,33,18,48,33,18,48,33,18,48,33, 
18,48,33,3.3,.3,3,3,.3 

450 DATA 195,195,195,195,195,195,210,240,2 [7603] 
25,210,240,225,210,240,225,210,240,225,210 
‚240,225,210,240,225,210,240,225,210,240,2 
25,195,195,195,195,195,195 

460 DIM p(40,2),nam$(4),pin(40) ,w$(6),sp(4 [6322] 
‚4),sza(4),szb(4),h(4,4,2),1(4),hei(4,4) ‚d 
ar(4),mus(4),hm(4,4,2) ,hil(4) 

470 FOR n=1 TO 4:FOR m=1 TO 4:FOR t=1 TO 2°.[3712] 
:READ hn(n,m,t):NEXT t,n,n 
480 DATA 21,5,21,9,21,13,21,1 
»29,21,25,21,21,37,21,33,21,2 
9721,13,.21,17,21 

490 FOR n=1 TO 40:FOR m=1 TO 2:READ p(n,m) [3494] 
:NEXT m,n 


3,3 ‚2,0 [2520] 
0,1 
5,1 ‚65, [4856] 


3,3 j 
2,0 ? 
5,1 2 
65, 130,0, 


7,37,21,33,21 [4174] 
9,21,25,5,21, 


500 DATA 25,1,25,5,25,9,25,13,25,17,29,17, [6967] 
33,17,37,17,41,17,41,21,41,25,37,25,33,25, 
29,25,25,25,25,29,25,33,25,37,25,41,21,41 

510 DATA 17,41,17,37,17,33,17,29,17'25,13, [4626] 
25,9,25,5,25,1,25,1,21,1,17,5,17,9,17,13,1 
7,17,17,17,13,17,9,17,5,17,1,21,1 

520 FOR n=1 TO 4:FOR m=1 TO 4:FOR t=1 TO 2 [3717] 


:READ h(n,m,t):NEXT t,m,n 

530 DATA 37.1,41,1,37,5,41,5,37,37,41,37,3 [3832] 
7,41.1,41,1,37,5.37.1,41,5,41.1,1,5.1,1,5 

ED 

540 FOR n=1 TO 4:READ l(n) :NEXT [1313] 
550 DATA 40,10,20,30 [406] 
560 SYMBOL 244,0,0,0,0,0,0,24,24:SYMBOL 24 [3782] 
5,24,24,0,0,0,0,0,0 

570 SYMBOL 246,192,192,192,192,0,0,0,0:5YM [3008] 
BOL 247,0,0,0,0,3,3,3,3 

580 SYMBOL 248,192,192,192,192,0,0,24,24:5 [3497] 
YMBOL 249,24,24,0,0,3,3,3,3 

590 SYMBOL 250,195,195,195,195,0,0,0,0:SYM [4044] 
BOL 251,0,0,0,0,195,195,195,195 

600 SYMBOL 252,195,195,195,195,0,0,24,24:5 [4379] 
YMBOL 253,24,24,0,0,195,195,195,195 

610 SYMBOL 254,195,195,195,195,0,0,195,195 [3914] 
:SYMBOL 255,195,195,0,0,195,195,195,195 
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620 FOR n=1 TO 6:#$(n)=CHR$ (242+2*n)+CHR$ ( 
10)+CHR$ (8) +CHR$ (243+2%*n) :NEXT:w$ (O)=CHR$ ( 
32)+CHR$ (10)+CHR$ (8) +CHRS (32) 

630 "Titelbild 

640 MODE 0:INK 2,6,18:INK 3,18,2:INK 4,2,2 

4:INK 5,24,6 

650 LOCATE 5,1:PRINT"M EN S C H":LOCATE 5 
‚3:PRINT"aergere den":LOCATE 8,5:PRINT"C P 
C":LOCATE 8,7:PRINT"nicht" 

660 LOCATE 1,24:PRINT CHR$(164);" WERNER S 
CHMIDT":LOCATE 17,25:PRINT"1/87";:PEN 12:L 

OCATE 2,22:PRINT"Leertaste druecken":PEN 1 
670 CALL &9CC7 

680 MODE O:WINDOW#1,13,20,10,15:WINDOW#2,1 
:20,25,25 

690 INK 2,6:INK 3,18:INK 4,2:INK 5,24:RAND 
OMIZE TIME 

700 'Spielfeld 

710 FOR n=1 TO 40:!PRINT,p(n,1),p(n,2),410 
00:NEXT 

720 FOR n=375 TO 375-3*32 STEP -32:PLOT 20 
0,n,1:DRAWR 0,-8:NEXT 

730 FOR n=216 TO 216+3*32 STEP 32:PLOT n,2 
59:DRAWR 8,0:NEXT 

740 PLOT 328,247:DRAWR 0,-8:PLOT 328,215:D 
RAWR 0,-8 

750 FOR n=216 TO 216+3*32 STEP 32:PLOT n,1 
97::DRAWR 8,0:NEXT 

760 FOR n=183 TO 183-3*32 STEP -32:PLOT 20 
0O,n:DRAWR 0,-8:NEXT 

770 PLOT 192,69:DRAWR -8,0:PLOT 160,69:DRA 
WR -8,0 

780 FOR n=183 TO 183-3*32 STEP -32:PLOT 14 
0,n:DRAWR 0,-8:NEXT 

790 FOR n=124 TO 124-3*32 STEP -32:PLOT n, 
197:DRAWR -8,0:NEXT 

800 PLOT 14,207:DRAWR 0,8:PLOT 14,239:DRAW 
R 0,8 

810 FOR n=124 TO 124-3*32 STEP -32:PLOT n, 
259:DRAWR -8,0:NEXT 

820 FOR n=375 TO 375-3*32 STEP -32:PLOT 14 
O,n:DRAWR 0,-8:NEXT 

830 PLOT 148,389:DRAWR 8,0:PLOT 180,389:DR 
AWR 8,0 

840 FOR n=5 TO 17 STEP 4: !PRINT,21,n,41036 
:NEXT 

850 FOR n=25 TO 37 STEP 4: !PRINT,n,21,4107 
2:NEXT 

860 FOR n=25 TO 37 STEP 4:!PRINT,21,n,4110 


8:NEXT 

870 FOR n=5 TO 17 STEP 4: !PRINT,n,21,41144 
:NEXT 

880 FOR n=37 TO 41 STEP 4:FOR n=1 TO 5 STE 

P 4:1 PRINT,n,m,41036:NEXT m,n 

890 FOR n=37 TO 41 STEP 4:FOR m=37 TO 41 S 

TEP 4:/PRINT,n,m,41072:NEXT n,n 

900 FOR n=1 TO 5 STEP 4:FOR n=37 TO 41 STE 

P 4:!PRINT,n,m,41108:NEXT m,n 

910 FOR n=1 TO 5 STEP 4:FOR m=1 TO 5 STEP 

4:!PRINT,n,m,41144:NEXT m,n 

920 LOCATE 8,1:PRINT CHR$ (241) ;:LOCATE 11, 
15:PRINT CHR$ (242) ;:LOCATE 4,21:PRINT CHR$ 
(240) ;:LOCATE 1,8:PRINT CHR$ (243); 

930 PLOT 500,328,10:DRAWR 52,0:DRAWR 0,-52 
:DRAWR -52,0:DRAWR 0,52 

940 LOCATE 17,6:PRINT w$(0) :anf=0:zah=0 
950 PAPER#1,11:FOR n=1 TO 4:CLS#1:LOCATE#1 
+3, 2:PRINT#1,n;CHR$ (8) ;"." 

960 LOCATE#1,1,3:PRINT#1,"Spieler" 

970 LOCATE#1,1,5:LINE INPUT#1,nam$ (n) 

980 IF nam$(n)<>"" THEN anf=anf+1 

990 NEXT 

1000 FOR n=1 TO 4:IF nam$(n)<>"" THEN 1010 
ELSE NEXT:GOTO 950 

1010 CLS#1 

1020 FOR n=1 TO 4:nam$ (n)=UPPER$ (nan$ (n)): 
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[4976] 
[797] 
[2400] 


[6897] 
[8178] 
[788] 

[2690] 


[3374] 


[77] 
[2455] 


[4029] 
[3312] 
[2491] 
[2416] 
[1911] 
[1428] 
[2319] 
[3796] 
[1985] 
[3758] 
[3437] 
[1876] 
[1969] 
[3231] 
[3486] 


[1303] 
[4262] 
[4559] 
[3706] 
[5354] 
[4624] 


[3406] 


[2335] 
[5078] 


[2468] 
[2027] 
[1761] 
[350] 

[3533] 


[373] 
[6239] 
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IF LEN(nam$(n))>8 THEN nan$ (n)=LEFT$ (nan$ ( 

n),8) 

1030 NEXT 

1040 IF nam$(1)<>"" THEN FOR n=1 TO 4: !PRI 

NT,h(1,n,1),h(1,n,2) ,41324:NEXT n:LOCATE 9 

‚6:PRINT LEFT$(nan$(1),3); 

1050 IF nam$(2)<»"" THEN FOR n=1 TO 4: !PRI 

NT,h(2,n,1),h(2,n,2) ,41360:NEXT n:LOCATE 9 

‚17:PRINT LEFT$(nan$ (2) ,3); 

1060 IF nam$(3)<>"" THEN FOR n=1 TO 4: !PRI 

NT,h(3,n,1),h(3,n,2),41396:NEXT n:LOCATE 1 

‚17:PRINT LEFT$(nan$(3),3); 

1070 IF nam$(4)<>"" THEN FOR n=1 TO 4: !PRI 

NT,h(4,n,1),h(4,n,2) ,41432:NEXT n:LOCATE 1 

‚6:PRINT LEFT$(nan$(4) ,3); 

1080 FOR n=1 TO 4:FOR m=0 TO A:hei(n,n)=0: 

sp(n,m)=0:sza(n)=4:szb(n)=0:NEXT m,n 

1090 FOR n=1 TO 40:pin(n)=0:NEXT 

1100 'Hauptroutine 

1110 FOR n=1 TO 4 

1120 IF nam$(n)="" OR hei(n,0)=4 THEN 1440 

1130 CLS#2:PEN#2,n+1:LOCATE#2,3,1:PRINT#2, 

nan$ (n) 

1140 FOR m=0 TO 4:nus (m)=0:dar (m)=0:NEXT nm 

1150 IF szb(n)=0 THEN FOR m=1 TO 2:6G0SUB 1 

830:IF w=6 THEN 1170 ELSE NEXT m 

1160 GOSUB 1830 

1170 IF pin(10%(n-1)+1)=n AND sza(n)>O THE 

N GOSUB 1450:G0TO 1210 

1180 IF w=6 THEN GOSUB 1540:IF mus(0)>O TH 

EN 1210 

1190 GOSUB 1570 

1200 GOSUB 1640 

1210 IF nam$(n)="COMPUTER" THEN 1230 

1220 IF mus(O)=1 OR dar(0)=1 THEN LOCATE#1 

‚1,3:PRINT#1,"Zugzwang" ELSE IF mus(0)>1 O 

R dar(O)>1 THEN LOCATE#1,2,2:PRINT#1,"waeh 

le";:LOCATE#1,2,4:PRINT#1,"Stein"; 

1230 IF mus(0O)=1 THEN FOR m=1 TO 4:IF mus( 

m)=1 THEN stein=m:GOTO 1300 ELSE NEXT n 

1240 IF dar(0)=1 THEN FOR m=1 TO 4:IF dar( 

m)=1 THEN stein=m:GOTO 1300 ELSE NEXT m 

1250 IF dar(0)=0 THEN LOCATE#1,1,2:PRINT#1 

‚"Kein Zug"; :LOCATE#1,1,4:PRINT#1,"moeglic 

h";:FOR t=1 TO 1000:NEXT:CLS#1:G0TO 1430 

1260 IF nam$(n)="COMPUTER" THEN GOSUB 2580 

:GOTO 1300 

1270 IF INKEY$<>"" THEN 1270 

1280 IF mus(0)>0 THEN GOSUB 1880:G0T0 1300 

1290 GOSUB 2020 

1300 IF sp(n,stein)=0 THEN }PRINT,h(n,stei 

n,l),h(n,stein,2) ‚41000+n*36:t=10* (n-1) +1: 

FOR x=400 TO 50 STEP -50:SOUND 4,x,8:NEXT 

x:GOTO 1390 

1310 IF sp(n,stein)<=1(n) AND sp(n,stein)+ 

w>l(n) THEN 2270 

1320 IF sp(n,stein)<O THEN 2430 

1330 t=sp(n,stein):pin(t)=0 

1340 FOR n=1 TO w 

1350 IF pin(t)=0 THEN ıPRINT,p(t,1),p(t,2) 
‚41000 ELSE ıPRINT,p(t,1),p(t,2),41144+pin 
(t)*36 

1360 t=t+1:IF t>40 THEN t=t-40 

1370 }PRINT,p(t,1),p(t,2) ‚41144+n*36: SOUND 
2,200,20 

1380 FOR z=1 TO 500:NEXT z,n:GOTO 1400 

1390 }PRINT,p(t,1),p(t,2) ‚41144+n*36 

1400 sp(n,stein)=t:IF pin(t)>O THEN GOSUB 

2160 

1410 pin(t)=n 

1420 CLS#1:IF zah=anf OR UPPER$ (INKEY$S)="E 

" THEN 2530 

1430 IF w=6 THEN 1140 

1440 NEXT n:GOTO 1110 

1450 'Feld frei machen 

1460 t=10* (n-1)+1+w:mus (0)=1 
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[350] 
[5684] 


[5548] 


[7263] 


[7184] 


[5961] 


[2193] 
[873] 
[788] 
[2391] 
[3199] 


[1373] 
[3402] 


[901] 
[2054] 


[1635] 


[897] 
[819] 
[2826] 
[8340] 


[5328] 
[2051] 
[6921] 


[3604] 


[936] 
[2986] 
[871] 
[6495] 


[3560] 


[2006] 
[1253] 
[797] 


[4777] 


[519] 
[3301] 


[2918] 
[2098] 
[2774] 


[406] 
[3789] 


[565] 

[1279] 
[1163] 
[1216] 


1470 IF pin(t)<>n THEN FOR m=1 TO 4:IF sp( 
n,m)=10*(n-1)+1 THEN mus (m)=1:RETURN ELSE 
NEXT m 

1480 z=t:t=t+w:IF t>40 THEN t=t-40 

1490 IF pin(t)<>n THEN FOR m=1 TO 4:IF sp( 
n,m)=z THEN mus(m)=1:RETURN ELSE NEXT m 
1500 z=t:t=t+w:IF t>40 THEN t=t-40 

1510 IF pin(t)<>n THEN FOR m=1 TO 4:IF sp( 
n,m)=z THEN mus (m)=1:RETURN ELSE NEXT m 
1520 FOR m=1 TO 4:IF sp(n,m)=t THEN mus (m) 
=1 

1530 NEXT m:RETURN 

1540 "Sechs 

1550 IF sza(n)>O THEN sza(n)=sza(n)-1:szb( 
n)=szb(n)+1:mus(0O)=1:FOR m=1 TO 4:IF sp(n, 
m)=0 THEN mus (m)=1:G0T0 1560 ELSE NEXT m 
1560 RETURN 

1570 "Rausschmeissen ? 

1580 FOR m=1 TO 4 

1590 IF sp({n,m)>O THEN t=sp(n,m)+w ELSE GO 
TO 1630 

1600 IF sp(n,m)<=1(n) AND t»l(n) THEN 1630 
1610 IF t>40 THEN t=t-40 

1620 IF pin(t)<>n AND pin(t)>O THEN mus (0) 
=mus (0)+1:mus (m)=1 

1630 NEXT m:RETURN 

1640 "erlaubte Zuege 

1650 FOR m=1 TO 4 

1660 IF sp(n,m)<O THEN 1780 

1670 IF sp(n,m)<=1(n) AND sp(n,m)+w>l(n) T 
HEN 1730 

1680 IF sp(n,m)=0 THEN 1720 

1690 t=sp(n,m)+w:IF t>40 THEN t=t-40 

1700 IF pin(t)=n THEN 1720 

1710 dar (0)=dar (O)+1:dar (m)=1 

1720 NEXT m:RETURN 

1730 t=sp(n,n)+w-l(n) 

1740 IF t>4 THEN 1720 

1750 FOR z=1 TO t 

1760 IF hei(n,z)=1 THEN 1720 

1770 NEXT z:GOTO 1710 

1780 t=-sp(n,n) 

1790 IF t+w>4 THEN 1720 

1800 FOR z=1 TO w 

1810 t=t+1:IF hei(n,t)=1 THEN 1720 

1820 NEXT z:GOTO 1710 

1830 "'Wuerfeln 

1840 FOR z=INT(RND*15)+5 TO 1 STEP -1 

1850 w=INT(RND*6)+1:LOCATE 17,6:PRINT w$(w 
):SOUND 1,170-5*z,5 

1860 FOR t=1 TO 200-9%*z:NEXT t,z 

1870 FOR t=1 TO 800:NEXT:RETURN 

1880 'Pflichtzuege 

1890 FOR t=1 TO 4:IF mus(t)=1 THEN m=t:GOT 
0 1900 ELSE NEXT t 

1900 IF sp(n,m)>O THEN !PRINT,p(sp(n,n) ,1) 
‚p{sp(n,m),2) ,41000 

1910 IF sp(n,m)<O THEN |PRINT,hnm(n,ABS(sp( 
n,m)),1),hm(n,ABS(sp(n,m)),2) ,41000+n*36 
1920 FOR t=1 TO 200:NEXT t 

1930 IF sp(n,m)>O THEN !PRINT,p(sp(n,m) ,1) 
‚p(sp(n,m),2) ,‚41144+n*36 

1940 IF sp{n,m)<O THEN !PRINT,hm(n,ABS(sp( 
n,n)),1),hn(n,ABS(sp(n,m)),2) ,41288+n*36 
1950 FOR t=1 TO 200:NEXT t 

1960 a$=INKEY$ 

1970 IF a$=CHR$(13) THEN stein=m:CLS#1:RET 
URN 

1980 IF a$<>CHR$(32) THEN 1900 

1990 m=m+1:IF m>4 THEN m=1 


2000 IF mus(m)<>1 THEN 1990 

2010 GOTO 1900 

2020 'Zugauswahl 

2030 FOR t=1 TO 4:IF dar(t)=1 THEN m=t:GOT 
0 2040 ELSE NEXT t 
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[3863] 
[5756] 


[2713] 


[461] 
[383] 
[7054] 


[555] 
[832] 
[564] 
[3367] 


[2343] 
[1494] 
[2807] 


[461] 
[1175] 
[564] 
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[3330] 


[1293] 
[1534] 
[1230] 
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[1524] 
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Ba SE ni Ze Zn SS a Zu u@ = ln Sn nu Zu ZZ nn 
2040 IF sp(n,m)>0 THEN !PRINT,p(sp(n,n),1) [4782] )=szb(n)-1 
‚p(sp(n,m),2) ‚41000 2420 GOTO 1420 [399] 
2050 IF sp(n,n) <0 THEN ıPRINT,hm(n, ABS (sp ( [4599] 2430 "im Haus setzen [1369] 
n,m)),1),hm(n,ABS(sp(n,n)),2),41000+n*36 2440 t=-sp(n,stein):hei(n,t)=0 [1052] 
2060 FOR t=1 TO 200:NEXT [1050] 2450 FOR m=1 TO w [797] 
2070 IF sp(n,m)>0 THEN }PRINT,p(sp(n,m),1) [5053] 2460 ;PRINT,hm(n,t,1),hm{n,t,2),41000+n*36 [2961] 
‚p(sp(n,n),2),41144+n*36 2470 t=t+1 [254] 
2080 IF sp(n,m)<O THEN !PRINT,hm(n,ABS(sp( [4599] 2480 ıPRINT,hm(n,t,1),hm(n,t,2),41288+n*36 [3925] 
n,n)),1),hm{n,ABS(sp(n,m)),2) ,‚41288+n*36 :SOUND 2,200,20 
2090 FOR t=1 TO 200:NEXT [1050] 2490 FOR x=1 TO 500:NEXT x,m [1217] 
2100 a$=INKEY$ [278] 2500 hei(n,t)=1:sp(n,stein)=-t [2055] 
2110 IF a$=CHR$(13) THEN stein=m:CLS#1:RET [1747] 2510 IF 5-hei(n,0)=-sp(n,stein) THEN szb(n [2258] 
URN )=szb(n)-1 
2120 IF a$<>CHR$(32) THEN 2040 [1964] 2520 GOTO 1420 [399] 
2130 m=m+1:IF m>4 THEN m=1 [1166] 2530 "Spielende [324] 
2140 IF dar(m)<>1 THEN 2130 [622] 2540 LOCATE 17,6:PRINT w$ (0) :CLS#2:LOCATE# [4764] 
2150 GOTO 2040 [355] 2,2,1:PEN#2,13:PRINT#2,"SPIELEND E" 
2160 "Rausschmeissen [959] 2550 LOCATE#1,2,2:PRINT#1,"neues":LOCATE#1 [5478] 
2170 FOR m=1 TO 10 [582] ‚2,4:PRINT#1,"Spiel ?":LOCATE#1,2,6:PRINT# 
2180 SOUND 4,10*m+80,10 [1322] 1," (J/N)" 
2190 ıPRINT,p(t,1),p(t,2),41144+pin(t)*36 [2537] 2560 IF UPPERS(INKEY$)="J" THEN 630 [2190] 
2200 FOR z=1 TO 100:NEXT [1697] 2570 IF UPPERS(INKEY$)="N" THEN MODE 2:LIS [2343] 
2210 ıPRINT,p(t,1),p(t,2) ,41144+n*36 [2098] T ELSE 2560 
2220 FOR z=1 TO 100:NEXT z,m [2339] 2580 "Computerzug [1507] 
2230 FOR m=1 TO 4:IF sp(pin(t),m)=t THEN 2 [4119] 2590 IF mus(0)<2 THEN 2620 [988] 
240 ELSE NEXT m 2600 t=INT(RND*4) +1 [840] 
2240 ıPRINT,h(pin(t),m,1),h(pin(t),m,2),41 [3345] 2610 IF mus(t)=1 THEN stein=t:RETURN ELSE [2703] 
288+pin(t)*36 2600 
2250 sza(pin(t))=sza(pin(t))+1:szb(pin(t)) [3594] 2620 FOR m=1 TO 4 [564] 
=szb(pin(t))-1 2630 IF dar(m)=1 AND sp(n,m)>O AND sp(n,nm) [6652] 
2260 sp(pin(t) ‚n)=0:RETURN [1397] <=1(n) AND sp(n,m)+w>l(n) THEN stein=n:RET 
2270 "ins Haus gehen [203] URN 
2280 t=sp(n,stein) :z=t+w-l(n):pin(t)=0 [1373] 2640 NEXT n [371] 
2290 FOR m=1 TO w-z [1033] 2650 FOR m=1 TO 4 [564] 
2300 IF pin(t)=0 THEN |PRINT,p(t,1),p(t,2) [4777] 2660 IF dar(m)=1 AND sp(n,m)<O THEN stein= [3140] 
„41000 ELSE ı!PRINT,p(t,1),p(t,2) ,41144+pin m:RETURN 
(t)*36 2670 NEXT m [371] 
2310 t=t+ [254] 2680 FOR m=1 TO 4 [564] 
2320 IPRINT,p(t,1),p(t,2),41144+n*36:SOUND [3301] 2690 IF dar(m)=1 AND INT((sp(n,m)+9)/10)=( [6676] 
2,200,20 sp(n,m)+9)/10 AND nam$(INT((sp(n,m)+9)/10) 
2330 FOR x=1 TO 500:NEXT x,n [1217] )c2"" AND sza(INT((sp(n,m)+9)/10))>0 THEN 
2340 IF pin(t)=0 THEN }PRINT,p(t,1),p(t,2) [4777] stein=m:RETURN 
‚41000 ELSE :PRINT,p(t,1),p(t,2) ,41144+pin 2700 NEXT n [371] 
(t)*36 2710 FOR m=0 TO 4:hil(m)=0:NEXT [1792] 
2350 !PRINT,hm(n,1,1),hm(n,1,2),41288+n*36 [4672] 2720 FOR m=1 TO 4 [564] 
:SOUND 2,200,20:FOR x=1 TO 500:NEXT 2730 IF dar(m)=1 THEN hil(m)=sp(n,n):IF hi [4125] 
2360 z=z-1:FOR n=1 TO z [911] l(m)<1(n) THEN hil(m)=hil(m)+40 
2370 }PRINT,hm(n,m,1),hm(n,m,2) ,41000+n*36 [3091] 2740 NEXT [350] 
2380 ;PRINT,hm(n,m+1,1),hm({n,m+1,2),41288+ [4329] 2750 hil(O)=MAX(hil(1),hil(2),hil(3),hil(4 [2247] 
n*36:SOUND 2,200,20 
2390 FOR x=1 TO 500:NEXT x,n [1217] [184] 
2400 hei(n,0)=hei(n,0)+1:hei(n,m)=1:sp(n,s [4955] 2770 IF hil(O)=hil(m) THEN 2780 ELSE m=m+1 [1038] 


tein)=-m:IF hei(n,0)=4 THEN zah=zaht+1 :60T0O 2770 
2410 IF 5-hei(n,0)=-sp(n,stein) THEN szb(n [2258] 2780 stein=m:RETURN [1360] 


Es Klappt ! wir haben 
| den Bo - MONITOR. 


erfunden 
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a 


..wie lange dein Chamdleoy a 
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SCHLUMPIS HORROR-TRIP 


Dichter Nebel in den Gassen, hin und wieder hört man entfernte 
Schritte. Die Luft ist erfüllt von dem Fischgeruch des nahen Ha- 
fens. Ratternd läßt gerade der Krämer von gegenüber das Laden- 
gitter ins Schloß fallen. Wer ist in dieser unfreundlichen Nacht 
noch unterwegs ...? Na wer schon? Schlumpi der stadtbekannte 
Penner natürlich. Voll bis obenhin torkelt er grölend durch die Gas- 
sen auf der Suche nach einem Schlafplatz. Ein Kumpel von ihm 
hat von einem unbewohnten Haus in einem abgelegenen Stadtteil 
gesprochen, das einen geräumigen Keller haben soll. Dieses Haus 
sucht Schlumpi nun. Den Kragen hochgestellt und eine Flasche Fu- 
sel in der Rechten versucht Schlumpi die Kälte zu vertreiben, denn 
er hat noch einen langen Weg vor sich. Ein vorbeikommender Pas- 
sant hätte diese zwielichtige Gestalt mit dem abgetragenen Man- 
tel vielleicht für eine Ausgeburt eines schlechten Romanes gehal- 
ten, aber Schlumpi ist nicht auf Eleganz bedacht und auch sonst 
nur dem Fusel zugetan. Der Fuselbestand dezimierte sich von Stra- 
Benecke zu Straßenecke, bis schließlich nur noch vier Flaschen 
übrigblieben den Durst zu stillen. Vollkommen genug, mag der ge- 
neigte Leser vielleicht denken, nicht so Schlumpi, das jähe Ende 
vor Augen, beschleunigte er seinen Schritt und gelangte somit auch 
bald zu seinem ersehnten Ziel. Die Tür zum Keller mit Elan auf- 
stoßend, ein altes Seemannslied auf den Lippen betrat (fiel) unser 
mutiger Held in den Keller. Dichte Finsternis umgab ihn, und er 
wollte schon wieder gehen, doch mußte er zu seinem Leidwesen 
bemerken, daß die Tür ins Schloß gefallen und von innen nicht 
mehr zu öffnen war. Sich der im Dunkeln lauernden Gefahr stel- 
lend, torkelte Schlumpi schließlich weiter in den Keller und suchte 
einen Lichtschalter. Diesen hatte er auch bald gefunden und ent- 
sprechend der komplizierten Anleitung umgelegt. Doch was muß- 
ten seine vom Alkohol getrübten Augen jetzt bemerken. Eine wild- 
gewordene Billardkugel und ein Höhrerklapperndes Telefon be- 
wegten sich wie von Geisterhand in diesem mysteriösen Bau um- 
her ... Hier setzt der Spieler ein. Er übernimmt Schlumpis Part. 
Die Statusanzeige in der ersten Zeile gibt den laufenden Fuselbe- 
stand (LIQ.:) und die aktuelle Bild- nummer (SCREEN:) an. 
Schlumpi wird mit dem Joystick bewegt, dabei gelten folgende Be- 
wegungen: 


1O RUE RU HR [1051] 
2D ’= [1753 
30 ’#* SCHLUMPIS HORROR-TRIP * [1745] 
40 ’%* * [175] 
so ’* written 2/87 by * (926) 
60 ’%* * [175] 
7O 7% Marc Kuehl * [1086] 
80 ’%* * [175] 
GO TERRRRURRRERREEHHTRRU R (1051) 


170 epe 


TEcHis REITER Schlumpi rechts 
INES 2 saugen area rer Schlumpi links 
Feuer & Tech anne Sprung nach rechts 
BREUER UNKs. a Sprung nach links 


Der Spieler muß nun Schlumpi über die Plattformen zu dem gro- 
ßen, goldenen Schlüssel steuern, um die Tür zum nächsten Raum 
zu öffnen. Die Schlüsselaufnahme quittiert das Programm mit ei- 
nem Ton. Nur wenn der Schlüssel vorher eingesammelt wurde, 
kann Schlumpi zur Ausgangstür gehen und hoffen, daß sie den Weg 
zum folgenden Raum freigibt!!! Eine Berührung mit der Billard- 


“ kugel oder mit dem Telefon zieht unserem Held kostbaren Fusel 


ab. Sie sollten sich auch vor den gelbgezackten Feldern in acht neh- 
men, da eine Berührung mit ihnen ebenfalls eine Flasche Fusel ko- 
stet 


Eigene Bilder 


»SCHLUMPIS HORROR-TRIP« ist typisches Plattform-Spiel. Es 
traten insofern Schwierigkeiten auf, daß der Programmablauf in 
BASIC wesentlich langsamer ist und die Anzahl der Gegner somit 
auf zwei beschränkt werden mußte. Die Ablegung der einzelnen 
Räume im Programm verbrauchte bei meinen ersten Versionen viel 
Platz, bis ich schließlich auf Datazeilen gekommen bin. Somit ist 
es auch möglich eigene Bilder anzuhängen oder vorhandene zu 
verändern. 


Die Zahlenbelegungen der Objekte: 


a ee ee Mauermittelstück 
Ders. Mauerende 
Deere Maueranfang 
as Ta Scherbenhaufen 
A einzelnes Mauerstück 


Bei dem Erstellen neuer Bilder müssen Sie darauf achten, daß das 
Programm die Bilder in Dreierschritten aufbaut, d.h. daß nur je- 
weils die dritte Zeile Objekte enthalten darf. Die erste Zeile ist für 
die Statusanzeigen reserviert! Geben Sie nach der letzten Datazeile 
»DATA 99% ein, um dem Programm mitzuteilen, daß das Bild zu 
Ende ist. Jetzt werden die Bahnen der Gegner, die Position der Tü- 
ren, die des Schlüssels und die Schlumpis in Datazeilen abgelegt. 
Beispiel: DATA 1,24,19,24,16,2,16,21,1,2,20,2 3,20,3,2,2. Das obi- 
ge Beispiel läßt die Kugel in Zeile 24 von Spalte 1 bis Spalte 19 hin- 
und zurückrollen. Das Telefon fliegt in Spalte 16 von Zeile 2 bis 
Zeile 21 und zurück. Der obere Teil der Eingangstür befindet sich 
in Spalte 1 und Zeile 2. Die Ausgangstür ist in Spalte 20 und Zei- 
le 23 und der Schlüssel ist in Spalte 20 und Zeile 3. Schlumpis 
Startposition ist in Spalte 2 und Zeile 2. Bei dem Ablegen der Tü- 
ren und Schlumpis Positon muß darauf geachtet werden, daß nur 
der obere Teil angegeben wird! Nur das Telefon kann hoch und run- 
ter fliegen! Jetzt müssen Sie nur noch unter der Routine BILD- 
SCHIRMAUFBAU die Zeile des neuen Bildes und unter der Rou- 
tine BILD GESCHAFFT die Nummer des letzten Bildes an- 
geben... 

Abschließend bleibt mir nur noch, Ihnen viel Vergnügen beim 
Spielen und gute Ideen bei dem Kreieren neuer Bilder zu wün- 
schen. 


(Marc Kühl) 
100 SYMBOL AFTER 164 [1452] 
110 ' Maennchen links [1355] 
120 SYMBOL 165,24,124,60,60,24,36, 78,94 [1352] 
130 SYMBOL 166,126,60,36,44,52,58,30,62 [2423] 
140 SYMBOL 167,24,124,60,60,24,36,36, 36 [1996] 
150 SYMBOL 168,52,60,36,84,90,101,99, 231 [2193] 
160 ’ Maennchen rechts [1072] 
170 SYMBOL 169,24,62,60,60,24,36,114,122 12823) 
180 SYMBOL 170,126,60,36,52,44,92,120,124 (2738) 
190 SYMBOL 171,24,62,60,60,24,36, 36,36 (1974) 
200 SYMBOL 172,44,60,36,42,90,126,198,231 L[2185] 
210 ’Mauer [1048] 
220 SYMBOL 173,119,119,0,221,221 [1242] 

_— 
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SYMBOL 
SYMBOL 
'Kugel 
SYMBOL 


174,118,119,1,223, 222 
175,119,247,128,221,93 


176,24,126,255, 226, 226,255,126, 
SYMBOL 177,24,126,255,201.201,255,126, 
SYMBOL 178,24,126,255,147,147,255,126, 


SYMBOL 
SYMBOL 


179,24,126,255,39,39,255,126,24 
180,24,60,126,102,195,195,195,2 
SYMBOL 181,207,239,255,255,255,255,255 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


182,146, 219,255, 255,255 
183,0,0,0,96,144,159,147,99 
184,118,247,129,223,94 
185,0,102,255,231,60,102,231,25 
SYMBOL 186,102,255,231,0,60,102,231,25 
'Bett 
SYMBOL 187,0,0,191,192,255, 255,255, 128 
SYMBOL 188,1,15,177,65,255,255,255,1 
’ Anfangstext 
MODE 1:INK O0,0:BÖRDER O: INK 1,23: INk 2 
‚i1:1INK 3,6:PEN 1 
220 ® a 
430 LOCATE 4,1:PEN 2:PRINT CHR$(24);" 
SCHLUMP IS HORROR TRIP ";CHR$(24);:P 
EN 1 
440 LÜCATE 4,3:PRINT"Sie, 
tadtbekannter" 
450 LOCATE 4,4:PRINT"Penner ziehen auf der 
Suche nach" 
460 LÜCATE 4,5:PRINT"einem 
durch einen" 
470 LOCATE 4,6:PRINT"geraeumigen 
Doch wie das" 
480 LOCATE 4,7:PRINT"Leben so spielt 
eben dieser" 
490 LOCATE 4,8:PRINT"Keller von 
zwielichtigen" 
500 LOCATE 4,9:PRINT"Gestalten 
t. Zu allem" 
510 LOCATE 4,10:PRINT"Unglueck 
h die Aussen-" 
520 LOCATE 4,11:PRINT"tuer auch 
hr oeffnen ..." 
530 LOCATE 4,13:PRINT"Sie sollen nun Schlu 
mpi durch alle" 
540 LOCATE 4,14:PRINT"S 
seinem Schlaf-" 
550 LOCATE 4,15:PRINT"platz bringen." 
560 LOCATE 4,16:PRINT"Dazu benoetigen Sie 
den goldenen!?" 
570 LOCATE 4,17:PRINT"Schluessel , 
eils die Tuer" 
580 LOCATE 4,18:PRINT"zum 
oeffnet ..." 
590 LOCATE 4,19:PRINT"Aber 
lumpi verliert" 
600 LOCATE 4,20:PRINT"bei jeder 
g mit den ge-" 
610 LOCATE 4,21:PRINT"zackten Feldern eine 
Flasche Fusel." 
620 LOCATE 4,22:PRINT" 
k" 
630 PEN 3:LOCATE 4,25:PRINT">>>>>>>>>>>> 
SPACE <<<<<csScccgcicH 
640 ant$="" 
650 WHILE ant$="":ants=INKEY$:WEND 
660 IF ant$=" " THEN 670 ELSE ant$="":GOTü 
650 
670 fusel=4 
680 DIM feld(21,26):bild=4 
690 ENV 1,127,-1,10 
700 MODE O:INK 0,0:BORDER O:INK 1,23:INK 2 
„i1:INK 3,6:INK 4,11:INK 5,24: INK 6,3 
710 i=165:gegi=-176:rausch=4:schluessel=0 


Schlumpi , eins 
Schlafplatz 
Keller. 
wird 
einigen 
heimgesuch 
laesst sic 


nicht me 


Raeume sicher zu 


der jew 


naechsten Raum 


Vorsicht „ Sch 


Beruehrun 


Viel Gluec 


720 GOSUB 1880 

730 xgeg-vonx:go=l:ygeg=-vony:go=0 

740 xxgeg=-vonxx:iyygeg=-vonyy 

750 LOCATE 1,1:PEN 1:PRINT"LIQ. :":fusel-i 
760 LOCATE 11,1:PRINT"SCREEN:";bild 

770 LOCATE x,y:PRINT CHR$(i); 
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[1784] 
[1480] 
[80] 

[2242) 
[2792] 
[2616] 


[1926] 
[2148) 


[2353] 
[1896] 
[2470] 
[2052] 
[2269) 
[2303] 
[740] 

(2155) 
[2466] 
[1311) 
[3282] 
[117] 

[4399] 
[4293] 
[4620] 
[5442] 
[3993] 
[3587] 
[5998] 
[4844] 
[3240] 
[3426] 
(3358) 
[4318] 


[2475] 
13450) 


13264) 
[4591] 
[4900] 
[3538] 
[4065] 
(1933) 
[2411] 
[181) 

[1782] 
[2565] 
[378) 

(583) 

[477] 

(4799) 
(3610) 
[867] 

12338) 
[2800] 
[2119] 


(1281) 
(1451) 


Spiele 


780 LOCATE x,y+1:PRINT CHRS$S(i+1); 

790 ON JOY(O) GOSUB 1870,1870,1870,1150,18 
70,1870,1870,1260,1870,1870,1870,1870,1870 
‚1870,1870,1870,1870,1870,1870,1370,1870,1 
870,1870,1620 

800 IF geh=4 THEN 
E i=165 

810 IF geh=8 THEN 
E i=169 

820 IF feldtx,y+2)<>-1 AND feld(x,y+2)<>-5 
THEN IF y<>25 THEN LOCATE x,y:PRINT " "3: 
LOCATE x,y*+1:PRINT " ";:y=y+1l:LOCATE x,y:P 
RINT CHR$(i);:LOCATE x,y+1:PRINT CHRS$(i+1) 


IF i<>165 THEN i=167 ELS 


IF i<>169 THEN i=171 ELS 


; 
830 IF feld(x,y+2)=-3 OR feld(x,y+1)=-3 TH 


x=xgeg AND y=ygeg THEN 2800 

x=xgeg AND y+i=-ygeg THEN 2800 
x=xxgeg AND y+i=yygeg THEN 2800 
x=xxgeg AND y=yygeg THEN 2800 
feld(x,y+t1)=-4 THEN ton=l:schluesse 


ton=1 THEN ENT -1,10,1,1,10,-1,1:EN 
V 1,127,-1,15:SOUND 1,70,180,15,1,1:ton=0: 
feld(x,y+1)=O 
900 IF feldix+1,y)=-5 AND schluessel=1 THE 
N 2890 
910 IF gegi=176 THEN geggo=i 
gegi=-179 THEN geggo=--1 
gegii=185 THEN gegii=186 ELSE gegii 


geggo=-1 THEN gegi=-gegiti 
geggo=-1 THEN gegi-gegi-i 
xgeg=-vonx THEN xgo=1 ELSE 
THEN xgo=-1 
IF ygeg=vony THEN ygo=1i ELSE 
THEN ygo=1 
IF vony=bisy THEN ygo=0 
IF vonx=bisx THEN xgo=0 
1000 IF xgo=-1 THEN LOCATE XGEG, YGEG:PRINT 
" "3 :XGEG=XGEG-1 
1010 IF xgo=1 THEN LOCATE XGEG, YGEG:PRINT 
" MS:XGEG=XGEG+A 
1020 IF ygo=-1 THEN LÜCATE XGEG, YGEG:PRINT 
" ";:3yGEG=yGEG-1i 
IF ygo=1 THEN LOCATE XGEG, YGEG:PRINT 
" "3: yGEG=yGEG+1 
1040 LÜCATE xgeg,ygeg:PEN 4:PRINT CHR$(geg 
i)5;:PEN 1 
1050 IF xxgeg=vonxx THEN xxgo=1 ELSE 
geg=-bisxx THEN xxgo=-1 
1060 IF yygeg=-vonyy THEN yygo=1 ELSE 
geg=-bisyy THEN yygo=-i 
1070 IF vonyy=bisyy THEN yygo=0 
1080 IF vonxx=bisxx THEN xxgo=0 
1090 IF xxgo=-1 THEN LOCATE xxgeg,yygeg:PR 
INT " ";ixxgeg=xxgeg-i 
1100 IF xxgo=1 THEN LOCATE xxgeg,yygeg:PRli 
NT " ";ıxxgeg=xxgegti 
1110 IF yygo=-1 THEN LOÜCATE xxgeg,yygeg:PR 
INT " ";ıyygeg=-yygeg-i 
1120 IF yygo=i THEN LOCATE xxgeg,yygeg:PRI 
NT " ";:yygeg=yygegti 
1130 LOCATE xxgeg,yygeg:PEN 9:PRINT CHRS$(g 
egii);:PEN i 
1140 GOTO 790 
1150 ’links 
1160 PEN 1 
1170 geh=4 
1180 IF feldix-1,y+t1)=-4 THEN 1200 
1190 IF x=1 OR feld(x-1,y)<>O OR fteldix-1, 
y+t1)<>O ÜR feld(x,y+*t2)=Ö THEN RETURN 
1200 LOCATE x,y:PRINT " ";:LOCATE x,y+i:PR 
ENT ee 8 
1210 x=x-1:IF i=165 THEN i=167 ELSE i=-165 


IF xgeg=-b 


IF ygeg=b 


IF xx 


IF yy 


1220 IF rausch=4 THEN rausch=1 ELSE rausch 
=4 

1230 SOUND 4,3822,5,15,1,1,rausch 

1240 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y*+ 
1:PRINT CHRS$(i+1); 

1250 RETURN 

1260 ’'rechts 

1270 PEN i 

1280 geh=8 

1290 IF feldix+ti,y+ti)=-4 THEN 1310 

1300 IF x=20 OR feldix+ti,y)<s>O OR feldıx#ti 


[1015] 
[5751] 


[1197] 
[976] 


[9096] 


[2481] 


12267] 
[1458] 
12687) 
[2344] 
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[6001] 


[2466] 
[876) 

[2219] 
[4307] 
11698) 


[1084] 
(3781) 


(4104) 
[1255) 
[1277] 
[2920] 
[3583] 
[3477] 
13877) 
[3318] 
[4359] 
[4330] 
[1571] 
[2227] 
(3213) 
[3420] 
[5096] 
(3527) 
[3548] 
[415] 

[1103] 
[549] 

[188] 

[819] 

[3175] 
[2212] 
(1758) 


L1627] 


(2272) 
[2922] 


[555] 
723] 
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[200] 
(1675) 
[4374] 
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Spiele 


‚y+t1)<>O OR feld(x,y+2)=O THEN RETURN 

1310 LÜCATE x,y:PRINT " #3:LÜCATE x,y*+i1:PR 
Inp "nz 
1320 x=x+1:IF 1=169 THEN i=171 ELSE i=-169 

1330 IF rausch=4 THEN rausch=1 ELSE rausch 
=4 

1340 SOUND 4,3822,5,15,1,1,rausch 

1350 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y*+ 
1:PRINT CHRS$(i+1); 

1360 RETURN 

1370 *"hoch+tlinks 

1380 PEN i 

1390 geh=4:i=165 

1400 IF y=1 OR feld(x,y-1)<>O OR FELD(X,Y+ 
2)=0 THEN RETURN 

1410 LOCATE x,y:PRINT "* ";:LOCATE x,y+ti1:PR 
InT " = 

1420 IF FELD(x,y-i1)<>-1 AND y<>2 THEN y=y- 
1 

1430 GOSUB 2830 

1440 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y+ 
1:PRINT CHR$(i+1); 

1450 LOCATE x,y:PRINT " ";:LOCATE x,y+1:PR 
INT 

1460 IF FELD(x,y-1)<>-1 AND y<>2 THEN y=y- 


1 

1470 GOSUB 2830 

1480 LOCATE x,y:PRINT CHR$(1);:LOCATE x,yt 
1:PRINT CHR$(i+1); 

1490 LOCATE x,y:PRINT " ";:LOCATE x,y*+1:PR 
INT ® 23 

1500 IF FELD(x,y-i1)<>-1 AND y<s>2 THEN y=y- 
1 

1510 GOSUB 2830 

1520 LOCATE x,y:PRINT CHR$(i1);:LOCATE x,y+ 
1:PRINT CHRS$(i+1); 

1530 LOCATE x,y:PRINT " ";:LOCATE x,y+ti1:PR 
INT 

1540 IF x<>1 AND FELD(x-1,y)<>-1 THEN x=x- 
4 

1550 GOSUB 2830 

1560 LOCATE x,y:PRINT CHR$(i);:LOCATE x,yt+ 
1:PRINT CHR$(i+1); 

1570 LOCATE x,y:PRINT " ";:LOCATE x,y+i1:PR 
INT # 93 

1580 IF x<>1 AND FELD(x-1,y)<>-1 THEN x=x- 


1 

1590 GOSUB 2830 

1600 LOCATE x,y:PRINT CHR$(1);:LOCATE x,y+ 
1:PRINT CHR$(i+1); 

1610 RETURN 

1620 "hoch+trechts 

1630 PEN 1 

1640 geh=8:i=169 


1650 IF y=1 OR feld(x,y-1)<>0 OR FELD(X,Y+ 
2)=0 THEN RETURN 

1660 LOCATE x,y:PRINT "* ";:LOCATE x,y*+1:PR 
INT ® "3 

1670 IF FELD(x,y-i1)<>-1 AND y<s>2 THEN y=y- 
1 

1680 GOSUB 2830 

1690 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y+ 
1:PRINT CHR$S(i+1); 

1700 LOCATE x,y:PRINT " ";:LOCATE »,y+ti1:PR 
INT u 

1710 IF FELD(x,y-i1)<>-1 AND y<>2 THEN y=y- 


1 

1720 GOSUB 2830 

1730 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y+ 
1:PRINT CHR$(i+1); 

1740 LOCATE x,y:PRINT " ";:LOCATE x,y*+1:PR 
Und, 29 is 

1750 IF FELD(x,y-1)<>-1 AND y<>2 THEN y=y- 
u 

1760 GOSUB 2830 

1770 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y#+ 
1:PRINT CHRS$(i+1); 

1780 LOCATE x,y:PRINT "* ";:LOCATE x,y+t1:PR 
ENT 7 9m 

1790 IF x<>20 AND FELD(x+1,y)<>-1 THEN x=x 
+1 

1800 GOSUB 2830 

1810 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y+ 
1:PRINT CHR$(i+1); 

1820 LOCATE x,y:PRINT " 
inT 2% 

1830 IF x<>20 AND FELD(x+1,y)<>-1 THEN x=x 


"::LOCATE x,y+t1:PR 
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(2212) 


[2362] 
[1627] 


(2272) 
[2922) 


(5551 
[911] 
[549] 
[234] 
[2920] 
[2212] 
[2141] 


[909] 
[2922] 


[2212] 


[2141] 


[909] 
[2922] 


[2212] 


[2141] 


[909] 
[2922] 


[2212) 


(2808) 


[909] 
[2922) 


1221273 


[2808] 


[909] 
[2922) 


[555] 
[598] 
1549) 
[815] 
[2920] 
[2212] 
[2141] 


[909] 
(2922) 


[2212] 


[2141] 


[909] 
[2922] 


[2212] 


[2141] 


[909] 
[2922) 


[2709] 


[909) 
[2922] 


[2212] 


[2709] 


+1 
1840 GÜSUB 2830 

1850 LOCATE x,y:PRINT CHR$(i);:LOCATE x,y* 
1:PRINT CHRS$(i+1); 

1860 RETURN 

1870 RETURN 


1880 ’Bildschirmaufbau 

1890 IF bild=1 THEN RESTORE 2210 
1900 IF bild=2 THEN RESTORE 2330 
1910 IF bild=3 THEN RESTORE 2450 
1920 IF bild=4 THEN RESTORE 2570 
1930 IF bild=5 THEN RESTORE 2690 
1940 PEN 3 

1950 b=1 


1960 FOR a=1 TO 20 

1970 READ feld 

1980 IF feld<>999 THEN 2040 

1990 IF bild=1i THEN RESTORE 2310:G0T0 2130 
2000 IF bild=2 THEN RESTORE 2430:G0T0 2130 


2010 IF bild=3 THEN RESTORE 2550:60T0 2130 
2020 IF bild=4 THEN RESTORE 2670:G0T0 2130 
2030 IF bild=5 THEN RESTORE 2790:G0T0 2130 


2040 IF feld=1 THEN LOCATE a,b:PEN 3:PRINT 
CHR$(173);:feld(a,b)=-1i1 
2050 IF feld=2 THEN LOCATE a,b:PEN 3:PRINT 
CHR$ (174); :feld(a,b)=-1 
2060 IF feld=3 THEN LOCATE a,b:PEN 3:PRINT 
CHR$(175);:feld(a,b)=-1 
2070 IF feld=6 THEN LOCATE a,b:PEN 5:PRINT 
CHR$(182);:feld(a,b)=-3 
2080 IF feld=7 THEN LOCATE a,b:PEN 6:PRINT 
CHR$(183);:feldt(ta,b)=-4 
2090 IF feld=8 THEN LOCATE a,b:PEN 3:PRINT 


CHR$(184);:feld(a,b)=-1 


2100 IF feld=O THEN LOCATE a,b:PRINT " "; 
2110 NEXT 

2120 b=b+3:G0TO 1960 

2130 ’ 


2140 READ vonx,vony,bisx,bisy:READ vonxx,v 
onyy,bisxx,bisyy 

2150 READ xtueri,ytueri:PEN 6: feld(xtueri, 
ytueri)=-1:LOCATE xtueri,ytueri:PRINT CHR$ 
(180); :LOCATE xtueri,ytueri+1:PRINT CHRS$(1 
81); 

2160 READ xtuer2,ytuer2:PEN 6:feld(xtuer2, 
ytuer2)=-5:LOCATE xtuer2,ytuer2:PRINT CHR$ 
(180);5:L0OCATE xtuer2,ytuer2+1:PRINT CHR$(1 
81); 

2170 READ schx,schy:PEN 5:feld(schx,schy)= 
-4:L0OCATE schx,schy:PRINT CHR$(183); 

2180 READ x,y 

2190 RETURN 

2200 * bild i 

2210 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 
2220 DATA 
3,1,1,1 
2230 DATA 0,0.0,0,0,0,0,0,0,0,0,0,0,0,8,0, 
0,0,0,0 

2240 DATA 0,0,6,2,0,0,0,0,0,0,0,0,0,0,0,0, 
8,6,6,6 

2250 DATA 0,0,0,0,8,0,0,0,0,0,0,0,0,0,8,0, 
0,0,0,0 

2260 DATA 0,0,0,0,0,6,2,0,0,0,3,6,1,6,0,0, 
3,1,1,1 

2270 DATA 0,0,0,0,0,0,0,6,2,6,0,0,0,0,8,0, 
0,0,0,0 

2280 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6, 
0,0,0,0 
2290 DATA 
151,154 
2300 DATA 999 

2310 DATA 7,15,19,15;,16,2,16,21,1,2,20,23, 
20,3,2,2 

2320 ’ bild 2 

2330 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

2340 DATA 0,0,0.0,0,0,0,3, 1.4, 1,1, 1,1,4, 15 
1,2,0,0 

2350 DATA 0,3,1,6,1,2,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

2360 DATA 2,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0, 
0,0,3,1 


1.2.0.0,0,0,0,0,0,0,0,0,0.0,0.0, 


1,1,1,1,1,1,6,1,1,1,1,1,1,6,1,1, 


[909] 
[2922] 


[555] 
(555) 
[1166] 
(657) 
[1026] 
[281] 
[1191] 
[1064] 
(547) 
[315] 
(916) 
[1052] 
[1020] 
[1575] 
[2304] 


(1237) 


[1924] 


(1670) 


[2527] 


[3203] 


[2754] 


(5719) 


[4275] 


[3972] 


[1991) 
[350] 
1739) 
[117] 
L4796) 


[4797] 


[5866] 


[5312] 
[469] 

[555] 

[891] 

[2396] 
[1600] 
[2489] 
[2061] 
[2182] 
[2661] 
[1985] 
[2146] 


[2093] 


[156] 
[2076] 


[894] 
[2396] 


[2733] 


[1561] 


[1468] 
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2370 DATA 0,0,3,6,0,3,6,1,2,0,3,1,6,6,6,2, 
0,0,0,0 
2380 DATA 2,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0, 
0,3, 141 
2390 DATA 0,3,6,2,0,0,0,0,0,0,0,0,0,0,0,8, 
0,0,0,0 
2400 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


0,3,6,1 

2410 DATA 1,1,8,1,156,1,8,1,1,6,.1,1,1..12,1% 
ee 

2420 DATA 999 

2430 DATA 1,17,5,17,6,12,16,12,1,23,20,8,2 
‚18,2,23 

2440 ’ bild 3 


2450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

2460 DATA 0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0, 
0,0,0,0 

2470 DATA 0,0,0,8,0,8,0,8,0,0,3,1,6,2,0,0, 
0,0,0,0 
2480 DATA 
0,0,0,0 
2490 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0, 
3,6,1,1 

2500 DATA 0,0,0,0,0,0,0,0,3,1,1,6,1,1,1,2, 
6,6,0,0 

2510 DATA 0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0, 
0,0,0,0 

2520 DATA 0,0,0,0,0,6,1,6,0,0,0,0,0,0,0,0, 
0,0,0,0 
2530 DATA 
isdn Ayrl 
2540 DATA 999 

2550 DATA 4,6,14,6,9,15,16,15,1,8,20,23,20 
‚12,2,8 

2560 ’ bild 4 

2570 DATA 0,0,0,0,0,0,0,0,0,0,0;0,0,0,0,0, 
0,0,0,0 

2580 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

2590 DATA 0,0,0,0,0,3,1,8,0,9,1,2,0,8,.0,6, 
0,0,0,0 

2600 DATA 0,;,0,0,8,0,0;0,6;1,6,0,0;,6;0,;0,0, 
0,0,0,0 

2610 DATA 0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,3,1,1 

2620 DATA 0,0,0,8,0,0,0,0,0,0,0,0,0,0,3,1, 
6,0,0,0 

2630 DATA 0,8,0,0,0,0,0,0,0,3,6,1,6,1,6,1, 
6,1,6,1 

2640 DATA 0,0,6,8,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 
2650 DATA 
1,1,1,1 
2660 DATA 999 

2670 DATA 11,18,14.18,6,6,14,6,1,23,20, 11, 
10,18,2,23 

2680 ’ bild 5 

2690 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

2700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

2710 DATA 0,0,0,3,1,2,0,0,0,3,2,0,3,1,6,1, 
6,2,0,3 

2720 DATA 0,8,0,0,0,0,3,6,1,6,6,6,0,3,1,2, 
0,0,3,1 

2730 DATA 0,0,0,8,0,0,0,0,0,0,3,1,1,6,6,6, 
1,1,6,0 
2740 DATA 
0,0,0,6 
2750 DATA 0,0,0,0,0,0,0,0,0,0,3,1,6,6,0,0, 
0,0,0,0 

2760 DATA 0,0,0,0,0,0,0,6,6,1,1,1,6,6,0,0, 
0,0,0,0 

2770 DATA 6, 1,6, 1, 8. 
1,1,1,1 

2780 DATA 999 

2790 DATA 4,6,20,6,1,24,19,24,1,14,20,23,1 
1,21,2,14 

2800 ’In eine Falle getreten 

2810 IF fusel<>i1 THEN fusel=fusel-1:SOUND 
2,3822,100,15,1,1,31:G0OTO 700 ELSE 2950 


1,2,0,0,6,0,6,0,6,6,0,0,0,0,0,0, 


1,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1, 
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1,2,0,0,0,0,6,6,3,2,0,0,0,0,0,0, 


2820 ’"Ueberpruefen der Position 
2830 IF feld(x,y+2)=-3 OR feld(x,y+t1i)=-3 T 
HEN 2800 


5’87 Sonderheft 


[2900] 


[2309] 


[1584] 


[2104] 


[2741] 


[156] 
[1793] 


[897] 
[2396] 


[1954] 


[2358] 


[2011] 


12472) 


[1527] 


[1847] 


[2031] 


(1753) 


[156] 
(2600) 


[2610] 


[2163] 


[2198] 


(1702) 


18271] 


[1690] 


[156] 
[2036] 


[887] 
[2396] 


[2396] 


[2071] 


[1702] 


[1991] 


[1994] 


[2551] 


[2600] 


[1998] 


[156] 
[1869] 


[481] 
[3194] 


[1626] 
[2481] 


2840 


IF x=xgeg AND y+i1=ygeg THEN 2800 


2850 IF x=xxgeg AND y+ti=yygeg THEN 2800 
2860 IF x=xxgeg AND y=yygeg THEN 2800 
2870 IF feld(x,y+t1)=-4 THEN schluessels=i 
2880 RETURN 

2890 ’Bild geschafft 

2900 IF bild=5 THEN 3130 


29810 ENT -3,2,-5,1,2,4,1:SOUND 2,400, 150,1 

5,1,3:SOUND 4,300,150,15,1,3:SOUND 1,200,1 

50,15,1,3:bild=bild+1:ii=il 

2920 FOR i=1 TO 20:feld(i,ii)=0:NEXT 

2930 IF ii<>25 THEN ii=ii+t1:GOTO 2920 

2940 schluessel=0:G0TO 700 

2950 ’* Fusel alle !!! 

2960 RESTORE 3020 

2970 ENT -1,10,1,10 

2980 READ ton,dauer 

2990 IF ton=999 OR dauer=999 THEN 3050 

3000 SOUND 4,ton#*2,dauer#*2,15,,1:SOUND 2,t 

on,dauer#2,15,,1 

3010 GOTO 2980 

3020 DATA 358,50,0,1,358,25,358,13,0,1,358 
‚,19,0,1,358,50,301,25,301,13,319,13 

3030 DATA 0,1,319,25,319,13,358,13,0,1,358 
‚25,358,13,379,13,358,50 

3040 DATA 999,999 

3050 MODE 1:PEN i 

3060 PEN 1:LOCATE 7,8:PRINT"Pleite auf der 
ganzen Linie!" 


3070 LOCATE 5,9:PRINT"Alle 3 Flaschen Fuse 
I sind weg!" 

3080 ant$="":PEN 3:LOCATE 12,12:PRINT"Noch 
einmal (j/n)?" 

3090 ant$=INKEY$: IF ant$<>"" THEN 3100 ELS 
E 3090 

3100 IF UPPER$(ant$)="J" THEN CLEAR:GÜTO 1 

00 

3110 IF UPPER$(ant$)="N" THEN CLS:END 


3120 GOTO 3090 

3130 ’ Geschafft !!! 

3140 RESTORE 3200 

3150 READ ton,dauer 

3160 IF ton=999 THEN FOR a=1 TO 1500:NEXT: 
MODE 0:GOTO 3220 

3170 SOUND 2,ton*2,dauer,15,1,1:SOUND 4,to 
n,dauer,15,1,1 

3180 GOTO 3150 

3190 

3200 DATA 358,60,268,45,0,2,268,15,0,2,268 
‚120,358,60,239,45,284,15,268,120,358,60,2 
68,45,201,15,0,2,201,60,213,45,239, 15,268, 
60,239,2,268,2,284,45,268,15,239,120 

3210 DATA 999,999 

3220 PEN 3:LOCATE 1,25:PRINT STRING$(20,CH 
R$(173)); 

3230 PEN 5:LOCATE 10,24:PRINT CHR$(187);CH 
R$(188); 

3240 i=169 

3250 FOR x=1 TO 9 

3260 FOR a=1 TO 250:NEXT 

3270 IF x=1 THEN 3290 

3280 LÜCATE x-1,23:PRINT " ";:LOCATE x-1,2 
STtRRILNT * "5 

3290 PEN 1:LOCATE x,23:PRINT CHRS$(i);:LOCA 
TE x,24:PRINT CHRS$(i+1); 


3300 SOUND 4,3822,5,15,1,1,rausch 

3310 IF rausch=1 THEN rausch=4 ELSE rausch 
=1 

3320 IF i=169 THEN i=171 ELSE i=169 

3330 ’LOCATE x,23:PRINT " ";:LOCATE x,24:P 
RINT * "5 

3340 NEXT 

3350 FOR a=1 TO 1000:NEXT: INK 1,0:1INK 3,0: 
INK 5,0 


3360 FOR a=1 TO 1000:NEXT: INK 1,23:INK 3,6 
:1INK 5,5 

3370 MODE 1:PEN 3:LOCATE 11,12:PRINT"Noch 
einmal (j/n)?" 

3380 ant$="" 

3390 WHILE ant$="":ant$=INKEY$:WEND 

IF UPPER$(ant$)="J" THEN CLEAR:GOTO 1 


IF UPPER$(ant$)="N" THEN CLS:END 
ant$s="":GOTO 3390 


Spiele 


[1958] 
[2687] 


[2344] 
[1306] 
[555] 
[1449] 
[465] 
[6638] 


[1043] 
(1706) 
[1234] 
[1207] 
[747] 

[867] 

[1018] 
[1813] 
[4036] 


[311] 
[2353] 


[2998] 
[203) 

[1036] 
13888) 
[3498] 
[3067] 
[2030] 
[5092] 
[1805] 
[630] 

[1643] 
[743] 

[1018] 
[3683] 
13374) 
[451] 


BLLTI 
[7404] 


[203] 
[2168] 


(3369) 


[505] 
[705] 
[1482] 
[687] 
61751] 


[4420] 


2272] 
[1971] 


[1418] 
[2769] 


[350] 
[3401] 


[2465] 


[3286] 


[181] 
[1782] 
[3092] 


[1803] 
[381] 
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RUNNER 


Fritzchen-008 erhält folgenden Auftrag: 
»Sammeln Sie die Schätze in der alten Burg!« 
Für jeden Schatz, den Fritzchen aufnimmt, werden ihm 10 
Punkte gutgeschrieben. Der Schatz ist erst dann aufgenommen, 
wenn ein Ton zu hören ist. Sind alle Schätze aufgenommen, be- 
kommt Fritzchen nochmals eine bestimmte Punktezahl, die von 
der Zeit abhängt. 
Allerdings kommen ihm beim Aufsammeln Kugeln entgegen, 
denen er durch Hüpfen ausweichen kann. Mit jeder geschaff- 
ten Spielrunde wird die Anzahl der Kugeln erhöht. 
Eine weitere Schwierigkeit stellt die begrenzte Zeit dar. Sie wird 
durch einen Balken am rechten Spielfeldrand angezeigt. 
Gesteuert wird wahlweise mit Joystick oder Tastatur: 

a — nach oben 

z — nach unten 

; — nach rechts 

: — nach links 

<SPACE> — Sprung 


Während des Spielverlaufs können noch folgende Tasten betä- 
tigt werden: 

e — zurück zum Menue 

<ENTER> -— Stoppen des Spiels 
Im Programmteil »FARBENEINSTELLUNG« kann mit den 
Cursortasten <oben> und <unten> oder dem Joystick die 
Randfarbe verändert werden. Durch Drücken von <COPY> 
oder <FIRE> werden nacheinander Rand und Farben 1 — 3 
festgesetzt. 


Hinweise zum Abtippen 


1. Hauptprogramm abtippen und mit »RUN« starten. Kassetten- 

besitzer müssen jetzt »REC« und »PLAY« drücken und der Ob- 

jectcode wird automatisch abgespeichert. 

2. Anschließend das 2. Programm abtippen und hinter dem 

Hauptprogramm wie unter 1. abspeichern. Die Datei muß un- 

bedingt den Namen »CODE.BIN« tragen, da sie sonst nicht 

nachgeladen werden kann. 

3. Nun noch zurückspulen und mit RUN “RUNNER’ starten. 
(S. & D. Gradl) 


174 EPE 


für 464-664-6128 


10 REM Kr [1771] 
20 REM" --» RUNNER <-- ke" [1761] 
30 REM [1771] 
40 REM" r“« “““" [1117] 
50 REM"*** written & designed ***" [2799] 
60 REM'*** By. Kr [1271] 
70  REM"'*** Dietmar & Sven war” [2384] 
80 REM" **% GRADL wrx [1177] 
90 REM"Rt*----------- ------ aux [1535] 
100 REM"*** (c) Februar 1987 Kr" [1819] 
110 REM HART [1771] 
120 FOR x=&8500 TO &96A8 STEP 20 [1795) 
130 : sum=0 [680] 
140 : FOR y=0 TO 19 [1055] 
150 : : READ a$:zahl=VAL("&"+a$) [2454] 
160 : : sum=sum+zahl [694] 
170 : POKE x+y,zahl [1094] 
180 : NEXT y [431] 
190 : READ chksun$ [656] 
200 : chksum=VAL ("&"+chksun$) [1115] 
210 : zeile=(x-&8500) /2+250 [1967] 
220 : IF chksum=sum THEN PRINT"Zeile";zeil [4655] 
e;"OK.":GOTO 240 

230 : PRINT"Fehler in Zeile:";zeile;"." [4260] 
240 NEXT x [356] 
245 SAVE"runner.bin",b,&8500,&11B2,&8500 [2362] 
250 DATA 3E,FF,32,00,B8,21,0F,0F,22,E9,B4, [4612] 
3A,88,A6,FE,00,28,0B,21,82,0761 

260 DATA 95,11,77,BC,01,0F,00,ED,BO,21,00, [3068] 
00,22,0E,9F,06,08,21,91,95,05CB 

270 DATA 11,00,9C,CD,77,BC,21,00,A0O,CD,83, [2884] 
BC,CD,T7A,BC,97,CD,96,BB,3E,O0A70 

280 DATA 1A,32,01,75,3E,14,32,02,75,3E,0D, [3489] 
32,03,75,3E,01,21,72,95,CD,04E6 

290 DATA BF,BC,3E,01,21,76,95,CD,BC,BC,97, [2968] 
32,10,76,3E,01,32,00,76,C3,0824 

300 DATA 7B,92,3E,01,32,32,9F,3E,03,32,25, [3435] 
9F,21,00,00,22,50,9F,31,00,04E9 

310 DATA CO,CD,5C,96,3E,01,CD,OE,BC,3E,01, [4335] 
CD,DE,BB,11,72,02,21,00,00,07A0 

320 DATA E5,CD,EA,BB,21,90,01,11,00,00,CD, [3076] 
F9,BB,11,7F,02,E1,CD,EA,BB,OA80 

330 DATA 11,00,00,21,90,01,CD,F9,BB,3E,03, [3088] 
CD,DE,BB,06,03,11,76,02,C5,0742 

340 DATA D5,21,00,00,CD,EA,BB,21,80,02,11, [3784] 
00,00,CD,F9,BB,E1,23,23,54,0818 

350 DATA 5D,C1,10,E7,3E,03,CD,DE,BB,21,00, [4040] 
00,11,00,00,E5,CD,EA,BB,11,0856 

360 DATA 80,02,E1,CD,F9,BB,06,10,21,39,86, [3750] 
C5,7E,32,03,9F,23,7E,32,04,07C8 

370 DATA 9F,23,7E,32,05,9F,23,7E,32,06,9F, [3875] 
97,32,07,9F,32,08,9F,23,7E,0677 

380 DATA 32,09,9F,23,7E,32,0A,9F,23,22,0C, [3734] 
9F,2A,03,9F,ED,5B,05,9F,06,0604 

390 DATA 08,D5,C5,E5,CD,EA,BB,2A,07,9F,ED, [3249] 
5B,09,9F,CD,F9,BB,E1,23,23,0B61 

400 DATA C1,D1,10,E9,2A,0C,9F,C1,10,B1,C3, [3093] 
93,86,42,00,00,00,AE,01,42,07F1 

410 DATA 00,C8,01,A8,00,92,00,00,00,5E,00, [3525] 
92,00,78,00,C6,00,92,00,58,051B 

420 DATA 01,56,00,92,00,C8,01,A8,00,E2,00, [3204] 
00,00,5E,00,E2,00,78,00,C6,05BA 

430 DATA 00,E2,00,58,01,56,00,E2,00,C8,01, [4007] 
A8,00,32,01,00,00,5E,00,32,04A7 

440 DATA 01,78,00,26,00,32,01,B8,00,86,00, [3838] 
32,01,C8,01,A8,00,32,01,58,043F 

450 DATA 01,56,00,3E,02,CD,DE,BB,06,04,21, [2979] 
50,87,C5,7E,32,10,9F,23,7E,06C4 

460 DATA 32,11,9F,23,7E,32,12,9F,23,7E,32, [2924] 
13,9F,23,7E,32,14,9F,23,7E,0612 

470 DATA 32,15,9F,23,7E,32,20,9F,23,E5,CD, [4743] 
FD,86,2A,10,9F,23,23,22,10,0721 

480 DATA 9F,CD,FD,86,2A,10,9F,11,12,00,19, [3156] 
22,10,9F,CD,FD,86,2A,10,9F,07FE 

490 DATA 23,23,22,10,9F,CD,FD,86,2A,10,9F, [4046] 


Sonderheft 5’87 


11,16,00,ED,52,22,10,9F,CD,0744 
500 DATA 15,87,E1,C1,10,A3,C3,6C,87,ED,5B, 
10,9F,2A,12,9F,CD,EA,BB,2A,0A15 
510 DATA 14,9F,11,00,00,CD,F9,BB,C9,78,32, 
20,9F,2A,12,9F,23,23,23,23,06DE 
520 DATA 23,23,22,12,9F,ED,5B,10,9F,CD,EA, 
BB,21,00,00,11,16,00,CD,F9,0790 
530 DATA BB,2A,12,9F,23,23,22,12,9F,ED,5B, 
10,9F,CD,EA,BB,21,00,00,11,074A 
540 DATA 16,00,CD,F9,BB,3A,20,9F,47,10,C2, 
C9,B0,01,02,00,60,01,29,60,070F 
550 DATA 00,52,00,10,01,1F,A0,00,F2,00,70, 
00,0B,40,01,52,00,10,01,1F,0352 
560 DATA 3E,17,32,52,9F,21,1F,88,18,07,2A, 
10,9F,78,32,52,9F,CD,F6,87,071D 
570 DATA ED,53,40,9F,ED,43,42,9F,22,10,9F, 
CD,9A,87,2A,10,9F,3A,52,9F,08F3 
580 DATA 47,10,DF,C3,7B,88,3E,01,CD,DE,BB, 
ED,5B,40,9F,2A,42,9F,CD,EA,O0A8A 
590 DATA BB,21,03,88,22,36,9F,06,04,78,32, 
38,9F,CD,DB,87,3E,03,CD,DE,0804 
600 DATA BB,2A,40,9F,23,23,EB,2A,42,9F,23, 
23,CD,EA,BB,21,13,88,22,36,07CC 
610 DATA 9F,06,03,78,32,38,9F,CD,DB,87,C9, 
18,04,78,32,38,9F,2A,36,9F,07BD 
620 DATA CD,F6,87,22,36,9F,60,69,CD,F9,BB, 
3A,38,9F,47,10,E8,C9,7E,5F,OA81 
630 DATA 23,7E,57,23,7E,4F,23,7E,47,23,C9, 
0C,00,00,00,00,00,06,00,F4,04C2 
640 DATA FF,00,00,00,00,FA,FF,08,00,00,00, 
00,00,02,00,F8,FF,00,00,3C,0535 
650 DATA 00,14,00,49,00,14,00,42,00,1B,00, 
72,01,20,00,79,01,27,00,1A,021C 
660 DATA 00,5B,00,27,00,5B,00,21,00,61,00, 
2D,00,61,00,F4,01,64,00,8C,03D2 
670 DATA 00,AD,00,99,00,AD,00,FA,00,B9,00, 
01,01,B2,00,FD,00,25,01,08,0585 
680 DATA 02,54,01,15,02,54,01,0F,02,4E,01, 
DC,00,4A,01,E9,00,4A,01,E3,0461 
690 DATA 00,51,01,7E,00,0E,01,85,00,15,01, 
21,A0,89,06,0F,22,86,9F,78,0498 
700 DATA 32,88,9F,CD,F6,87,ED,53,70,9F,ED, 
43,72,9F,22,86,9F,CD,A4,88,0B73 
710 DATA 2A,86,9F,3A,88,9F,47,10,DF,C3,DC, 
89,3E,01,CD,DE,BB,ED,5B,70,0A6B 
720 DATA 9F,2A,72,9F,CD,EA,BB,21,38,89,22, 
36,9F,3E,06,32,38,9F,CD,E4,0923 
730 DATA 88,3E,03,CD,DE,BB,2A,70,9F,23,23, 
EB,2A,72,9F,23,23,CD,EA,BB,098C 
740 DATA 21,50,89,22,36,9F,3E,06,32,38,9F, 
CD,E4,88,18,1B,18,04,78,32,0670 
750 DATA 38,9F,2A,36,9F,CD,F6,87,22,36,9F, 
60,69,CD,F9,BB,3A,38,9F,47,09B9 
760 DATA 10,E8,C9,3E,02,CD,DE,BB,21,68,89, 
22,80,9F,3E,07,32,82,9F,18,086A 
770 DATA 04,78,32,82,9F,2A,80,9F,CD,F6,87, 
22,80,9F,60,69,CD,ED,BB,2A,O0AOB 
780 DATA 80,9F,CD,F6,87,22,80,9F,60,69,CD, 
F9,BB,3A,82,9F,47,10,DA,C9,0B49 
790 DATA 16,00,00,00,00,00,14,00,F8,FF,08, 
00,FA,FF,00,00,F8,FF,F8,FF,0810 
800 DATA 00,00,EC,FF,12,00,00,00,00,00,12, 
00,FA,FF,06,00,FA,FF,00,00,0607 
810 DATA FA,FF,FA,FF,00,00,EE,FF,02,00,04, 
00,0E,00,00,00,00,00,04,00,05F7 
820 DATA F2,FF,00,00,00,00,04,00,0E,00,00, 
00,00,00,04,00,F2,FF,00,00,03F8 
830 DATA 02,00,04,00,0A,00,00,00,FE,FF,02, 
00,00,00,EC,FF,FA,FF,00,00,05F3 
840 DATA 00,00,14,00,0E,01,1A,00,30,02,1A, 
00,28,00,1A,00,BE,00,6A,00,01F3 
850 DATA 68,01,6A,00,FE,01,6A,00,28,00,BA, 
00,0E,01,BA,00,30,02,BA,00,04D3 
860 DATA BE,00,0A,01,68,01,0A,01,FE,01,0A, 
01,28,00,50,01,0E,01,50,01,0320 
870 DATA 30,02,50,01,3E,03,CD,DE,BB,21,FF, 
89,06,0A,C5,CD,F6,87,E5,60,0937 
880 DATA 69,CD,EA,BB,CD,27,8A,3E,03,CD,DE 
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[3100] 


1270 DATA 3A,00,9F,CD,56,8D,3A,03,9F,FE,14 


BB,E1,C1,10,EA,C3,89,8A,91,0C03 
890 DATA 00,52,00,22,00,A2,00,22,00,F2,00, 
D0,01,42,01,30,02,52,00,F4,04B6 

900 DATA 01,A2,00,05,01,F2,00,C0,00,42,01, 
26,02,F2,00,E6,00,A2,00,21,0561 

910 DATA 3D,8A,06,0B,C5,CD,F6,87,E5,60,69, 
CD,F9,BB,E1,C1,10,F2,CD,69,0BFO 

920 DATA 8A,10,00,00,00,00,00,02,00,F0,FF, 
00,00,00,00,02,00,10,00,00,029D 

930 DATA 00,00,00,02,00,F0,FF,00,00,00,00, 
02,00,06,00,06,00,02,00,00,0201 

940 DATA 00,FA,FF,FA,FF,3E,01,CD,DE,BB,21, 
00,00,11,06,00,E5,CD,ED,BB,0A29 

950 DATA E1,11,04,00,CD,F9,BB,11,FE,FF,21, 
02,00,CD,F9,BB,C9,3E,01,CD,O9FE 

960 DATA 90,BB,21,C7,8A,7E,23,CD,5A,BB,B7, 
20,F8,CD,3D,96,3E,03,CD,90,0A4D 

970 DATA BB,26,22,2E,01,CD,75,BB,3A,32,9F, 
C6,30,CD,5A,BB,26,15,2E,01,077C 

980 DATA CD,75,BB,3A,25,9F,C6,30,CD,5A,BB, 
2A,50,9F,CD,A3,91,18,22,20,0947 

990 DATA 53,43,4F,52,45,3A,20,20,20,20,20, 
20,20,4C,49,56,45,53,3A,20,0473 

1000 DATA 20,20,20,20,20,20,4C,45,56,45,4C 
‚3A,00,21,90,01,22,14,9F,97,0490 

1010 DATA CD,DE,BB,3E,02,32,60,9F,32,66,9F 
«32,6C,9F,32,72,9F,97,32,61,08B8 

1020 DATA 9F,32,67,9F,32,6D,9F,32,73,9F,3E 
‚07,32,62,9F,32,65,9F,3E,11,0756 

1030 DATA 32,68,9F,32,6B,9F,3E,1B,32,6E,9F 
‚32,71,9F,3E,25,32,74,9F,32,0729 

1040 DATA 77,9F,3E,2F,32,7A,9F,3E,4A,32,63 
«9F,32,69,9F,32,6F,9F,32,75,07AB 

1050 DATA 9F,32,78,9F,3E,4C,32,64,9F,32,6A 
«9F,32,70,9F,32,76,9F,32,79,0815 

1060 DATA 9F,3E,0A,32,27,9F,21,00,A2,97,06 
«45,77,23,10,FC,21,90,A2,97,0714 

1070 DATA 06,DC,77,23,10,FC,3E,2C,32,01,9F 
‚5F,97,32,00,9F,21,00,A0,22,066E 

1080 DATA FE,9F,CD,5B,8D,21,5C,AC,11,F6,8E 
‚01,00,81,CD,D7,BC,3E,07,CD,OA04 

1090 DATA 5A,BB,3E,03,32,57,9F,CD,C9,91,CD 
‚09,BB,FE,0B,28,3F,FE,61,28,092D 

1100 DATA 3B,FE,OA,28,44,FE,7A,28,40,FE,08 
‚CA,FA,8B,FE,3A,CA,FA,8B,FE,0B69 

1110 DATA 09,CA,27,8C,FE,3B,CA,27,8C,FE,20 
‚CA,55,8C,FE,58,CA,55,8C,FE,0BO4 

1120 DATA 65,20,06,CD,D3,8C,C3,7B,92,FE,45 
‚28,F6,FE,0D,CC,78,96,18,B7,0A9C 

1130 DATA CD,F5,8D,CD,DA,8C,D6,02,CD,F4,8C 
‚18,AA,CD,44,8E,CD,DA,8C,C6,0D01 

1140 DATA 02,CD,F4,8C,18,9D,CD,DF,8D,CD,90 
‚8E,3A,00,9F,A7,CA,97,8B,CD,OB61 

1150 DATA 27,8D,D6,02,32,00,9F,CD,56,8D,21 
‚CF,AO,CD,45,8D,21,00,30,CD,085A 

1160 DATA A4,96,21,8A,A0,CD,45,8D,C3,97,8B 
‚CD,DF,8D,CD,90,8E,3A,00,9F,0B06 

1170 DATA FE,4A,CA,97,8B,CD,27,8D,C6,02,32 
‚00,9F,CD,56,8D,21,45,A0,CD,09D1 

1180 DATA 45,8D,21,00,30,CD,A4,96,21,00,A0 
‚CD,45,8D,C3,97,8B,3A,01,9F,0849 

1190 DATA 5F,3A,00,9F,F5,D5,3A,FE,9F,A7,20 
‚07,3E,01,32,22,9F,18,0D,FE,OTFC 

1200 DATA 8A,28,05,D1,F1,C3,97,8B,97,32,22 
‚9F,21,00,A2,22,FE,9F,D1,F1,0A2C 

1210 DATA F5,D5,CD,5B,8D,D1,7B,D6,02,5F,F1 
‚F5,D5,CD,56,8D,3A,22,9F,A7,0COF 

1220 DATA 20,05,21,CF,A0,18,03,21,45,A0,22 
‚FE,9F,D1,F1,F5,D5,CD,5B,8D,09D6 

1230 DATA 21,00,20,2B,E5,CD,09,BB,E1,38,04 
‚7D,B4,20,F4,D1,F1,21,00,A2,08C9 

1240 DATA 22,FE,9F,CD,5B,8D,3A,22,9F,A7,3A 
‚01,9F,5F,3A,00,9F,CA,0C,8C,088A 

1250 DATA C3,3A,8C,21,5C,AC,CD,DD,BC,C9,21 
‚00,A2,22,FE,9F,3A,01,9F,5F,099C 

1260 DATA 3A,00,9F,CD,5B,8D,21,00,A2,22,FE 
«9F,3A,01,9F,C9,32,01,9F,5F,07E4 
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epc 175 


Spiele___— 


‚20,0B8,21,59,A1,22,03,9F,22,06A3 
1280 DATA FE,9F,18,09,21,14,A1,22,03,9F,22 
‚FE,9F,3A,01,9F,5F,3A,00,9F,0729 
1290 DATA CD,5B,8D,CD,CA,8D,C9,21,00,A2,22 
‚FE,9F,3A,01,9F,5F,3A,00,9F,0936 
1300 DATA CD,5B,8D,21,00,A2,22,FE,9F,3A,01 
‚9F,5F,3A,00,9F,C9,22,FE,9F,08D1 
1310 DATA 3A,01,9F,5F,3A,00,9F,CD,5B,8D,CD 
‚CA,8D,C9,01,12,7E,18,03,01,0761 
1320 DATA 77,1A,21,76,8D,70,23,71,67,6B,CD 
‚88,8D,06,03,0E,17,ED,5B,FE,O7E1 
1330 DATA 9F,DD,68,DD,45,E5,1A,77,C5,C1,13 
‚CD,BE,8D,10,F6,E1,CD,AC,8D,OC1A 
1340 DATA 0D,20,EC,C9,45,CB,85,4C,26,00,54 
‚5D,29,29,19,29,29,29,59,19,05F2 
1350 DATA ED,5B,C9,B1,19,7C,E6,07,67,3E,CO 
‚84,CB,18,30,02,C6,20,67,C9,0958 
1360 DATA 7C,C6,08,67,E6,38,C0,7C,D6,40,67 
‚17D,C6,50,6F,D0,18,02,2C,C0,0960 
1370 DATA 24,7C,E6,07,C0,7C,D6,08,67,C9,21 
‚D3,8D,06,06,CD,FC,91,C9,00,0987 
1380 DATA F4,01,02,06,0E,08,07,07,36,07,3F 
‚3A,01,9F,FE,04,C8,FE,OE,C8,0615 
1390 DATA FE,18,C8,FE,22,C8,FE,2C,C8,E1,C3 
«97,8B,3A,00,9F,FE,0C,28,0F,0A98 
1400 DATA FE,14,28,1E,FE,28,28,07,FE,36,28 
«29,C3,97,8B,3A,01,9F,FE,23,0812 
1410 DATA DA,17,8E,E1,C3,97,8B,FE,05,DO,E1 
‚C3,97,8B,3A,01,9F,FE,OF,DA,OBIF 
1420 DATA 2A,8E,E1,C3,97,8B,FE,05,D0,E1,C3 
«97,8B,3A,01,9F,FE,2D,DA,3D,0B33 
1430 DATA 8E,E1,C3,97,8B,FE,05,D0,E1,C3,97 
‚8B,3A,00,9F,FE,0C,28,0F,FE,0BO05 
1440 DATA 14,28,1D,FE,28,28,07,FE,36,28,27 
‚C3,97,8B,3A,01,9F,FE,22,38,0748 
1450 DATA 04,E1,C3,97,8B,FE,04,00,E1,C3,97 
‚8B,3A,01,9F,FE,OE,38,04,E1,0A65 
1460 DATA C3,97,8B,FE,04,D0,E1,C3,97,8B,3A 
‚01,9F,FE,2C,38,04,E1,C3,97,0AF8 
1470 DATA 8B,FE,04,D0,E1,C3,97,8B,21,40,A2 
‚ TE,FE,FF,CO,06,18,21,2D,A2,0A6F 
1480 DATA 97,77,23,10,FB,3E,03,CD,90,BB,2A 
‚50,9F,11,0A,00,19,22,50,9F,06F3 
1490 DATA CD,A3,91,21,7A,95,06,04,CD,FC,91 
‚21,D0,07,2B,7C,B5,20,FB,0E,0912 
1500 DATA 3F,3E,07,CD,34,BD,3A,27,9F,3D,32 
,27,9F,C0,2A,50,9F,ED,5B,14,07AC 
1510 DATA 9F,19,22,50,9F,3A,32,9F,3C,FE,OA 
‚20,02,3E,09,32,32,9F,E1,3E,06A3 
1520 DATA FF,32,10,76,CD,39,91,C3,76,85,C5 
‚D5,E5,F5,CD,98,96,3A,00,76,0B2B 
1530 DATA 3D,32,00,76,C2,07,91,3E,07,32,00 
«16,3A,57,9F,3D,32,57,9F,20,05E1 
1540 DATA 08,CD,1C,91,3E,03,32,57,9F,3A,32 
‚9F,3D,32,13,9F,CD,AC,90,22,0742 
1550 DATA 16,9F,CD,BA,90,2A,16,9F,7E,23,23 
‚SE,CD,EA,8F,3A,13,9F,A7,28,08CE 
1560 DATA 06,3D,32,13,9F,18,E1,CD,BA,90,2A 
‚16,9F,7E,5F,23,56,BA,38,05,0763 
1570 DATA CA,B6,8F,18,30,A7,CA,D6,90,FE,OC 
‚CA,15,90,FE,14,CA,2E,90,FE,OB3F 
1580 DATA 28,CA,15,90,FE,36,CA,3F,90,73,2B 
«78,D6,02,77,23,23,5E,23,22,07B5 
1590 DATA 16,9F,CD,E5,8F,CD,OF,91,20,C1,C3 
‚EE,90,FE,4C,CA,D6,90,FE,0C,0C09 
1600 DATA CA,15,90,FE,14,CA,2E,90,FE,28,CA 
‚15,90,FE,36,CA,3F,90,73,2B,0A09 
1610 DATA 7B,C6,02,77,23,23,5E,23,22,16,9F 
‚CD,E5,8F,CD,OF,91,20,90,C3,0879 
1620 DATA EE,90,FE,0C,CA,15,90,FE,14,CA,2E 
‚90,FE,28,CA,15,90,FE,36,CA,0B24 
1630 DATA 3F,90,73,2B,56,23,23, 7E,C6,02,77 
‚SF,TA,23,22,16,9F,CD,E5,8F,07DA 
1640 DATA CD,OF,91,C2,43,8F,C3,EE,90,01,12 
‚1E,18,03,01,77,1A,21,05,90,0736 
1650 DATA 70,23,71,67,6B,CD,88,8D,06,02,0E 
‚OB,ED,SB,FA,9F,DD,68,DD,45,0921 
1660 DATA E5,1A,77,13,CD,BE,8D,10,F8,E1,CD 
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[2324] 


[1896] 
[3444] 
[3005] 
[2291] 
[2918] 
[4135] 
[2233) 
[3589] 
[1679] 
[3626] 
[2027] 
[3112] 
[3368] 
[4124] 
[3012] 
[4402] 
[3129] 
[3033] 
[3973] 
[1861] 
[3995] 
[3765] 
[3837] 
[2936] 
[4336] 
[3437] 
[2546] 
[4330] 
[3659] 
[2959] 
[3106] 
[2674] 
[4707] 
[2483] 
[2477] 
[4028] 
[3445] 


[2716] 


‚AC,8D,0D,20,EE,C9,23,7E,2B,0A40 
1670 DATA FE,07,28,3D,FE,11,28,39,FE,1B,28 
‚35,FE,25,28,49,DA,CA,8F,C3,08DA 
1680 DATA A3,90,23,7E,2B,FE,07,28,24,FE,11 
‚28,38,DA,CA,8F,C3,A3,90,23,090B 
1690 DATA 7E,2B,FE,07,28,13,FE,11,28,0F,FE 
‚1B,28,0B,FE,25,28,07,FE,2F,06FA 
1700 DATA 28,1B,C3,CA,8F,CD,87,90,28,04,38 
«39,30,2D,ED,5F,CB,47,CA,6D,08D2 
1710 DATA 8F,CB,4F,CA,9E,8F,C3,CA,8F,CD,87 
‚90,DA,6D,8F,CA,7D,90,D2,9E,OCBD 
1720 DATA 8F,ED,5F,CB,47,C2,6D,8F,C3,9E,8F 
‚2A,16,9F,7E,23,56,BA,C9,ED,OAE1 
1730 DATA 5F,CB,47,C2,CA,8F,C3,9E,8F,ED,5F 
‚CB,47,CA,6D,8F,C3,CA,8F,CD,0C89 
1740 DATA 87,90,DA,6D,8F,D2,9E,8F,21,60,9F 
‚3A,13,9F,5F,87,83,5F,16,00,08D6 
1750 DATA 19,C9,01,90,A2,3A,13,9F,57,CB,27 
‚CB,27,CB,27,5F,CB,23,83,CB,08C9 
1760 DATA 22,92,6F,26,00,09,22,FA,9F,C9,F5 
‚23,ED,5F,CB,47,20,04,3E,07,07B5 
1770 DATA 18,02,3E,11,77,2B,F1,A7,CA,9E,8F 
‚Cc3,6D,8F,97,32,13,9F,21,9F,0894 
1780 DATA Al,22,FA,9F,CD,AC,90,1E,23,23,5E 
‚CD,EA,8F,CD,OF,91,20,F1,CD,0B18 
1790 DATA 9F,96,F1,E1,D1,C1,C9,3A,32,9F,57 
‚3A,13,9F,3C,32,13,9F,BA,C9,0A53 
1800 DATA 2A,14,9F,2B,2B,22,14,9F,7C,B5,CA 
‚B5,91,11,76,02,CD,EA,BB,21,0865 
1810 DATA 00,00,11,06,00,CD,F9,BB,C9,CD,D3 
‚8C,01,01,00,11,40,01,21,C8,06CA 
1820 DATA 00,C5,09,EB,09,EB,CD,EA,BB,C1,C5 
‚60,69,29,11,00,00,D5,E5,CD,OA2F 
1830 DATA 9B,91,CD,F9,BB,E1,D1,D5,E5,CD,9B 
‚91,EB,CD,F9,BB,E1,D1,D5,E5,0FEA 
1840 DATA CD,F9,BB,D1,E1,CD,F9,BB,E1,23,23 
‚44,4D,C5,E5,3A,10,76,A7,3E,OBBB 
1850 DATA 00,32,10,76,11,69,95,20,03,11,60 
«95,CD,69,92,E1,C1,7D,FE,43,0818 
1860 DATA 20,A9,7C,A7,C0,18,A4,7C,2F,67,7D 
‚ED,44,6F,C9,E5,21,01,08,CD,093C 
1870 DATA 75,BB,E1,CD,00,B9,CD,79,EE,CD,03 
‚B9,C9,CD,D3,8C,3A,25,9F,3D,0B84 
1880 DATA 28,4A,F5,CD,39,91,F1,32,25,9F,C3 
«16,85,3A,32,9F,21,5D,9F,11,08DC 
1890 DATA 03,00,47,3A,00,9F,19,4E,B9, 28,08 
‚0D,0D,B9,28,03,10,F1,C9,23,055E 
1900 DATA 23,3A,01,9F,4E,0C,B9,28,C8,0D,OD 
‚B9,28,C3,0D,0D,B9,28,BE,2B,06A2 
1910 DATA 2B,10,D8,C9,7E,23,4E,C5,CD,34,BD 
‚23,C1,10,F5,C9,3E,01,CD,90,099C 
1920 DATA BB,21,04,0C,E5,CD,75,BB,CD,20,92 
‚El,23,7D,FE,07,20,F2,18,0C,0909 
1930 DATA 06,0F,C5,3E,8F,CD,5A,BB,C1,10,F7 
‚C9,3E,01,CD,96,BB,3E,03,CD,0985 
1940 DATA 90,BB,21,05,0D,CD,75,BB,21,5B,92 
‚E5,11,57,95,CD,69,92,21,00,0854 
1950 DATA 40,CD,A4,96,E1,7E,23,CD,5A,BB,B7 
‚20,EA,CD,96,BB,C3,65,94,2A,0B70 
1960 DATA 20,47,41,4D,45,20,4F,56,45,52,20 
‚2A,00,21,B2,AD,06,09,1A,77,0500 
1970 DATA 23,13,10,FA,21,B2,AD,CD,AA,BC,C9 
‚3E,01,CD,OE,BC,CD,99,95,3E,09CB 
1980 DATA 03,CD,90,BB,21,09,08,CD,75,BB,3E 
‚C2,CD,5A,BB,CD,3E,93,3E,C3,09CB 
1990 DATA CD,5A,BB,3E,0A,F5,26,08,6F,CD,75 
‚BB,3E,95,CD,5A,BB,F1,F5,26,0A7A 
2000 DATA 1F,6F,CD,75,BB,3E,95,CD,5A,BB,Fi 
‚3C,FE,11,20,E1,21,11,08,CD,0984 
2010 DATA 75,BB,3E,C1,CD,5A,BB,CD,3E,93,3E 
‚C0,CD,5A,BB,3E,01,CD,90,BB,OAE6 
2020 DATA 21,0B,0C,CD,75,BB,21,08,93,CD,FF 
.92,21,0D,0C,CD,75,BB,21,1A,07C1 
2030 DATA 93,CD,FF,92,21,0F,0C,CD,75,BB,21 
‚20,93,CD,FF,92,3E,02,CD,90,09F9 
2040 DATA BB,18,4B,7E,23,CD,5A,BB,B7,20,F8 
‚C9,46,41,52,42,45,4E,45,49,0875 
2050 DATA 4E,53,54,45,4C,4C,55,4E,47,00,53 
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,50,49,45,4C,00,45,4E,44,45,0555 


‚20,44,69,65,74,6D,61,72,20,0610 
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2060 DATA 00,0A,0D,52,41,48,4D,45,4E,00,0 [3871] 2450 DATA 26,20,53,76,65,6E,20,47,72,61,64 [2814] 
‚OA,0D,53,43,48,52,45,49,42,03F3 ‚6C,00,3A,01,75,47,4F,3E,01,0571 
2070 DATA 46,41,52,42,45,00,06,16,C5,3E,9A [3450] 2460 DATA CD,32,BC,3A,02,75,47,4F,3E,02,CD [2518] 
‚CD,5A,BB,C1,10,F7,C9,21,0B,07B8 ‚32,BC,3A,03,75,47,4F,3E,03,0686 
2080 DATA OA,ES,CD,75,BB,3E,F3,CD,5A,BB,CD [3084] 2470 DATA CD,32,BC,C9,21,D9,B1,36,14,11,DA [4003] 
‚06,BB,E1,E5,F5,26,0A,CD,75,0BBA ‚B1,01,20,00,ED,B0,C9,21,08,08C5 
2090 DATA BB,3E,20,CD,5A,BB,F1,El,FE,F1,28 [4509] 2480 DATA 01,CD,75,BB,3E,14,CD,5A,BB,C3,83 [3605] 
‚21,FE,0B,28,1D,FE,FO,28,0E,077 ‚92,CD,98,96,CD,06,BB,FE,OD,OA9E 
2100 DATA FE,OA,28,0A,FE,E0,28,1E,FE,58,28 [4326] 2490 DATA 28,0C,FE,65,CA,92,96,FE,45,CA,92 [2638] 
‚1A,18,CB,2D,2D, 7D,FE,0B, 30,07E9 ‚96,18,ED,CD,9F,96,C9,31,00,0ABF 
2110 DATA C4,2E,0B,18,C0,2C,2C,7D,FE,OF,28 [3779] 2500 DATA CO,C3,7B,92,21,00,00,22,FE,B1,C9 [3105] 
‚B9,38,B7,2E,0F,18,83, 7D,FE,080A ‚21,5C,AC,18,F7,2B,7C,B5,20,08FF 
2120 DATA 0B,28,08,FE,0D,C4,00,00,C3,66,85 [3728] 2510 DATA FB,C9,00,00,00,00,00,00,00,00,00 [3891] 
‚3E,01,CD,0E,BC,21,01,0A,E5,069F ‚00,00,00,00,00,00,00,00,00,01C4 
2130 DATA CD,75,BB,3E,03,CD,90,BB,21,08,93 [2805] 
‚CD,FF,92,E1,2C,CD,75,BB,06,0A80 10 REN" Aananunnnununuana arena [1708] 
2140 DATA 11,3E,02,CD,90,BB,3E,3D,CD,5A,BB [3575] 20 REM"*** Shape's fuer Runner *** [1787] 
‚10,F9,21,04,01,CD,75,BB, 3E,0830 30 REM"ARnanunnnununununnanananare [1708] 
2150 DATA 01,CD,90,BB,21,25,93,CD,FF,92,CD [3726] 40 FOR x=&A000 TO &A1BS STEP 20 [1938] 
‚2B,94,78,32,00,75,3E,01,F5,092F 50 : sun=O [680] 
2160 DATA 21,2E,93,CD,FF,92,F1,F5,C6,30,CD [3344] 60 : FOR y=0 TO 19 [1055] 
‚5A,BB,CD,2B,94,21,00,75,F1,0Bll 70 : : READ a$:zahl=VAL("&"+a$) [2454] 
2170 DATA 5F,16,00,19,70,3C,FE,04,28,02,18 [3394] 80 : : sum=sun+zahl [694] 
‚DF,3A,00,75,47,4F,CD,38,BC,0663 90 : POKE x+y,zahl [1094] 
2180 DATA 3E,01,21,01,75,46,48,E5,F5,CD,32 [2422] 100 : NEXT y [431] 
‚BC,F1,E1,3C,23,FE,04,20,F1,093D 110 : READ chksun$ [656] 
2190 DATA C3,78,92,06,00,C5,48,CD,38,BC,CD [3234] 120 : chksun=VAL("&"+chksun$) [1115] 
‚06,BB,FE,58,28,2A,FE,0B,28,090B 130 : zeile=(x-&A000) /2+180 [1707] 
2200 DATA 10,FE,FO,28,17,FE,0A,28,13,FE,EO [2705] 140 : IF chksun=sum THEN PRINT"Zeile";zeil [4431] 
‚28,1A,FE,F1,20,E5,C1,05,CB,0A25 e;"OR.":G0TO 160 
2210 DATA 78,28,DA,3E,1A,47,18,D5,C1,04,78 [3890] 150 : PRINT"Fehler in Zeile:";zeile;"." [4260] 
‚FE,1B,20,CE,06,00,18,CA,C1,07F3 160 NEXT x [356] 
2220 DATA C9,3E,01,CD,0E,BC,CD,5C,96,CD,99 [4471] 170 SAVE"code.bin",b,&A000,&1B8 [1984] 
‚95,3E,01,CD,90,BB, 21,0B,09,08E5 180 DATA 00,70,80,00,C3,0C,10,D3,08,10,87, [3296] 
2230 DATA CD,75,BB,21,05,95,CD,FF,92,2R,50 [3033] 08,10,87,0C,10,87,0C,00,0F,049E 
‚9F,CD,F4,94,3E,01,CD,90,BB,OADB 190 DATA 00,00,03,08,11,88,00,33,EE,00,33, [3378] 
2240 DATA 21,0D,09,CD,75,BB,21,11,95,CD,FF [2570] BB,00,33,BB,00,33,BB,00,33,04C2 
‚92,2A,50,9F,ED,5B,0E,9F,A7,090E 200 DATA BB,00,33,BB,00,11,84,00,00,C2,00, [3203] 
2250 DATA ED,52,CB,7C,28,03,EB,18,06,2A,50 [3415] 00,C2,00,00,08,00,00,0E,00,03E4 
‚9F,22,0E,9F,CD,F4,94,3E,03,0838 210 DATA 00,0E,00,00,FF,00,00,FF,00,00,70, [2640] 
2260 DATA CD,90,BB,21,13,03,CD,75,BB,21,1D [4368] 80,00,C3,0C,10,D3,08,10,87,054D 
‚95,CD,FF,92,21,15,06,CD,75,08FB 220 DATA 08,10,87,0C,10,87,0C,00,0F,00,00, [2610] 
2270 DATA BB,21,41,95,CD,FF,92,CD,3D,96,06 [3436] 03,08,33,EE,00,77,FF,00,FF,O4FE 
‚64,C5,CD,09,BB,C1,10,F9,CD,0B07 230 DATA FF,35,EE,FF,35,EE,FF,35,EE,00,44, [2478] 
2280 DATA 06,BB,FE,6D,CA,6A,96,FE,AD,CA,6A [3358] 60,0F,00,60,0F,00,00,0F,08,079F 
‚96, FE,20,CA,66,85,FE,58,CA,OBFE 240 DATA 00,0F,0C,CF,07,0C,CF,08,0C,CF,08, [3314] 
2290 DATA 66,85,18,E7,E5,3E,02,CD,90,BB,El [3198] 0C,CC,00,EE,00,00,EE,10,E0,065B 
‚cD,00,89,CD,79,EE,CD,03,B9,OB4B 250 DATA 00,03,3C,00,01,BC,80,01,1E,80,03, [3341] 
1E,80,03,1E,80,00,0F,00,01,036D 
238,00.48,69,67,68.20.53.68.0100 0 260 DATA 0C,00,00,11,88,00,77,C0,00,DD,CC, [2315] 
r D r D ‚cc, ‚DD, ’ 
ee ea BEa 270 DATA 00,DD,CC,00,15,88,00,34,00,00,34, [3920] 
2320 DATA 72,20,5B,46,49,52,45,5D,20,74,6F [3476] #000 .07.00,09,07.00.00,07,0363 
TE TA.CL 72 Ta Ze DE DE 0ER 280 DATA 00,00,FF,00,00,FF,00,10,E0,00,03, [3027] 
2330 DATA 00,50,72,65,73,73,20,5B,4D,5D,20 [2989] 3C,80,01,BC,80,01,1E,80,03,058C 
1.08 .20,60. 65.68 78, 58 2E sp 290 DATA 1E,80,03,1E,80,00,0F,00,01,0C,00, [3457] 
2340 DATA 2E,2E,00,01,00,00,01,C2,00,0F,07 [3680] 00,11,88,00,77,CC,00,FF,EE,0524 
00.01.00. 01.96.00.00.08 07 ara 300 DATA E2,FF,FF,E2,FF,77,22,00,77,00,0F, [3664] 
2350 DATA 00,01,01,00,00,32,00,00,00,00,01 [3323] 60,00,0F,60,01,0F,00,03,0F,06D1 
S6R.M 01.01 06.18 04 00 23 oar 310 DATA 00,03,0E,3F,03,01,3F,03,01,3F,77, [3068] 
2360 DATA 01,00,08,07,07,3E,DF,8B,A8,DF,8B [3973] SU Bn TI URL END IN BASE DIRT 
ERDE GRAB Dr SB ME E 8B 0307 320 DATA FO,C0,60,F0,C0,EE,F0,CO,EE,F0,CO, [3478] 
2370 DATA A8,63,6F,64,65,2E,62,69,6E,21,19 [2813] BB U EONEE SO OA, TIER SER LORD 
Er 330 DATA 77,FF,8E,33,FF,CC,33,FF,CC,11,FF, [3237] 
2380 DATA 21,17,96,CD,FF,92,3E,01,CD,DE,BB [4516] BOLILERE TER FERN UI TER LUNG 
EL 00,00:83 Be De Eee FOlonis 340 DATA 00,03,0E,00,03,06,00,03,06,00,77, [3290] 
2390 DATA BB,A7,28,31,E1,D1,D5,E5,E5,EB,29 [2678] BB ON IT» DU DD DR DD ED DLR 
onen 350 DATA 77,00,00,77,00,10,E0,00,30,F0,60, [3457] 
2400 DATA 29,11,2C,01,19,D1,CD,EA,BB,11,FE [4715] RR 
ET 360 DATA 10,E0,77,00,00,FF,71,FF,EE,71,FF, [4167] 
2410 DATA 21,02,00,D5,E5,CD,F9,BB,D1,El,CD [3319] I 
ER EERTIR 370 DATA 88,11,FF,88,11,77,88,00,07,0C,00, [2855] 
2420 DATA 38,BE,11,00,00,23,23,7D,FE,11,38 [3599] ee peaege 
a a ren 380 DATA 06,0C,00,06,EE,00,06,EE,00,EE,00, [2975] 
2430 DATA 32,BC,21,19,01,CD,75,BB,21,1E,96 [3646] 00, EE,00,00,00,00,00,00,00,03D6 
‚CD,FF,92,C9,52,75,6E,6E,65,092A 390 DATA 00,03,0C,07,0E,OF,OF,OF,OF,OF,OF, [3860] 
2440 DATA 72,00,A4,20,31,39,38,37,20,62,79 [3208] OF, OF,07,0E,03,0C,00,00,00,00C0 
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Spiele 


MEMORY 


Die Spielregeln für Memory dürften wohl jedem bekannt 
sein. Die Spieler drehen nacheinander zwei der verdeckten 
Karten um. Sind diese Karten ein Paar, darf man sie behal- 
ten und es nochmal versuchen, andernfalls müssen die Kar- 
ten wieder verdeckt abgelegt werden und der nächste Spieler 
ist an der Reihe. Diese Version des Spieles ist für einen Spie- 
ler ausgelegt, der gegen den Computer antreten muß. 


Nach dem Start des Programms... 

erfolgt die Frage nach dem Beginner und dem Schwierigkeits- 
grad (O=leicht, 9=schwer). Wenn der Spieler am Zug ist, er- 
scheint ein blinkender Cursor, der mit dem Joystick bewegt wer- 
den kann. Durch Druck auf dem Feuerknopf wird die entspre- 
chende Karte umgedreht. Mit der H-Taste läßt sich das Spiel vor- 
zeitig beenden und alle restlichen Karten werden umgedreht. 


Das Abtippen 
Das erste Listing wird nach dem Abtippen abgespeichert, wäh- 
rend die beiden anderen gestartet (sicherheitshalber sollten auch 
die Listings 2 & 3 vor dem Starten gesichert werden) und der 
damit erzeugte Code abgespeichert wird. 

(Werner Schmidt/SH) 


für 464-664-6128 


III NIIT WWW HIN NIIT III IT T TI 


10 MEMORY 33999:LOAD"!mg":LOAD"!mm":FOR n= [3739] 
40656 TO 40912:POKE n,O:NEXT 


20 FOR n=0 TO 14:READ a:INK n,a:NEXT:INK 1 [3561] 

5,23,8:BORDER 0:MODE 0 

30 DATA 0,13,6,15,18,24,26,1,3,9,12,16,25, [1531] 

11,19 

40 RANDOMIZE TIME:DIM m(49),b(9,4),bw(9,4) [2517] 

50 PEN 2:PRINT TAB(5);"M ";:PEN 13:PRINT"E [6041] 
";:PEN 5:PRINT"M ";:PEN 3:PRINT"O ";:PEN 

4:PRINT"R ";:PEN 6:PRINT"Y" 

60 PEN 7:LOCATE 3,3:PRINT CHR$(164);" Wern [4051] 

er Schmidt" 

70 LOCATE 17,4:PRINT"9/86" [1071] 

80 PEN 1:LOCATE 1,7:PRINT"Wer soll anfange [2277] 

n rad 

90 LOCATE 1,9:PRINT"(1) Ich" [961] 

100 LOCATE 1,10:PRINT"(2) Du" [1232] 

110 a$=INKEY$:IF a$<»"1" AND a$<>"2" THEN [1364] 

110 

120 LOCATE 1,13:PRINT"Schwierigkeitsgrad ? [3716] 

130 LOCATE 1,15:PRINT" (0-9) " [1123] 

140 b$=INKEY$:IF b$<"0" OR b$>"9" THEN 140 [3219] 

150 sch=(VAL(b$)/10)+0.1 [1429] 

160 FOR n=1 TO 25:m(n)=2:NEXT [1929] 

170 MODE 0:FOR n=0 TO 9:FOR m=0 TO 4 [2460] 

180 a=INT(RND*25)+1:IF m{a)=0 THEN 180 [3130] 

190 b(n,m)=a:m(a)=m(a)-1:bw(n,m)=2:NEXT mn, [2217] 

n 

200 FOR n=0 TO 4:FOR m=0 TO 9 [1160] 

210 CALL 41000,49152+8*m+320*n, 34000:m(10* [3093] 

n+m)=0:NEXT m,n 

220 PEN 11:LOCATE 2,25:PRINT"Ich: 0";TAB ( [3423] 

14)#"Du: 005 

230 zahl=0:ps=0:pc=0 [1169] 

240 IF a$="1" THEN 470 [917] 
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250 zs=0 

260 s=0:z=0:sv=0:zv=0:LOCATE 1,3:PEN 15:PR 

INT CHR$ (22) ;CHR$ (1) ;CHR$ (230) ;CHR$ (22) ;CH 

R$(0); 

270 IF JOY(O)=1 AND z>O THEN z=z-1 

280 IF JOY(O)=2 AND z<4 THEN z=z+1 

290 IF JOY(O)=4 AND s>O THEN s=s-1 

300 IF JOY(0)=8 AND s<9 THEN s=s+1 

310 IF JOY(0)=16 THEN 370 

320 IF INKEY$="h" THEN 680 

330 IF bw(sv,zv)=2 THEN a=34000 ELSE IF bw 
(sv,zv)=1 THEN a=256*b(sv,zv)+34000 ELSE I 

F bw(sv,zv)=0 THEN a=40656 

340 IF s<C>sv OR z<>zv THEN CALL 41000,4915 

2+8*sv+320*zv,a:LOCATE s*2+1, (z+1) *4-1:PEN 
15:PRINT CHR$ (22) ;CHR$ (1) ;CHR$ (230) ;CHRS ( 

22) ;CHR$(0); 

350 sv=s:zv=z 

360 FOR n=1 TO 30:NEXT:GOTO 270 

370 IF bw(s,z)<>2 THEN 320 

380 CALL 41000,49152+8*s+320*z, 34000+256*b 
(s,z):m(10*z+s)=b(s,z) 

390 zs=zs+1:IF zs<()2 THEN bw(s,z)=1:sm=s:z 

m=2:LOCATE s*2+1, (z+1)*4-1:PEN 15:PRINT CH 

R$(22) ;CHR$(1) ;CHR$ (230) ;CHRS (22) ;CHR$ (0) ; 
:GOTO 320 

400 FOR n=1 TO 1000:NEXT 

410 IF b(sm,zm)<>b(s,z) THEN bw(sn,zm)=2:C 

ALL 41000,49152+8*sm+320*zm, 34000:CALL 410 

00,49152+8*s+320*z,34000:FOR so=50 TO 500 
STEP 20:SOUND 1,s0,1:NEXT:GOTO 470 

420 FOR so=500 TO 50 STEP -20:SOUND 4,so,1 
:NEXT 

430 CALL 41000,49152+8*sm+320*zm,40656:CAL 

L 41000,49152+8%*s+320%*z,40656 

440 bw(sn,zn)=0:bw(s,z)=0:n(10*zm+sm)=0:m( 
10*z+s)=0 

450 ps=ps+1:PEN 11:LOCATE 17,25:PRINT ps; 
460 zahl=zahl+1:IF zahl<>25 THEN 250 ELSE 
7120 

470 IF RND>sch THEN 520 

480 FOR n=0 TO 49:IF m(n)=0 THEN 510 

490 FOR m=n+1 TO 49:IF m(n)=n(m) THEN zm=I 
NT (n/10) :sm=n-10*zm:n=INT (m/10) :m=m-10*n:G 
OTO 600 

500 NEXT m 

510 NEXT n 

520 n=INT(RND*50) :zm=INT (n/10) :sm=n-10*zn: 
IF bw(sm,zm)<>2 THEN 520 

530 m(n)=b(sn,zm) 

540 IF RND>sch THEN 580 

550 FOR m=0 TO 49 

560 IF m(n)=m(m) AND n<>m THEN 590 

570 NEXT m 

580 m=INT(RND*50):IF m=n OR bw(m-10*INT (m/ 
10) ,INT(m/10))<>2 THEN 580 

590 n=INT (m/10) :m=m-10*n 

600 CALL 41000,49152+8*sm+320*zm, 34000+256 
*b(sm,zm):CALL 41000,49152+8%*m+320%*n, 34000 

+256*b(m,n) 

610 FOR zs=1 TO 1000:NEXT 

620 IF b(sm,zm)<>b(m,n) THEN m(10%*n+m)=b(m 
‚n):CALL 41000,49152+8*sm+320*zm, 34000:CAL 

L 41000,49152+8%*n+320*n, 34000:FOR so=50 TO 
500 STEP 20:SOUND 1,s0,1:NEXT:GOTO 250 
630 FOR so=500 TO 50 STEP -20:SOUND 4,so,1 
:NEXT 

640 bw(sm,zm)=0:bw(m,n)=0:m(10*zm+sn)=0 

650 CALL 41000,49152+8*sm+320%*zm, 40656:CAL 

L 41000,49152+8*m+320*n, 40656 

660 pc=pc+1:PEN 11:LOCATE 6,25:PRINT pc 

670 zahl=zahl+1:IF zahl<>25 THEN 470 ELSE 

720 

680 FOR n=0 TO 4:FOR m=0 TO 9 

690 IF bw(m,n)=2 THEN CALL 41000,49152+8*n 

+320*n, 34000+256*b (m,n) 
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700 NEXT 


m,n 


[407] 


710 IF JOY(0)<>16 THEN 710 ELSE MODE 0:G0T [2966] 


0 50 
7120 PEN 
Ich habe 
nnen" 


13:LOCATE 2,4:IF pc>ps THEN PRINT" 
gewonnen" ELSE PRINT"Du hast gewo 


130 IF JOY(0)<>16 THEN 730 ELSE MODE 0:G0T 


0 50 


III SWISS IN III WWW III III IT IT 


10 MEMOR 
a:POKE n 
20 SAVE" 
30 DATA 
2,192 

40 DATA 
2,192 

50 DATA 
2,192 

60 DATA 
2,128 

70 DATA 
2,169 

80 DATA 
2,192 

90 DATA 
‚66 

100 DATA 
‚128 

110 DATA 
92,232 
120 DATA 
92,195 
130 DATA 
94,192 
140 DATA 
32,128 
150 DATA 
92,232 
160 DATA 
92,195 
170 DATA 
29,192 
180 DATA 
32,128 
190 DATA 
‚232 

200 DATA 
‚192 

210 DATA 
92,129 
220 DATA 
32,128 
230 DATA 
92,192 
240 DATA 
92,192 
250 DATA 
92,192 
260 DATA 
92,128 
270 DATA 
280 DATA 
290 DATA 
92,192 
300 DATA 
48,128 
310 DATA 
92,192 
320 DATA 
92,129 
330 DATA 


Y &84CF:FOR n=&84D0O TO &IECF:READ 
‚a:NEXT 


ng",b,&84D0, &1A00 
192,192,192,192,192,192,192,128,19 
192,192,192,192,192,128,192,192,19 
192,192,192,128,192,192,192,192,19 
192,128,192,252,252,252,252,252,23 
192,252,252,252,252,252,232,128,19 
192,192,192,192,232,128,192,169,19 
192,129,232,128,192,232,66,192,192 
232,128,192,232,66,192,192,66,232 
192,232,129,192,129,192,232,128,1 
129,192,129,192,232,128,192,232,1 
194,192,232,128,192,232,192,195,1 
232,128,192,232,192,195,194,192,2 
192,232,192,195,194,192,232,128,1 
192,195,194,192,232,128,192,232,1 
194,192,232,128,192,232,129,192,1 
232,128,192,232,129,192,129,192,2 
192,232,66,192,192,66,232,128,192 
66,192,192,66,232,128,192,169,192 
192,129,232,128,192,169,192,192,1 
232,128,192,252,252,252,252,252,2 
192,252,252,252,252,252,232,128,1 
192,192,192,192,192,128,192,192,1 
192,192,192,128,192,192,192,192,1 
192,128,192,192,192,192,192,192,1 
0,0,0,0,0 
0,192,192,192,192 
2,128,192,192,192,192,1 
192,128,192,192,192,192,192,192,1 
192,192,192,192,192,192,104,128,1 
192,192,192,148,192,128,192,192,1 


192,129,192,128,192,192,192,3,66, 
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[4751] 


[2224] 


[3358] 


[799] 
[2187] 


[1858] 
[1267] 
[1767] 
[1875] 
[2146] 
[1408] 
[2054] 
[1858] 
[2539] 
[2062] 
[1985] 
[2248] 
[2199] 
[1848] 
[1935] 
[1807] 
[1443] 
[1488] 
[1533] 
[1928] 
[1858] 
[1267] 
[2288] 
[1269] 
[1548] 
[1267] 
[2087] 
[2051] 
[2053] 
[2132] 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
» 243 

440 DATA 
79,243 
450 DATA 
66,195 
460 DATA 
34,128 
470 DATA 
480 DATA 
490 DATA 
5 

500 DATA 
92,128 
510 DATA 
92,192 
520 DATA 
530 DATA 
540 DATA 
28 

550 DATA 
92,192 
560 DATA 
92,192 
570 DATA 
92,192 
580 DATA 
92,128 
590 DATA 
92,192 
600 DATA 
52,252 
610 DATA 
52,252 
620 DATA 
95,128 
630 DATA 
96,204 
640 DATA 
04,204 
650 DATA 
01,195 
660 DATA 
95,128 
670 DATA 
96,204 
680 DATA 
04,204 
690 DATA 
01,195 
700 DATA 
95,128 
710 DATA 
96,204 
720 DATA 
04,204 
730 DATA 
01,195 
740 DATA 
92,128 
750 DATA 
96,204 
160 DATA 


192,128,192,192,129,3,3,129,192,1 
28 
‚3 
3, 
‚12,12,128 
132,12,12,12,12,12,12,128,132,12 
12,12,12,12,12,128,132,12,12,12 
12,12,12,128,132,243,179,243,166, 
12,128,132,243,179,243,166,12,12, 
132,243,179,243,166,12,12,128,132 
179,243,166,195,134,128,132,243,1 
166,195,134,128,132,243,179,243,1 
134,128,132,243,179,243,166,195,1 
132,12,12,12,12,65,134,128,132,12 
12,12,12,195,134,128,132,12,12,12 
12,195,134,128,132,12,12,12,12,19 
134,128,192,192,192,192,192,192,1 
192,192,192,192,192,192,192,128,1 
192,192,192,192,192,128,0,0,0,0 
0,0,0,0,0,0,0,0,0,0 
0,0,192,192,192,192,192,192,192,1 
192,192,192,192,192,192,192,128,1 
192,192,192,192,192,128,192,192,1 
192,192,192,128,192,192,192,192,1 
192,128,192,192,192,192,192,192,1 
192,192,192,252,252,252,252,128,1 
212,252,252,252,233,128,192,192,2 
252,252,233,128,192,212,252,252,2 
195,128,192,252,252,252,252,233,1 
212,252,252,252,252,195,195,128,1 
204,204,201,195,195,128,196,204,2 
201,195,195,128,196,204,204,204,2 
195,128,196,204,204,204,201,195,1 
196,204,204,204,201,195,195,128,1 
204,204,201,195,195,128,196,204,2 
201,195,195,128,196,204,204,204,2 
195,128,196,204,204,204,201,195,1 
196,204,204,204,201,195,195,128,1 
204,204,201,195,195,128,196,204,2 
201,195,194,128,196,204,204,204,2 
192,128,196,204,204,204,201,194,1 
196,204,204,204,201,192,192,128,1 


204,204,200,192,192,128,192,192,1 


Spiele 


[1757] 
[1723] 
[1247] 
[1275] 
[1831] 
[1916] 
[1660] 
[1822] 
[1763] 
[2213] 
[2061] 
[2015] 


[2011] 


[2008] 
[1854] 
[2316] 
[2237] 
[2187] 
[1544] 
[1269] 
[2242] 
[2187] 
[1858] 
[1267] 
[2288] 
[2053] 
[2208] 
[2455] 
[2065] 
[2042] 
[2096] 
[2340] 
[2022] 
[2316] 
[2096] 
[2340] 
[2022] 
[2316] 
[2096] 
[2541] 
[2425] 
[1809] 
[2023] 
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92,192 

770 DATA 192,192,192,128,192,192,192,192,1 [1267] 1210 DATA 72,192,192,128,192,192,12,12,72, [1597] 
92,192 192 

780 DATA 192,128,0,0,0,0,0,0,0,0 [1248] 1220 DATA 192,128,192,192,12,12,72,192,192 [1787] 
790 DATA 0,0,0,0,0,0,0,0,192,192 [1582] ‚128 

800 DATA 192,192,192,192,192,128,192,192,1 [1858] 1230 DATA 192,192,12,12,72,192,192,128,192 [1695] 
92,192 ‚192 

810 DATA 192,192,192,128,192,192,192,192,1 [1267] 1240 DATA 12,12,72,192,192,128,192,192,12, [1793] 
92,192 12 

820 DATA 192,128,192,192,192,192,192,192,1 [2288] 1250 DATA 72,192,192,128,192,192,12,12,72, [1597] 
92,128 192 

830 DATA 192,192,192,192,192,192,192,128,1 [2187] 1260 DATA 192,128,192,145,12,12,25,192,192 [1706] 
92,192 ‚128 

840 DATA 192,192,192,192,192,128,192,192,1 [1858] 1270 DATA 192,145,12,12,25,192,192,128,192 [1494] 
92,192 ‚145 

850 DATA 192,192,192,128,192,192,192,192,1 [1267] 1280 DATA 51,51,51,192,192,128,192,192,51, [1501] 
92,192 51 

860 DATA 192,128,145,51,51,51,51,51,51,128 [1738] 1290 DATA 98,192,192,128,0,0,0,0,0,0 [1200] 
870 DATA 145,60,60,60,60,60,57,128,145,60 [1895] 1300 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 
880 DATA 60,60,60,60,57,128,145,51,51,51 [1595] 1310 DATA 192,192,192,192,192,192,192,128, [2187] | 
890 DATA 51,51,51,128,145,51,51,51,51,51 [608] 192,192 

900 DATA 51,128,145,34,51,252,179,34,51,12 [2048] 1320 DATA 192,192,192,192,192,128,192,192, [1858] 
8 192,192 

910 DATA 145,34,51,252,179,34,51,128,145,5 [1982] 1330 DATA 192,192,192,128,192,192,192,192, [1267] 
1 192,192 

920 DATA 51,51,51,51,51,128,145,51,51,51 [1317] 1340 DATA 192,128,192,192,192,192,192,192, [2288] 
930 DATA 51,51,51,128,145,51,51,51,51,51 [608] 192,128 

940 DATA 51,128,145,51,15,15,15,27,51,128 [1518] 1350 DATA 192,192,192,192,192,192,192,128, [2070] 
950 DATA 145,39,51,51,51,39,51,128,145,39 [1925] 129,3 

960 DATA 51,51,51,39,51,128,192,192,192,19 [1515] 1360 DATA 3,3,3,3,3,128,129,3,3,3 [1235] 
2 1370:DATAL3,3.3,.128,129,3,.3,3,3,3 [679] 
970 DATA 192,192,192,128,192,192,192,192,1 [1267] 1380 DATA 3,128,129,176,172,111,230,3,3,12 [2656] 
92,192 8 

980 DATA 192,128,192,192,192,192,192,192,1 [2288] 1390 DATA 129,176,172,111,230,3,3,128,129, [1477] 
92,128 176 | 
990 DATA 192,192,192,192,192,192,192,128,1 [2187] 1400 DATA 172,111,230,22,3,128,129,0,0,0 [1825] 
92,192 1410 DATA 0,3,3,128,129,176,172,111,230,22 [1573] 
1000 DATA 192,192,192,192,192,128,192,192, [1858] 1420 DATA 3,128,129,176,172,111,230,3,3,12 [2656] 
192,192 8 

1010 DATA 192,192,192,128,192,192,192,192, [1267] 1430 DATA 129,176,172,111,230,22,3,128,129 [1847] 
192,192 ‚176 

1020 DATA 192,128,192,192,192,192,192,192, [2288] 1440 DATA 172,111,230,3,3,128,129,0,0,0 [1550] 
192,128 1450 DATA 0,22,3,128,129,176,172,111,230,3 [1352] 
1030 DATA 192,192,192,192,192,192,192,128, [1725] 1460 DATA 3,128,129,176,172,111,230,3,3,12 [2656] 
0,0 8 

1040 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 1470 DATA 129,3,3,3,3,3,41,128,129,3 [1630] 
1050 DATA 0,0,0,0,192,192,192,192,192,192 [2262] 1480 DATA 3,3,3,3,3,128,129,3,3,3 [1235] 
1060 DATA 192,128,192,192,192,192,192,192, [2288] 1490 DATA 3,3,3,128,192,192,192,192,192,19 [882] 
192,128 2 

1070 DATA 192,192,192,192,192,192,192,128, [2187] 1500 DATA 192,128,192,192,192,192,192,192, [2288] 
192,192 192,128 

1080 DATA 192,208,192,192,192,128,192,192, [1356] 1510 DATA 192,192,192,192,192,192,192,128, [2187] 
192,240 192,192 

1090 DATA 192,192,192,128,192,192,192,240, [1307] 1520 DATA 192,192,192,192,192,128,192,192, [1858] 
192,192 192,192 

1100 DATA 192,128,192,192,192,240,192,192, [2820] 1530 DATA 192,192,192,128,192,192,192,192, [1267] 
192,128 192,192 

1110 DATA 192,192,192,224,192,192,192,128, [2043] 1540 DATA 192,128,192,192,192,192,192,192, [2288] 
192,192 192,128 

1120 DATA 192,224,192,192,192,128,192,192, [2193] 1550 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 
192,64 1560 DATA 0,0,0,0,0,0,192,192,192,192 [1548] 
1130 DATA 192,192,192,128,192,192,192,64,1 [1513] 1570 DATA 192,192,192,128,192,192,192,192, [1267] 
92,192 192,192 

1140 DATA 192,128,192,192,72,64,72,192,192 [1916] 1580 DATA 192,128,192,192,192,192,192,192, [2288] 
‚128 192,128 

1150 DATA 192,192,12,4,72,192,192,128,192, [1827] 1590 DATA 192,192,192,73,194,192,192,128,1 [2230] 
192 92,192 

1160 DATA 12,12,72,192,192,128,192,192,12, [1793] 1600 DATA 192,195,194,192,192,128,192,192, [1782] 
12 192,195 

1170 DATA 72,192,192,128,192,192,12,12,72, [1597] 1610 DATA 73,192,192,128,192,192,192,107,1 [1787] 
192 95,192 

1180 DATA 192,128,192,192,12,12,72,192,192 [1787] 1620 DATA 192,128,192,192,193,195,195,192, [1771] 
‚128 192,128 

1190 DATA 192,192,12,12,72,192,192,128,192 [1695] 1630 DATA 192,192,97,146,195,72,192,128,19 [1811] 
‚192 2,192 

1200 DATA 12,12,72,192,192,128,192,192,12, [1793] 1640 DATA 193,195,195,195,192,128,192,192, [2173] 
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73,97 

1650 DATA 195,146,192,128,192,192,195,195, [1919] 192,192 

195,97 2040 DATA 192,128,192,192,192,128,192,192, [1877] 
1660 DATA 192,128,192,192,195,195,134,195, [1856] 192,128 

192,128 2050 DATA 192,192,192,128,192,192,192,128, [1556] 
1670 DATA 192,192,195,134,195,195,192,128, [2196] 192,192 

192,192 2060 DATA 192,128,0,0,0,0,0,0,0,0 [1248] 
1680 DATA 134,195,195,151,192,128,192,192, [2086] 2070 DATA 0,0,0,0,0,0,0,0,192,192 [1582] 
97,195 2080 DATA 192,192,192,192,192,128,192,192, [1858] 
1690 DATA 195,97,192,128,192,192,193,131,1 [1749] 192,192 

95,194 2090 DATA 192,192,192,128,192,128,0,0,0,0 [1541] 
1700 DATA 192,128,192,192,149,131,6,192,19 [1775] 2100 DATA 192,128,192,128,0,4,0,0,192,128 [1929] 
2,128 2110 DATA 192,128,0,4,0,0,192,128,192,128 [1039] 
1710 DATA 192,192,192,131,66,192,192,128,1 [1799] 2120 DATA 0,12,8,0,192,128,192,128,0,4 [1676] 
92,192 2130 DATA 0,0,192,128,192,128,0,4,0,0 [1972] 
1720 DATA 192,129,66,192,192,128,192,192,1 [2036] 2140 DATA 192,128,192,128,0,0,0,0,192,128 [1906] 
92,128 2150 DATA 192,128,0,0,0,0,192,128,192,128 [1700] 
1730 DATA 66,192,192,128,192,192,192,129,6 [1872] 2160 DATA 0,0,0,0,192,128,192,128,0,80 [1828] 
6,192 2170 DATA 0,0,192,128,192,128,0,80,0,0 [2079] 
1740 DATA 192,128,192,192,192,129,66,192,1 [1992] N DATA 192,128,192,128,0,240,160,0,192, [1487] 
92,128 

1750 DATA 192,192,192,129,66,192,192,128,1 [1732] 2190 DATA 192,128,0,80,0,0,192,128,192,128 [1880] 
92,192 2200 DATA 0,80,0,0,192,128,192,128,0,0 [1578] 
1760 DATA 192,129,66,192,192,128,192,192,1 [2039] 2210 DATA 0,0,192,128,192,128,0,0,0,0 [1783] 
92,129 2220 DATA 192,128,192,128,0,0,0,0,192,128 [1906] 
1770 DATA 64,192,192,128,192,192,192,129,6 [2353] 2230 DATA 192,128,0,16,0,0,192,128,192,128 [1547] 
6,192 2240 DATA 0,16,0,0,192,128,192,128,0,48 [1919] 
1780 DATA 192,128,192,192,192,129,64,192,1 [2044] 2250 DATA 32,0,192,128,192,128,0,16,0,0 [1895] 
92,128 2260 DATA 192,128,192,128,0,16,0,0,192,128 [1389] 
1790 DATA 192,192,192,129,3,192,192,128,19 [2465] 2270 DATA 192,128,0,0,0,0,192,128,192,128 [1700] 
2,192 2280 DATA 0,0,0,0,192,128,192,128,0,0 [1586] 
1800 DATA 192,3,3,192,192,128,0,0,0,0 [1135] 2290 DATA 0,0,192,128,192,192,192,128,192, [2137] 
1810 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 192 

1820 DATA 0,0,192,192,192,192,192,192,192, [2242] 2300 Dark 192,128,192,192,192,128,192,192, [1877] 
128 192,12 

1830 DATA 192,212,252,252,252,252,192,128, [2032] 2310 DATA 192,192,192,128,192,192,192,128, [1440] 
192,212 0,0 

1840 DATA 252,252,252,252,192,128,192,212, [1873] 2320 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 
252,252 2330 DATA 0,0,0,0,192,192,192,192,192,192 [2262] 
1850 DATA 252,252,192,128,192,212,252,252, [2070] 2340 DATA 192,128,192,192,192,192,192,192, [2288] 
252,252 192,128 

1860 DATA 192,128,192,212,252,252,252,252, [2174] 2350 DATA 192,192,192,192,192,192,192,128, [2187] 
192,128 192,192 

1870 DATA 192,212,252,12,92,252,192,128,19 [1612] 2360 DATA 192,192,192,192,192,128,192,192, [1858] 
2.212 192,192 

1880 DATA 252,12,92,252,192,128,192,212,25 [2044] 2370 DATA 192,192,192,128,192,192,192,192, [1267] 
2,188 192,192 

1890 DATA 252,252,192,128,192,212,252,188, [2200] 2380 DATA 192,128,192,192,192,192,192,192, [2288] 
252,252 192,128 

1900 DATA 192,128,192,212,252,188,252,252, [2456] 2390 DATA 192,192,192,192,192,192,192,128, [2148] 
192,128 208,240 

1910 DATA 192,212,252,188,252,252,192,128, [1515] 2400 DATA 224,192,192,192,192,128,208,240, [2233] 
192,212 224,192 

1920 DATA 252,188,252,252,192,128,192,212, [1357] 2410 DATA 192,192,192,128,208,192,224,192, [2070] 
252,188 192,208 

1930 DATA 252,252,192,128,192,212,252,188, [2200] 2420 DATA 192,128,208,192,224,192,192,208, [2378] 
252,252 208,128 

1940 DATA 192,128,192,212,252,188,252,252, [2456] 2430 DATA 208,192,224,192,208,208,208,128, [1510] 
192,128 208,192 

1950 DATA 192,212,252,188,252,252,192,128, [1515] 2440 DATA 224,192,208,208,208,128,208,192, [2083] 
192,212 224,192 

1960 DATA 252,188,252,252,192,128,192,212, [1357] 2450 DATA 208,208,208,128,208,192,240,240, [1968] 
252,188 240,240 

1970 DATA 252,252,192,128,192,212,252,188, [2200] 2460 DATA 240,128,208,192,240,240,240,240, [1997] 
252,252 240,128 

1980 DATA 192,128,192,212,252,188,252,252, [2456] 2470 DATA 208,192,224,192,192,192,192,128, [1102] 
192,128 208,192 

1990 DATA 192,212,252,188,252,252,192,128, [1515] 2480 DATA 224,192,192,192,192,128,208,192, [2325] 
192,212 224,192 

2000 DATA 252,188,252,252,192,128,192,212, [1357] 2490 DATA 192,192,192,128,208,192,224,192, [2062] 
252,188 192,192 

2010 DATA 252,252,192,128,192,212,252,188, [2200] 2500 DATA 192,128,208,192,224,192,192,192, [2172] 
252,252 192,128 

2020 DATA 192,128,192,192,192,128,192,192, [1877] 2510 DATA 208,240,224,192,192,192,192,128, [2213] 
192,128 208,240 

2030 DATA 192,192,192,128,192,192,192,128, [1556] 2520 DATA 224,192,192,192,192,128,192,192, [2403] 
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192,192 192,192 

2530 DATA 192,192,192,128,192,192,192,192, [1267] 2930 DATA 192,192,192,128,192,192,192,192, [1267] 
192,192 192,192 

2540 DATA 192,128,192,192,192,192,192,192, [2288] 2940 DATA 192,128,192,192,192,192,192,192, [2288] 
192,128 192,128 

2550 DATA 192,192,192,192,192,192,192,128, [2187] 2950 DATA 192,192,192,192,192,192,192,128, [2187] 
192,192 192,192 

2560 DATA 192,192,192,192,192,128,192,192, [1858] 2960 DATA 192,192,192,192,192,128,192,192, [1885] 
192,192 212,252 

2570 DATA 192,192,192,128,0,0,0,0,0,0 [1125] 2970 DATA 252,192,192,128,192,192,212,243, [2448] 
2580 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 246,192 

2590 DATA 192,192,192,192,192,192,192,128, [2187] 2980 DATA 192,128,192,192,212,243,246,192, [2400] 
192,192 192,128 

2600 DATA 192,192,192,192,192,128,192,192, [1858] 2990 DATA 192,192,212,243,246,192,192,128, [2392] 
192,192 208,252 

2610 DATA 192,192,192,128,192,192,192,192, [1267] 3000 DATA 252,252,252,252,232,128,212,252, [1736] 
192,192 252,252 

2620 DATA 192,128,192,192,192,192,192,192, [2288] 3010 DATA 252,252,72,128,212,252,252,252,2 [1829] 
192,128 52,252 

2630 DATA 192,192,192,192,192,192,192,128, [2187] 3020 DATA 232,128,212,168,252,252,252,84,2 [1705] 
192,192 32,128 

2640 DATA 192,192,192,192,192,128,192,192, [1858] 3030 DATA 192,128,192,192,192,64,192,128,1 [2099] 
192,192 92,192 

2650 DATA 192,192,192,128,192,192,192,192, [1267] 3040 DATA 192,192,192,192,192,128,192,192, [1858] 
192,192 192,192 

2660 DATA 192,128,192,193,195,199,195,192, [2430] 3050 DATA 192,192,192,128,192,192,192,192, [1267] 
192,128 192,192 

2670 DATA 192,201,195,199,195,194,192,128, [1936] 3060 DATA 192,128,192,192,192,192,192,192, [2288] 
208,73 192,128 

2680 DATA 195,199,195,214,192,128,12,201,1 [1619] 3070 DATA 192,192,192,192,192,192,192,128, [2187] 
95,199 192,192 

2690 DATA 195,214,232,128,208,225,195,199, [1663] 3080 DATA 192,192,192,192,192,128,0,0,0,0 [1544] 
195,214 3090 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 
2700 DATA 252,128,132,225,195,199,195,214, [2098] 3100 DATA 0,0,192,192,192,192,192,192,192, [2242] 
252,168 128 

2710 DATA 208,73,195,199,195,214,252,128,1 [2337] 3110 DATA 192,192,192,192,192,192,192,128, [2143] 
96,225 192,132 

2720 DATA 195,199,195,214,232,128,140,225, [2469] 3120 DATA 12,12,12,12,192,128,192,132,12,1 [1859] 
195,199 2 

2730 DATA 195,214,192,128,192,201,195,199, [1979] 3130 DATA 12,12,192,128,192,129,192,192,19 [1593] 
195,194 2,129 

2740 DATA 192,128,192,193,195,199,195,192, [2430] 3140 DATA 192,128,192,132,192,192,192,132, [1781] 
192,128 192,128 

2750 DATA 192,192,192,192,192,192,192,128, [2187] 3150 DATA 192,132,192,192,192,132,192,128, [2027] 
192,192 192,132 

2760 DATA 192,192,192,192,192,128,192,192, [1858] 3160 DATA 192,192,192,132,192,128,192,132, [1964] 
192,192 192,192 

2770 DATA 192,192,192,128,192,192,192,192, [1267] 3170 DATA 192,132,192,128,192,132,192,192, [983] 
192,192 192,132 

2780 DATA 192,128,192,192,192,192,192,192, [2288] 3180 DATA 192,128,192,132,192,192,192,132, [1781] 
192,128 192,128 

2790 DATA 192,192,192,192,192,192,192,128, [2187] 3190 DATA 192,132,192,192,192,132,192,128, [2027] 
192,192 192,132 

2800 DATA 192,192,192,192,192,128,192,192, [1858] 3200 DATA 192,192,192,132,192,128,192,132, [1964] 
192,192 192,192 

2810 DATA 192,192,192,128,192,192,192,192, [1267] 3210 DATA 192,132,192,128,192,129,3,3,3,3 [1087] 
192,192 3220 DATA 192,128,192,129,3,3,3,3,192,128 [1805] 
2820 DATA 192,128,192,192,192,192,192,192, [2288] 3230 DATA 192,132,192,192,192,132,192,128, [2027] 
192,128 192,132 

2830 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 3240 DATA 192,192,192,132,192,128,192,132, [1964] 
2840 DATA 0,0,0,0,0,0,192,192,192,192 [1548] 192,192 

2850 DATA 192,192,192,128,192,192,192,192, [1267] 3250 DATA 192,132,192,128,192,132,192,192, [983] 
192,192 192,132 

2860 DATA 192,128,192,192,192,192,192,192, [2288] 3260 DATA 192,128,192,132,192,192,192,132, [1781] 
192,128 192,128 

2370 DATA 192,192,192,192,192,192,192,128, [2187] 3270 DATA 192,132,192,192,192,132,192,128, [2027] 
192,192 192,132 

2880 DATA 192,192,192,192,192,128,192,192, [1858] 3280 DATA 192,192,192,132,192,128,192,132, [1964] 
192,192 192,192 

2890 DATA 192,192,192,128,192,192,192,192, [1267] 3290 DATA 192,132,192,128,192,132,192,192, [983] 
192,192 192,132 

2900 DATA 192,128,192,192,192,192,192,192, [2288] 3300 DATA 192,128,192,129,192,192,192,129, [2266] 
192,128 192,128 

2910 DATA 192,192,192,192,192,192,192,128, [2187] 3310 DATA 192,132,12,12,12,12,192,128,192, [1909] 
192,192 132 

2920 DATA 192,192,192,192,192,128,192,192, [1858] 3320 DATA 12,12,12,12,192,128,192,192,192, [2066] 
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192 

3330 DATA 
192,192 
3340 DATA 
3350 DATA 
3360 DATA 
192,192 
3370 DATA 
3380 DATA 
3390 DATA 
192,129 
3400 DATA 
192,192 
3410 DATA 
192,132 
3420 DATA 
192,128 
3430 DATA 
192,129 
3440 DATA 
192,192 
3450 DATA 
192,132 
3460 DATA 
3470 DATA 
3480 DATA 
192,192 
3490 DATA 
192,132 
3500 DATA 
192,128 
3510 DATA 
192,129 
3520 DATA 
192,192 
3530 DATA 
192,132 
3540 DATA 
192,128 
3550 DATA 
192,129 
3560 DATA 
373 

3570 DATA 
3580 DATA 
192,128 
3590 DATA 
0,0 

3600 DATA 
3610 DATA 
3620 DATA 
192,128 
3630 DATA 
132 

3640 DATA 
192 

3650 DATA 
192,132 
3660 DATA 
192,128 
3670 DATA 
192,129 
3680 DATA 
192,192 
3690 DATA 
192,132 
3700 DATA 
192,128 
3710 DATA 
192,129 
3720 DATA 
3730 DATA 
‚129 

3740 DATA 
192,128 
3750 DATA 


192,192,192,128,192,192,192,192, 


192,192,192,128,192,129,3,3,3,3 
192,128,192,129,3,3,3,3,.192,128 
192,129,192,192,192,129,192,128 


192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,3,3,3,3,192,128 

192,129,3,3,3,3,192,128,192,129 

192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 
192,192,192,129,192,128,192,129, 


3,3,192,128,192,129,3,3,3,3 
192,128,192,192,192,192,192,192, 


192,192,192,192,192,192,192,128, 
0,0,0,0,0,0 


0, 
0,192,192,192,192,192,192 
8,192,192,192,192,192,192, 


0,0,0, 
0,0,0, 
192,12 
192,132,12,12,12,12,192,128,192, 
12,12,12,12,192,128,192,129,192, 
192,129,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 


12,12,12,9,192,128,192,129,12,12 
12,9,192,128,192,132,192,192,192 


192,128,192,132,192,192,192,129, 


192,132,192,192,192,129,192,128, 


5’87 Sonderheft 


[1267] 
[1248] 
[1582] 
[1858] 
[1390] 
[1805] 
[2044] 
[1831] 
[1667] 
[2436] 
[2171] 
[1831] 
[1667] 
[1805] 
[1708] 
[1831] 
[1667] 
[2436] 
[2171] 
[1831] 
[1667] 
[2436] 
[2171] 
[1769] 


[1074] 
[2288] 


[1725] 
[1269] 
[2262] 
[2238] 
[1909] 
[2038] 
[1773] 
[2436] 
[2171] 
[1831] 
[1667] 
[2436] 
[2171] 


[1906] 
[1977] 


[1511] 


[1613] 


192,132 
3760 DATA 
192,192 
3770 DATA 
192,129 
3780 DATA 
192,128 
3790 DATA 
192,132 
3800 DATA 
192,192 
3810 DATA 
192,129 
3820 DATA 
128 

3830 DATA 
192 

3840 DATA 
192,192 
3850 DATA 
3860 DATA 
3870 DATA 
192,192 
3880 DATA 
12,12 
3890 DATA 
2 

3900 DATA 
192,128 
3910 DATA 
192,129 
3920 DATA 
192,192 
3930 DATA 
192,132 
3940 DATA 
192,128 
3950 DATA 
192,129 
3960 DATA 
192,192 
3970 DATA 
9 

3980 DATA 
28 

3990 DATA 
192,129 
4000 DATA 
192,192 
4010 DATA 
192,132 
4020 DATA 
192,128 
4030 DATA 
192,129 
4040 DATA 
192,192 
4050 DATA 
192,132 
4060 DATA 
192,128 
4070 DATA 
192,132 
4080 DATA 
2 

4090 DATA 
2,192 
4100 DATA 
192,128 
4110 DATA 
4120 DATA 
4130 DATA 
192,192 
4140 DATA 
4150 DATA 
4160 DATA 


192,192,192,129,192,128,192,132, 
192,129,192,128,192,132,192,192, 
192,128,192,132,192,192,192,129, 
192,132,192,192,192,129,192,128, 
192,192,192,129,192,128,192,132, 
192,129,192,128,192,129,192,192, 
192,128,192,132,12,12,12,12,192, 
192,132,12,12,12,12,192,128,192, 


192,192,192,192,192,128,192,192, 


0,0,0,0,0 
0 
2 


‚192,192,128, 
192,192,192,192,192,128,192,132, 
12,12,192,128,192,132,12,12,12,1 
192,128,192,129,192,192,192,129, 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,12,12,12 
192,128,192,129,12,12,12,9,192,1 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,132,192,128, 
192,192,192,132,192,128,192,129, 
192,132,192,128,192,129,192,192, 
192,128,192,129,192,192,192,132, 
192,129,192,192,192,129,192,128, 
12,12,12,12,192,128,192,132,12,1 
12,12,192,128,192,192,192,192,19 
192,128,192,192,192,192,192,192, 
‚0,0,0,0 
‚192,192,192,192 
‚128,192,192,192,192, 
192,128,192,129, 3,192,128 


353,37 
192,129,3,3,3,3,192,128,192,129 
192,192,192,129,192,128,192,132, 
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[2192] 
[1887] 
[1511] 
[1613] 
[2192] 
[1740] 
[1590] 
[1905] 
[1858] 
[1125] 
[1269] 
[2187] 
[1575] 
[1210] 
[2266] 
[2171] 
[1831] 
[1667] 
[2436] 
[2171] 
[1831] 
[1713] 
[2209] 
[2171] 
[1831] 
[1667] 
[2436] 
[2171] 
[1831] 
[1667] 
[2436] 
[2045] 
[1859] 
[1832] 
[2288] 
[1269] 
[1548] 
[1267] 
[1805] 


[1708] 
[2192] 
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192,192 
4170 DATA 
192,132 
4180 DATA 
192,128 
4190 DATA 
192,132 
4200 DATA 
192,192 
4210 DATA 
192,132 
4220 DATA 
192,128 
4230 DATA 
29 

4240 DATA 
92 

4250 DATA 
192,132 
4260 DATA 
192,128 
4270 DATA 
192,129 
4280 DATA 
192,192 
4290 DATA 
192,132 
4300 DATA 
192,128 
4310 DATA 
192,129 
4320 DATA 
192,192 
4330 DATA 
4340 DATA 
4350 DATA 
192,192 
4360 DATA 
4370 DATA 
4380 DATA 
128 

4390 DATA 
192,132 
4400 DATA 
2 

4410 DATA 
2.129 
4420 DATA 
192,128 
4430 DATA 
192,132 
4440 DATA 
192,192 
4450 DATA 
192,129 
4460 DATA 
192,128 
4470 DATA 
192,132 
4480 DATA 
192,192 
4490 DATA 
3 

4500 DATA 
28 

4510 DATA 
192,129 
4520 DATA 
192,192 
4530 DATA 
192,132 
4540 DATA 
192,128 
4550 DATA 
192,129 
4560 DATA 
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192,132,192,128,192,132,192,192, 


192,128,192,132,192,192,192,132, 


192,132,192,192,192,132, 
192,192,192,132,192,128, 


192,132,192,128,192,132, 


192,128,192,132,192,192,192,132, 
192,129,12,12,12,9,192,128,192,1 


12,12,12,9,192,128,192,129,192,1 


192,132,192,128,192,129, 
192,128,192,129,192,192, 
192,129,192,192,192,132, 
192,192,192,132,192,128, 
192,132,192,128,192,129, 
192,128,192,129,192,192, 
192,129,192,192,192,132, 
192,192,192,132,192,128, 
192,129,192,128,192,129, 


192,128,192,129,3,3,3,3, 
192,192,192,192,192,192, 


‚192, 
192,192,192,192,192,192, 


12,12,12,12,192,128,192,132,12,1 


12,12,192,128,192,129,192,192,19 


192,128,192,132,192,192, 
192,132,192,192,192,129, 
192,192,192,129,192,128, 
192,129,192,128,192,132, 
192,128,192,132,192,192, 
192,132,192,192,192,129, 


192,192,192,129,192,128, 


192,129,192,128,192,129,12,12,12 


192,128,192,129,12,12,12,9,192,1 


192,129,192,192,192,132, 


192,128, 
192,132, 


192,192, 


192,192, 
192,132, 
192,128, 
192,129, 
192,192, 
192,132, 
192,128, 


192,129, 


3I,3,3,3 
192,128 
192,128, 


192,192, 


192,128, 


192,129, 
192,128, 
192,132, 
192,192, 
192,129, 
192,128, 


192,132, 


192,128, 


192,192,192,132,192,128,192,129, 


192,132,192,128,192,129, 


192,128,192,129,192,192, 


192,192, 
192,132, 


192,129,192,192,192,132,192,128, 


192,192,192,132,192,128, 


192,129, 


[983] 

[1781] 
[2027] 
[1964] 
[983] 

[1781] 
[2079] 
[2138] 
[1667] 
[2436] 
[2171] 
[1831] 
[1667] 
[2436] 
[2171] 
[1831] 
[1556] 
[1805] 
[2187] 
[1544] 
[1269] 
[2242] 
[2143] 
[1859] 
[1593] 
[1511] 
[1613] 
[2192] 
[1887] 
[1511] 
[1613] 
[2192] 
[1646] 
[2209] 
[2171] 
[1831] 
[1667] 
[2436] 


[2171] 


[1831] 


192,192 

4570 DATA 192,132,192,128,192,129,192,192, [1667] 
192,132 

4580 DATA 192,128,192,129,192,192,192,129, [2266] 
192,128 

4590 DATA 192,132,12,12,12,12,192,128,192, [1909] 
132 

4600 DATA 12,12,12,12,192,128,192,192,192, [2066] 
192 

4610 DATA 192,192,192,128,192,192,192,192, [1267] 
192,192 

4620 DATA 192,128,0,0,0,0,0,0,0,0 [1248] 
4630 DATA 0,0,0,0,0,0,0,0,192,192 [1582] 
4640 DATA 192,192,192,192,192,128,192,192, [1858] 
192,192 

4650 DATA 192,192,192,128,192,132,12,12,12 [1418] 
‚12 

4660 DATA 192,128,192,132,12,12,12,12,192, [1590] 
128 

4670 DATA 192,129,192,192,192,129,192,128, [2045] 
192,132 

4680 DATA 192,192,192,129,192,128,192,132, [2192] 
192,192 

4690 DATA 192,129,192,128,192,132,192,192, [1887] 
192,129 

4700 DATA 192,128,192,132,192,192,192,129, [1511] 
192,128 

4710 DATA 192,132,192,192,192,129,192,128, [1613] 
192,132 

4720 DATA 192,192,192,129,192,128,192,132, [2192] 
192,192 

4730 DATA 192,129,192,128,192,132,192,192, [1887] 
192,129 

4740 DATA 192,128,192,129,12,12,12,9,192,1 [2209] 
28 

4750 DATA 192,129,12,12,12,9,192,128,192,1 [2096] 
32 

47160 DATA 192,192,192,132,192,128,192,132, [1964] 
192,192 

4770 DATA 192,132,192,128,192,132,192,192, [983] 

192,132 

4780 DATA 192,128,192,132,192,192,192,132, [1781] 
192,128 

4790 DATA 192,132,192,192,192,132,192,128, [2027] 
192,132 

4800 DATA 192,192,192,132,192,128,192,132, [1964] 
192,192 

4810 DATA 192,132,192,128,192,132,192,192, [983] 

192,132 

4820 DATA 192,128,192,132,192,192,192,132, [1781] 
192,128 

4830 DATA 192,132,192,192,192,132,192,128, [2014] 
192,129 

4840 DATA 192,192,192,129,192,128,192,132, [1781] 
12,12 

4850 DATA 12,12,192,128,192,132,12,12,12,1 [1210] 
2 

4860 DATA 192,128,192,192,192,192,192,192, [2288] 
192,128 

4870 DATA 192,192,192,192,192,192,192,128, [1725] 
0,0 

4880 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 
4890 DATA 0,0,0,0,192,192,192,192,192,192 [2262] 
4900 DATA 192,128,192,192,192,192,192,192, [2288] 
192,128 

4910 DATA 192,132,12,12,12,12,192,128,192, [1909] 
132 

4920 DATA 12,12,12,12,192,128,192,129,192, [2038] 
192 

4930 DATA 192,129,192,128,192,129,192,192, [1773] 
192,132 

4940 DATA 192,128,192,129,192,192,192,132, [2436] 
192,128 

4950 DATA 192,129,192,192,192,132,192,128, [2171] 
192,129 


4960 DATA 192,192,192,132,192,128,192,129, [1831] 
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192,192 2,192 

4970 DATA 192,132,192,128,192,129,192,192, [1667] 5380 DATA 192,128,192,192,192,192,192,192, [2288] 
192,132 192,128 

4980 DATA 192,128,192,129,192,192,192,132, [2436] 5390 DATA 0,0,0,0,0,0,0,0,0,0 [1269] 
192,128 5400 DATA 0,0,0,0,0,0,192,192,192,192 [1548] 
4990 DATA 192,129,192,192,192,132,192,128, [2171] 5410 DATA 192,192,192,128,192,192,192,192, [1267] 
192,129 192,192 

5000 DATA »3,3,192,128,192,129,3,3 [1282] 5420 DATA 192,128,192,132,12,12,12,12,192, [1590] 
5010 DATA ‚192,128,192,129,192,192,192, [1223] 128 

132 5430 DATA 192,132,12,12,12,12,192,128,192, [1940] 
5020 DATA 192,128,192,129,192,192,192,132, [2436] 129 

192,128 5440 DATA 192,192,192,129,192,128,192,132, [2192] 
5030 DATA 192,129,192,192,192,132,192,128, [2171] 192,192 

192,129 5450 DATA 192,132,192,128,192,132,192,192, [983] 
5040 DATA 192,192,192,132,192,128,192,129, [1831] 192,132 

192,192 5460 DATA 192,128,192,132,192,192,192,132, [1781] 
5050 DATA 192,132,192,128,192,129,192,192, [1667] 192,128 

192,132 5470 DATA 192,132,192,192,192,132,192,128, [2027] 
5060 DATA 192,128,192,129,192,192,192,132, [2436] 192,132 

192,128 5480 DATA 192,192,192,132,192,128,192,132, [1964] 
5070 DATA 192,129,192,192,192,132,192,128, [2171] 192,192 

192,129 5490 DATA 192,132,192,128,192,132,192,192, [983] 
5080 DATA 192,192,192,132,192,128,192,129, [1831] 192,132 

192,192 5500 DATA 192,128,192,132,192,192,192,132, [1781] 
5090 DATA 192,132,192,128,192,129,192,192, [1686] 192,128 

192,129 5510 DATA 192,129,12,12,12,9,192,128,192,1 [2079] 
5100 DATA 192,128,192,129,3,3 ‚192,128 [1805] 29 

5110 DATA 192,129,3,3,3,3,192 ‚192,192 [1657] 5520 DATA 12,12,12,9,192,128,192,129,192,1 [2138] 
5120 DATA 192,192,192,192,192 ‚192,192, [1858] 92 

192,192 5530 DATA 192,132,192,128,192,129,192,192, [1667] 
5130 DATA [1125] 192,132 

5140 DATA [1269] 5540 DATA 192,128,192,129,192,192,192,132, [2436] 
5150 DATA ‚192,192,128, [2187] 192,128 

192,192 5550 DATA 192,129,192,192,192,132,192,128, [2171] 
5160 DATA 192,192,192,192,192,128,192,132, [1575] 192,129 

12,12 5560 DATA 192,192,192,132,192,128,192,129, [1831] 
5170 DATA 12,12,192,128,192,132,12,12,12,1 [1210] 192,192 

2 5570 DATA 192,132,192,128,192,129,192,192, [1667] 
5180 DATA 192,128,192,129,192,192,192,129, [2266] 192,132 


192,128 5580 DATA 192,128,192,129,192,192,192,132, [2436] 
5190 DATA 192,132,192,192,192,132,192,128, [2027] 192,128 


192,132 5590 DATA 192,129,192,192,192,132,192,128, [2171] 
5200 DATA 192,192,192,132,192,128,192,132, [1964] 192,129 


192,192 5600 DATA 192,192,192,132,192,128,192,129, [1831] 
5210 DATA 192,132,192,128,192,132,192,192, [983] 192,192 


192,132 5610 DATA 192,129,192,128,192,132,12,12,12 [1553] 
5220 DATA 192,128,192,132,192,192,192,132, [1781] 22 


192,128 5620 DATA 192,128,192,132,12,12,12,12,192, [1590] 
5230 DATA 192,132,192,192,192,132,192,128, [2027] 128 

192,132 5630 DATA 192,192,192,192,192,192,192,128, [2187] 
5240 DATA 192,192,192,132,192,128,192,132, [1964] 192,192 

192,192 5640 DATA [1544] 
5250 DATA 192,132,192,128,192,129,12,12,12 [1713] 5650 DATA [1269] 
‚9 5660 DATA ‚243,243,243, [1900] 
5260 DATA 192,128,192,129,12,12,12,9,192,1 [2209] 162 

28 5670 DATA 243,243,243,243,243,243,243,162, [1608] 
5270 DATA 192,132,192,192,192,132,192,128, [2027] 243,243 

192,132 5680 DATA 243,243,243,243,243,162,243,243, [1595] 
5280 DATA 192,192,192,132,192,128,192,132, [1964] 243,243 

192,192 5690 DATA 243,243,243,162,243,243,243,243, [2069] 
5290 DATA 192,132,192,128,192,132,192,192, [983] 243,243 

192,132 5700 DATA 243,162,243,243,243,243,243,243, [2342] 
5300 DATA 192,128,192,132,192,192,192,132, [1781] 243,162 

192,128 5710 DATA 243,243,243,243,243,243,243,162, [1608] 
5310 DATA 192,132,192,192,192,132,192,128, [2027] 243,243 

192,132 5720 DATA 243,243,162,243,243,162,243,243, [1459] 
5320 DATA 192,192,192,132,192,128,192,132, [1964] 243,243 

192,192 5730 DATA 162,243,243,162,243,243,60,121,2 [2016] 
5330 DATA 192,132,192,128,192,132,192,192, [983] 30,243 

192,132 5740 DATA 243,162,243,243,30,121,162,243,2 [1790] 
5340 DATA 192,128,192,132,192,192,192,132, [1781] 43,162 

192,128 5750 DATA 243,243,60,121,162,243,243,162,2 [1790] 
5350 DATA 192,129,192,192,192,129,192,128, [2045] 43,182 

192,132 5760 DATA 60,121,162,243,243,162,195,195,1 [2095] 
5360 DATA 12,12,12,12,192,128,192,132,12,1 [1859] 95,195 

2 5770 DATA 195,195,195,162,195,195,195,195, [1353] 
5370 DATA 12,12,192,128,192,192,192,192,19 [1832] 195,195 
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5780 DATA 
195,162 
5790 DATA 
252,195 
5800 DATA 
195,195 
5810 DATA 
195,195 
5820 DATA 
252,168 
5830 DATA 
252,252 
5840 DATA 
252,252 
5850 DATA 
252,252 
5860 DATA 
252,168 
5870 DATA 
252,252 
5880 DATA 
252,252 
5890 DATA 
252,252 
5900 DATA 
5910 DATA 
5920 DATA 
192,192 
5930 DATA 
46 

5940 DATA 
5950 DATA 
5960 DATA 
6 

5970 DATA 
5980 DATA 
8 

5990 DATA 
3 

6000 DATA 
6 

6010 DATA 
6020 DATA 
8 

6030 DATA 
.29 

6040 DATA 
63 

6050 DATA 
6060 DATA 
6070 DATA 
6080 DATA 
6090 DATA 
6100 DATA 
6110 DATA 
6120 DATA 
6130 DATA 
6140 DATA 
92,128 
6150 DATA 
0,0 

6160 DATA 
6170 DATA 
6180 DATA 
192,128 
6190 DATA 
192,192 
6200 DATA 
192,192 
6210 DATA 
192,192 
6220 DATA 
2,128 
6230 DATA 
12 

6240 DATA 


186 EPC 


195,162,195,147,195,195,195,195, 
227,195,195,195,195,195,195,162, 
195,195,195,195,195,168,252,233, 
195,195,195,168,252,252,195,195, 
195,168,252,252,252,252,252,252, 
252,252,252,252,252,252,252,168, 
252,252,252,252,252,168,252,252, 
252,252,252,168,252,252,252,252, 
252,168,252,252,252,252,252,252, 
252,252,252,252,252,252,252,168, 
252,252,252,252,252,168,252,252, 
252,252,252,168,252,252,252,252, 
252,16 


1 
0,0,0, 
192,19 


»0,0,0,0,0 
‚0,192,192 
92,192,128,192,192, 


r 


8,0 
0,0, 
2,1 


0,0 
0,0 
2,1 


192,192,192,128,149,46,63,46,63, 
63,128,149,46,63,46,63,46,63,128 
149,63,63,46,63,63,63,128,149,63 
63,126,63,63,63,128,132,63,63,12 


63,63,46,128,132,63,63,126,63,63 
46,128,149,63,63,126,63,63,63,12 


149,63,63,126,63,63,63,128,149,6 
63,126,63,63,63,128,149,63,63,12 


63,63,63,128,149,63,63,126,63,63 
63,128,149,63,63,126,63,63,63,12 


132,29,63,126,252,189,12,128,132 
63,126,252,189,12,128,149,63,63, 
63,63,63,128,149,63,63,63,63,63 
63,128,149,63,63,63,63,63,63,128 
149,63,63,63,63,63,63,128,149,63 
63,63,63,63,63,128,149,63,63,63 
63,63,63,128,132,63,63,63,63,63 
46,128,132,63,63,63,63,63,46,128 
149,63,63,46,63,63,63,128,149,63 
63,46,63,63,63,128,149,46,63,46 
63,46,63,128,149,46,63,46,63,46 
63,128,192,192,192,192,192,192,1 
192,192,192,192,192,192,192,128, 
0,0,0,0,0,0,0,0,0,0 
0,0,0,0,192,192,192,192,192,192 
192,128,192,192,192,192,192,192, 
192,192,192,192,192,192,192,128, 
192,192,192,192,192,128,192,192, 
192,192,192,128,192,192,192,192, 
192,128,192,132,72,192,192,12,19 
192,12,12,192,132,12,72,128,192, 


12,72,12,12,72,128,132,12,12,12 


[2131] 
[2052] 
[1747] 
[1559] 
[1874] 
[1982] 
[2085] 
[1785] 
[1890] 
[1982] 
[2085] 
[1785] 
[623] 

[1582] 
[1858] 
[1673] 
[1005] 
[1166] 
[2114] 


[1484] 
[2087] 


[1255] 
[2262] 


[1941] 
[1432] 


[1853] 
[1311] 
[1802] 
[1425] 
[1267] 
[959] 

[1680] 
[1888] 
[1166] 
[1713] 
[1363] 
[1287] 
[1725] 
[1269] 
[2262] 
[2288] 
[2187] 
[1858] 
[1267] 
[1873] 
[1791] 


[1519] 


6380 DATA 
2,128 
6390 DATA 
2,192 
6400 DATA 
192,192 
6410 DATA 
6420 DATA 
6430 DATA 
252,252 
6440 DATA 
243,243 
6450 DATA 
243,243 
6460 DATA 
195,130 
6470 DATA 
48,48 
6480 DATA 
6490 DATA 
6500 DATA 
6510 DATA 
6520 DATA 
0 

6530 DATA 
240,240 
6540 DATA 
6550 DATA 
6560 DATA 
6570 DATA 
6580 DATA 
6590 DATA 
204,204 
6600 DATA 
207,207 
6610 DATA 
207,207 
6620 DATA 
192,128 
6630 DATA 
60,60 
6640 DATA 
6650 DATA 
6660 DATA 
6670 DATA 
6680 DATA 


IWW WITT WI ITS WW I I WWW III ITS 


12,12,12,128,132,12,12,12,12,12 
12,128,12,12,12,12,12,12,12,8 
12,12,12,12,12,12,12,8,12,12 
12,12,12,12,12,8,12,12,12,12 
12,12,12,8,12,12,12,12,12,12 
12,8,12,12,12,12,12,12,12,8 
12,12,12,12,12,12,12,8,132,12 
12,12,12,12,12,128,132,12,12,12 
12,12,12,128,192,12,12,12,12,12 
72,128,192,12,12,12,12,12,72,128 
192,132,12,12,12,12,192,128,192, 


12,12,12,12,192,128,192,192,12,1 
12,72,192,128,192,192,132,12,12, 
192,128,192,192,132,12,12,192,19 
192,192,192,12,72,192,192,128,19 
192,132,192,192,192,128,192,192, 
»0,0,0,0 
‚252,252,168, 
252,252,252,252,252,168,243,243, 
243,243,243,162,243,243,243,243, 
243,162,195,195,195,195,195,195, 
195,195,195,195,195,195,195,130, 
48,48,48,48,48,32,48,48,48,48 
48,48,48,32,63,63,63,63,63,63 
63,42,63,63,63,63,63,63,63,42 
15,15,15,15,15,15,15,10,15,15 
15,15,15,15,15,10,240,240,240,24 
240,240,240,160,240,240,240,240, 
240,160,51,51,51,51,51,51,51,34 
51,51,51,51,51,51,51,34,3,3 
3,3,3,3, 902,303, 303 
3,3,3,2,12,12,12,12,12,12 
12,8,12,12,12,12,12,12,12,8 
204,204,204,204,204,204,204,136, 
204,204,204,204,204,136,207,207, 
207,207,207,138,207,207,207,207, 
207,138,192,192,192,192,192,192, 
192,192,192,192,192,192,192,128, 


0,60,60,60 
‚0,0 


10 MEMORY &A027:FOR n=&A028 TO &A052:READ 
a:POKE n,a:NEXT 

20 SAVE"mm",b,&A028,&2B 

30 DATA 221,94,0,221,86,1,221,110,2,221 
40 DATA 102,3,6,4,197,229,6,8,197,6 

50 DATA 8,26,119,19,35,16,250,1,248,7 

60 DATA 9,193,16,240,225,1,80,0,9,193 

70 DATA 16,228,201 
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[1210] 
[1552] 
[1589] 
[1886] 
[1041] 
[1262] 
[1743] 
[1660] 
[1670] 
[1704] 
[1909] 


[1864] 
[1671] 
[2190] 
[1835] 
[2242] 
[1125] 
[1269] 
[1982] 
[1885] 
[2069] 
[1699] 
[1702] 
[1579] 
[1647] 
[1387] 
[1103] 
[1011] 
[1786] 
[1843] 
[752] 

[1015] 
[1017] 
[1262] 
[1915] 
[1970] 
[1960] 
[2326] 
[2132] 
[1478] 
[1050] 
[1269] 


[1269] 
[826] 


[2956] 


[944] 
[1877] 
[1589] 
[1430] 
[1083] 
[486] 


Medienverlag 


Hier sollte strategisch vorgegangen werden, da man sonst in arge Schwie- Die Ausführung der einzelnen Punkte ist voll Menuegesteuert. 
rigkeiten kommen kann. 


Crazy Sitamps 


Hier kommt eines der verrücktesten Programme mit einer 
noch wilderen Geschichte die man je gesehen und gelesen .. u ® 

hat. Aber das soll nicht heißen, daß das Programm verrückt fur 464-664-6128 
ist, im Gegenteil, bei diesem Spiel kommt soviel Spaß auf, 
daß es schon richtig verrückt ist. Die Geschichte beginnt da- 
mit, was eigentlich normal ist, daß man kein Geld mehr in 
der Tasche hat. Was tun? In diesem Falle ganz einfach: Sie 
gehen jobben, in einem Postamt, wo Sie die eingehende Post 
AUSREICHEND frankieren müssen, um es sich dann von 
der Post abstempeln zu lassen. 


Aufgabe: 


Sie müssen sich einen geschickten Weg durch die Welt der Brief- 
marken bahnen. Sollte man denken, das wäre einfach dann wer- 
den Sie sich ganz schön wundern. Ihnen wird vorgegeben wel- 
chen Wert das gute Poststück haben muß, um es durchgehen zu 


lassen. 10 REM RR [1504] 
, hr . 20 REM xxx XXX [417] 
Zum Aufkleben der Briefmarken wird ein »Rahmen« bewegt, 30 REM X%% ----- CRAZY STAMPS ----- KKK [2040) 
> R = 40 REM xxx XXX [417] 
der durch den Druck des Feuerknopfes die Frankierung auslöst. 50 REM k*% Copyright by Dirk Mlller xxx Eau) 
Es kann aber auch, eine der zu definierenden Tasten benutzt 60 REM xxx xr% [417) 
werden. 70 REM XXX 4900 Herford, Juli 86 xxx [1364] 
80 REM xxx KK [417] 
Ein Weg der eingeschlagen wurde, kann erst nach einer Run- EI ON IUHIENT a 
de verlassen werden. Gearbeitet wird, solange die Energie 101 REM== Initialisierung 1 [1308] 
reicht, aber das wird Ihnen verdammt schwer gemacht. 102 REM================================ (2173) 
en 110 CLEAR: DEFINT a-z:GOSUB 6000:DIM f(6,5) [1359] 
Die Schwierigkeiten fangen an, von sich ändernden Werten auf ‚r(5),&k(6),5(7) 
Briefmarken über schwarze Löcher und Totenköpfe. Lassen Sie ke Ni a re ENTE TE 
sich begeistern von und mit Crazy Stamps. Eine genaue Spie- 130 INK 0,0: INK 1,26: INK 2,24: INK 3,6: INK (2685) 
lanleitung ist im Programm enthalten. 4,1: IBK 5,15: INK 6,4: INK 7,12 
140 INK 8,16: INK 9,11: INK 10,10: INK 11,9:1 [4268] 
; ; NK 12,3: INK 13,17: INK 14,19: INK 15,20 
Viel Spaß mit Crazy Stamps. 150 SYMBOL 250, 0,30,30,51,51,3,3,6 [1637] 


(D. Müller/CD) 
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160 SYMBOL 251,6,12,12,0,0,12,12 12064) 
170 SYMBOL 252,0,60,60,102,102,6,6,12 [2033] 
180 SYMBOL 253,12,24,24,0,0,24,24 [1281) 
190 SYMBOL 254,1,1,1,1,1,1,1,1:SYMBOL 255, [5361] 
128, 128,128,128,128,128,128,128:SYMBOL 169 
‚170,85,170,85,170,85,170,85 


980 SYMBOL 248,170,170,170,238 [1649] 
990 SYMBOL 249,42,42,170,238 [1679] 
[2077] 
[1390] 
(2077) 
1010 RESTORE 1000: MODE 1: BORDER 0:PAPER 0: (1687) 


200 SYMBOL 170,0,0,0,0,0,5,7,3 [1554] PEN 1 

210 SYMBOL 171,0,0,0,0,0,85, 255,255 [1831] 1020 FOR q=1 TO 48: READ t(q):NEXT q (2119) 
220 SYMBOL 172,0,0,0,0,0,64,192,128 [1663] 1030 FOR q=1 TO 26: READ w(gq):w(gq)=w(q)%*10: [2982] 
230 SYMBOL 173,6,2,6,2,6,2,6,2 [1305) NEXT q 


SYMBOL 174,192,128,192,128,192,128,192 [2675] 1040 FOR q=1 TO 26: READ pa(g),st(qg):st(q)= [3252] 
3%st(q)+t12:NEXT q 

1050 DATA 478,451,426,402,379,358,338,319, 12887] 
301,284, 268,253 

1060 DATA 239, 225,213,201,190,179,169,159, [2203] 
150,142,134,127 

1070 DATA 119,113,106,100,95,89,84,80,75,7 [2120] 
1,67,63 

1080 DATA 60,56,53,50,47,45,42,40,38,36,34 (1326) 
‚32 

1090 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14 [3170] 
‚15,16,17,18,19,20,25,30,40,50,100,0 


SYMBOL 175,7,7,5 [1244] 
260 SYMBOL 176, 255,255,85 [1457] 
270 SYMBOL 177,192,192,64 [1187] 
280 SYMBOL 178,3,12,16,19,36,40,67,68 [2045] 
290 SYMBOL 179,192,48,8,200,36,20,194,34 12375) 
SYMBOL 180, 136,143, 152,144,144,144,151 [2272) 


181,17,241,25,9,9,9,233,233 (2181) 
320 SYMBOL 182,151,144,144,144,144,152,143 [2537] 
‚128 


330 SYMBOL 183,233,9,9,9,9,25,241,1 (1510) 1100 DATA 4,1,5,1,6,1,7,1,8,,9,1,10,1,11,1 (649) 
340 SYMBOL 184,64,64,35,39,19,16,12,3 [2012] ‚12,1,13, 
350 SYMBOL 185,2,2,196,228,200,8,48,192 [1700] 1110 DATA 4,1,5,1,6,1,7,1,8,,9,1,10,1,11,1 [1377 


ENG 1722700 BROS IC Joyeene 1.2 Jong: 10. Ma: EC VAR: 3. VRMNMN: = PARAr 

1120 FOR q=1 TO 10:na$(gq)="PHIL PHILATELY" [4343] 
:dmtg)=220-20%qg:gr(q)=0:mz(q)=0 

1130 NEXT q 1367) 

1140 POKE &BDEE, 201: POKE &BDEF,0:POKE &BDF [1818] 


360 SYMBOL 186,0,0,0,0,0,0,3,7 11544) 
370 SYMBOL 187,0,0,0,0,0,0,192,224 [1883] 
380 SYMBOL 188,7,15,15,29,29,25,25,29 [1590) 
390 SYMBOL 189, 224,240,240,24,88,88,88,88 [2306] 
400 SYMBOL 190,29,29,29,29,29,15,15,7 [1925] 


410 SYMBOL 191,88,88,88,88,24,240,240,224 L[2304] 0,0 
420 SYMBOL 192,7,3 (1413) 1150 an$=CHR$(22)+CHR$(1): aus$=CHR$(22)+CH [2540] 
430 SYMBOL 193,224,192 [1269] R$(0) 


440 SYMBOL 194,0,0,0,0,0,1,3,3 1532) 1160 r(1)=0:r(2)=1:r(3)=2:r(4)=8:r(5)=9 L1725) 
450 SYMBOL 195,0,0,0,0,0,3,15,159 [2309] 1170 IF PEEK(&BBO1l)=&EO THEN ad!=PEEK(&B29 [3427] 
460 SYMBOL 196,0,0,0,0,0,192,240,249 [1928] 6) +PEEK (&B297)%x256 
470 SYMBOL 197,0,0,0,0,0,128,192,192 (2057) 1180 IF PEEK(&BBO1)=&5C THEN ad!=PEEK(&B73 [3012] 
480 SYMBOL 198,3,2 (1300) 6) +PEEK (&B737)x256 


490 SYMBOL 199,223,251,113,48,27,31,31,14 (1970) 
500 SYMBOL 200, 251,223, 142,140,216,248,248 [2770] 
‚112 (2077) 
510 SYMBOL 201,192,64 [1081] Melodie-Datas [1715] 
520 SYMBOL 202,0,0,0,0,0,2,3,3 [1476] 1202 REM================2==2222222222eee= [2077) 
530 SYMBOL 203,14,14,31,63,119,230,194,131 [1971] 1210 FOR q=1 TO 78:READ h(q),d(gq):NEXT q [2090] 
540 SYMBOL 204,112,112,248,252,238,103,67, [3056] 1220 DATA 1,2,6,2,10,2,13,4,10,2,6,2,1,4,1 [2266] 
193 3.,2.10,2,1102,8,6 

550 SYMBOL 205,0,0,0,0,0,64,192,192 [1616] (3311) 
560 SYMBOL 206,3,3,1 [1101] ELSTENB DH 6 

570 SYMBOL 207,3,3,1 [1165] 1240 DATA 1, 1 
580 SYMBOL 208, 192,192, 128 [1366] 
590 SYMBOL 209,192, 192,128 [1554] 1250 DATA 0, [3448] 
600 SYMBOL 210,0,56,124,68,68,76,76,84 [2430] 1, 282, 

610 SYMBOL 211,0,16,16,48,48,16,16,16 (1678) 1260 (1291) 
620 SYMBOL 212,0,56,124,68,4,4,4,60 [2340] 1270 6,4, 0,2,1,2: [140723 
630 SYMBOL 213,0,56,124,68,4,4,4,24 [1886] 1280 5,2,544:1,2, 612971 
640 SYMBOL 214,0,8,8,24,24,40,40,72 [2240] 1290 (845) 
650 SYMBOL 215,0,124,124,68,64,64,64,120 (1902) 1300 [2077] 
660 SYMBOL 216, 0,56,124,68,64,64,64,120 [1744] 1301 1974) 
670 SYMBOL 217,0,124,124,68,4,4,4,12 [1881] 1302 (2077) 
680 SYMBOL 218,0,56,124,68,68,68,68,56 [2312] 1310 MODE 0:BORDER 9: PAPER 11: PEN 1:CLS: IN [3904] 
690 SYMBOL 219,0,56,124,68,68,68,68,124 [2964] K 0,0:INK 1,9: INK 2,24: INK 3,6 

700 SYMBOL 220,84,100,100,68,68, 124,56 [2340] 1320 SYMBOL 167,0,0,0,0,85, 85,255, 255 [1726) 
710 SYMBOL 221,16,16,16,16,16,56,56 [1621] 1330 SYMBOL 168,255, 255, 85,85 [1768] 
720 SYMBOL 222,120,64,64,64,68, 124,124 [2534] 1340 FOR y=1 TO 22:c=143 (1830) 
730 SYMBOL 223,24,4,4,4,68, 124,56 [2000] 1350 IF y=1 OR y=7 OR y=11 OR y=15 OR y=19 [2474] 
740 SYMBOL 224,72,124,124,8,8,28,28 [1745] THEN c=167 

750 SYMBOL 225,124,4,4,4,68, 124,56 [1740] 1360 IF y=6 OR y=10 OR y=14 OR y=18 OR y=2 [2018] 
760 SYMBOL 226, 124,68,68,68,68, 124,56 [2130) 2 THEN c=168 

770 SYMBOL 227,24,16,16,16,16,16,16 [1362] 1370 LOCATE 5,y: PEN 1: PRINT STRING$(12,c); [3857] 
780 SYMBOL 228,56,68,68,68,68, 124,56 [1466) : NEXT y: INK 1,26 

790 SYMBOL 229,60,4,4,4,68, 124,56 [1779] 1380 LOCATE 6,2: PAPER 1:PEN 3:dat$="CRAZY" [1607) 
800 SYMBOL 230,0,0,0,238,170,170,170,170 [1889] :GOSUB 4100 

810 SYMBOL 231,0,0,0,78,74,202,74,74 [1895] 1390 LOCATE 10,4:PEN 3:dat$="STAMPS":GOSUB [3167] 
820 SYMBOL 232,0,0,0,238,170,42,42,106 [2061] 4100 

830 SYMBOL 233,0,0,0,238,170,42,42,106 [2037] 1400 
840 SYMBOL 234,0,0,0,142,138, 138, 170,170 [2359] 1401 [998] 
850 SYMBOL 235,0,0,0,238,138,138,138,234 [2124] 1402 rn [2077] 
860 SYMBOL 236,0,0,0,238,170,138, 138,234 [1848] 1410 LOCATE 5,8: PEN 5:dat$="1-":GOSUB 4100 [1435] 
870 SYMBOL 237,0,0,0,238,170,42,42,106 [1990] 1420 LOCATE 7,8:PEN 9:dat$="Spiel”:GOSUB 4 [2042] 
880 SYMBOL 238,0,0,0,238,170,170,170,234 12703) 100 

890 SYMBOL 239,0,0,0,238,170,170,170,234 [2664] 1430 LOCATE 5,12: PEN 5:dat$="2-":GOSUB 410 [1579] 
900 SYMBOL 240, 170,170,170,238 (1831) o 

910 SYMBOL 241,74,74,74,238 [1684] 1440 LOCATE 7,12:PEN 9:dat$="Anleitung":GO [3010] 
920 SYMBOL 242,202, 138, 138,238 [1839] SUB 4100 

930 SYMBOL 243,42,42,170,238 [1344] 1450 LOCATE 5,16: PEN 5:dat$="3-":GOSUB 410 [1735] 
940 SYMBOL 244, 234,42,42,46 [1240] ° 

950 SYMBOL 245,42,42,170,238 [1678] 1460 LOCATE 7,16: PEN 9:dat$="Tabelle":GOSU [1843] 
960 :SYMBOL 246, 170,170,170,238 [1834] B 4100 

970 SYMBOL 247,74,74,74,78 [1652] 1470 LOCATE 5,20: PEN 5:dat$="4-":GOSUB 410 [2539] 


1190 IF PEEK(&BBO1)=&5C THEN PRINT'"CPC 664 [4483] 
/6128" ELSE PRINT”’CPC 464” 


0,2,13,4,10,2,6,2,1,4,1 [2266) 


(2077) 
Titel 2 
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1480 LOCATE 7,20: PEN 9:dat$="Tastenwahl":G 
OSUB 4100 

1490 LOCATE 5,24: PAPER 11:PEN 2:dat$="Bitt 
e wOhlen”:GOSUB 4100 


1510 WINDOW#1,1,4,1,25: WINDOW#2,17,20,1,25 
: PAPER#1, 11: PAPER#2, 11: CLS#1: CLS#2 
1520 wa=VAL(INKEY$): IF wa<>0 THEN 1520 ELS 
E u=23:GOSUB 4000 
wa=VAL(INKEYS$) 

wa=1 THEN 1700 

wa=2 THEN 5000 

wa=3 THEN 4700 

wa=4 THEN 4900 

INKEY(18)=0 THEN u=78:GOSUB 4000:C 


IF CINTCRND(TIME)%1000)>995 THEN u=78 
:GOSUB 4000: CLS#1:CLS#2 
1600 
1601 
1602 
1610 h=CINT(RND(TIME)X30):qg=INTCRND(TIME)X* 
2)+1:pp=0 
1620 IF h>0 AND h<25 THEN pp=pa(h):pe=st(h 
):wert=w(h) 
1630 IF q=1 THEN LOCATE#1,1,1:PRINT#1,STRI 
NG$(A,11);:y=1 
1640 IF q=2 THEN LOCATE#2,1,25: PRINT#2,STR 
ING$(4,10);:y=22 
1650 x=16%(q-1)+1 
1660 IF h=0 OR h>28 THEN 1530 
1670 IF h=25 THEN GOSUB 3200 ELSE IF h=26 
THEN GOSUB 3300 
1680 IF h=27 THEN GOSUB 3000:GOSUB 3500 EL 
SE IF h>0 AND h<25 THEN GOSUB 3000 
1690 GOTO 1530 


Spielfeld-Fenster 


1710 IF INKEYS<>""THEN 1710 ELSE GOSUB 450 
0:MODE 0: BORDER 3: PAPER 0: PEN 1 

1720 WINDOW#1,1,20,1,3: PAPER#1, 12: CLS#1: WI 
NDOW#2,1,20,4,9: PAPER#2, 11: CLS#2 

1730 FOR q=348 TO 350 STEP 2 

1740 PLOT 0,q,14:DRAWR 588,0:DRAWR 0,-92:D 
RAWR-588, 0:DRAWR 0,92 

1750 NEXT q 

1760 FOR q=4 TO 25 

1770 PAPER 0:PEN 4:LOCATE 19,q: PRINT ans;C 
HRS (138)CHR$ (143); aus$; : NEXT q 

1780 FOR y=6 TO 342 STEP 16:PLOT 596,y,15: 
DRAW 632, y,15: NEXT y 

1790 FOR y=14 TO 334 STEP 16: PLOT 600,y,15 
: DRAW 628, y,15: NEXT y 


Markenfeld erstellen 


1810 LOCATE 1,1: PAPER 12:PEN 1:dat$="CRAZY 

":GOSUB 4100 

1820 LOCATE 15,1: PAPER 12:PEN 1:dat$s="STAM 
PS”: GOSUB 4100 

1830 h=1: FOR y=1 TO 4:FOR x=1 TO 6: f(x,y)= 
h:h=h+1:NEXT x,y 

1840 h=20: FOR x=1 TO 5: f(x,5)=h:h=h+1: NEXT 
x:£f(6,5)=10 

1850 FOR y=1 TO 5:FOR x=1 TO 6 
1860 hx=INTCRND(TIME)X6) +1 
1870 hy=INTCRND<TIMEYXS>I+1 
1880 h=f(x,y):f(x,y)=f(hx,hy): 
1890 NEXT x,y 

1900 
1901 
1902 
1910 FOR q=1 TO 6:k(q)=-1:NEXT q 

1920 dmark=0:grosch=0:en=42 

1930 GOSUB 3700 

1940 FOR hy=1 TO 5:FOR hx=1 TO 6 

1950 wf=fChx, hy): wert=w(wf):pp=pa(w£f): 

t(wf):x=3%hx-2: y=-3Xhy+7 

1960 IF fChx,hy)<25 THEN GOSUB 3000 

1970 IF f(hx,hy)=25 THEN GOSUB 3200 

1980 IF fChx,hy)=26 THEN GOSUB 3300 

1990 NEXT hx,hy 

2000 REM= 

2001 

2002 


fChx,hy)=h 


Markenfeld ausdrucken 
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2010 sx=INT(CRND<(TIME)X6) +1 

2020 sy=INT(CRND<TIME)XS>I+1 

2030 IF f(sx,sy)>24 THEN 2010 

2040 m=0:x=I3*%sx-2: y=3%Xsy+7:GOSUB 3900 


2060 m=nt1 

2070 mwert=w(INT(CRND(TIME)x24)+1) 
2080 mx=3%*m-2 

2090 GOSUB 4200 


2110 nx=sx:ny=sy 
2120 wx=nx: wy=ny 
2130 IF INKEY(76)=0 OR INKEY(r(5))=0 THEN 


2140 IF INKEY(72)=0 OR INKEY(r(1))=O0 THEN 
wy=wy-1 

2150 IF INKEY(74)=0 OR INKEY(r(4))=O THEN 
wx=wx-1 

2160 IF INKEY(73)=0 OR INKEY(r(3))=0 THEN 
wy=wy+1 

2170 IF INKEY(75)=0 OR INKEY(r(2))=O THEN 
wx=wxt+tl 

2180 IF INKEY(66)>-1 THEN 2900 ELSE IF wx= 
nx AND wy=ny THEN 2130 

2190 IF wx<>nx AND wy<?ny THEN 2120 

2200 
2201 
2202 
2210 IF wx<1 OR wx>6 THEN 2120 

2220 IF wy<1 OR wy>5 THEN 2120 

2230 IF wx<>sx AND wy<>sy THEN 2120 

2240 x=3%nx-2: y=3%Xny+t7:GOSUB 3950 

2250 nx=wx: ny=wy: x=3%*%nx-2: y=3%Xnyt+t7:GOSUB 3 


2260 IF f(nx,ny)>O AND f(nx,ny)<26 THEN 21 


2270 IF f(nx,ny)<O THEN 2300 
2280 IF f(nx,ny)=0 THEN sx=nx:sy=ny:GOTO 2 


2290 IF f(nx,ny)>25 THEN sx=nx:sy=ny:GOTO 


2310 FOR q=500 TO 50 STEP-50:SOUND 1,q,3,7 
: NEXT q: wf=1+(22-f(nx,ny))MOD 24 

2320 wert=w(wf):pp=pa(wf):pe=st (wf):x=3%*nx 
-2: y=3%*Xnyt7:GOSUB 3000 

2330 f(nx,ny)=ABS(wf):en=en-1:GOSUB 3800: I 
F en=0 THEN 2900 

2340 GOTO 2120 

2350 REM=================2==2=2=2===2======= 
2351 REM Zu kleiner Markenwert 
2352 REM= ==2=2=2=2=2==2========2====220=222= 
2360 k(m)=1:x=3%sx-2: y=3%sy+7:GOSUB 3300 
2370 f(sx,sy)=30:en=en-5:GOSUB 3800 

2380 x=mx: GOSUB 3650 

2390 IF en<i1 THEN 2900 ELSE IF m=6 THEN 27 
50 ELSE GOSUB 4300:GO0TO 2050 

2400 
2401 
2402 
2410 k(m)=1:x=3Xsx-2: y=3Xsy+7:GOSUB 3600:G 
OSUB 3300 

2420 f(sx,sy)=30:en=en-7:GOSUB 3800 

2430 x=mx: GOSUB 3650 

2440 IF en<1 THEN 2900 ELSE IF m=6 THEN 27 
50 ELSE GOSUB 4300:G0OTO 2050 

2450 REM============2=2===2==2===2========== 
2451 REM Auf Leerfeld 
2452 REM 
2460 k(m)=1:x=3%sx-2: y=3%Xsy+7:GOSUB 3300 
2470 f(sx,sy)=30:en=en-6:GOSUB 3800 

2480 x=mx: GOSUB 3650 

2490 IF en<1 THEN 2900 ELSE IF m=6 THEN 27 
50 ELSE GOSUB 4300:G0OTO 2050 

2500 
2501 
2502 
2510 sx=nx: sy=ny: x=3%sx-2: y=3%sy+7: GOSUB 3 
600 

2520 IF f(sx,sy)<O THEN 2300 

2530 IF f(sx,sy)=0 THEN 2350 

2540 IF f(sx,sy)>25 THEN 2400 

2550 IF f(sx,sy)=25 THEN mun=3:GOSUB 4400: 


Auf Totenkopf 
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Spiele 


GOTO 2700 3050 LOCATE x+t1,y+1: PRINT CHR$(c); [1776] 
2560 IF w(f(sx,sy))<mwert THEN 2450 [1488] 3060 LOCATE x+1,y+2: PRINT CHR$(c+h); 11531) 
2570 IF w(f(sx,sy))=mwert THEN mun=2:GOSUB [3553] 3070 c=(wert-100%INT(wert/100))/10+230:h=1 [2666] 
4400:G0TO 2600 0 
2580 IF w(f(sx,sy))>mwert THEN mun=1:GOSUB [1908] 3080 LOCATE x+2,y+1: PRINT CHRS(c); [1097] 
4400:GOTO 2660 3090 LOCATE x+2,y+2: PRINT CHR$(c+h); [2314] 
2590 GOTO 2520 [355] 3100 [2077] 
[2077] 3101 Briefmarke 2 [832] 
Passend / Zu viel [1191] 3102 12077) 
{20771 3110 PAPER 0:PEN 1 [965] 
2610 wf=f(sx,sy):wert=w(wf):pp=pa(wf):pe=s [3755] 3120 LOCATE x,y: PRINT ans; CHR$S(170)CHR$(17 [2349] 
t(wf):x=me: y=4:GOSUB 3000:GOSUB 3400 1)CHR$(171)CHRS (172); 
2620 k(m)=2: f(sx,sy)=25:x=3%Xsx-2: y=3%Xsyt7: [3640] 3130 LOCATE x, y+1: PRINT CHR$(173); [1153] 
GOSUB 3200 3140 LOCATE x, y+2: PRINT CHR$(173); [1838] 
2630 grosch=grosch+mwert:en=sen+t1: IF en?42 L[3426] 3150 LOCATE x+3, y+1: PRINT CHR$(174); [2118] 
THEN en=42 3160 LOCATE x+3,y+2: PRINT CHR$(174); [2456] 
2640 IF grosch>90 THEN dmark=dmark+1:grosc [2593] 3170 LOCATE x, y+3: PRINT CHR$S(175)CHR$(176) [2899] 
h=grosch-100:GOTO 2680 CHRS(176)CHRS$ (177); 
2650 GOSUB 3700: IF m=6 THEN 2750 ELSE GOSU [3625] 3180 PRINT aus$; [322] 
B 4300:G0OTO 2050 3190 SOUND 1,0,5,5,0,0,1: RETURN [2160] 
2660 wf=f(sx,sy):wert=w(wf):pp=pa(wf):pe=s [3755] 3200 [2077] 
t(wf):x=mx: y=4:GOSUB 3000:GOSUB 3400 3201 [514] 
2670 k(m)=2: f(sx,sy)=0:grosch=groschtmwert [4364] 3202 [2077] 
2680 IF grosch>90 THEN dmark=dmark+1:grosc [2593] 3210 LOCATE x+1,y+1:PEN 7:PRINT an$;CHR$(1 [2322] 
h=grosch-100:GOTO 2680 38)CHR$ (133); 
2690 GOSUB 3700: IF m=6 THEN 2750 ELSE GOSU [3625] 3220 LOCATE x+t1,y+2:PEN 7: PRINT ans; CHR$(1 [3433] 
B 4300:G0TO 2050 38)CHR$ (133); 
2700 = [2077] 3230 PEN 2 [548] 
2701 = [1146] 3240 LOCATE x+1,y: PRINT CHRS(186)CHR$(187) [2443] 
2702 [2077] ’ 
2710 x=mx: y=5:GOSUB 3200 [2581] 3250 LOCATE x+1,y+1:PRINT CHR$S(188)CHR$(18 [2726] 
2720 k(m)=2: f(sx,sy)=0:dmark=dmark+10 [2018] 9; 
2730 GOSUB 3700 [1013] 3260 LOCATE x+1,y+2:PRINT CHR$S(190)CHR$(19 [1384] 
2740 IF m=6 THEN 2750 ELSE GOSUB 4300: [3206] 1; 
2050 3270 LOCATE x+1,y+3: PRINT CHR$(192)CHR$(19 [1497] 
2750 REM [2077] 3; 
2751 REM= Ende der Runde (1071) 3280 PRINT aus$; 1322] 
2752 REM = (2077) 3290 FOR q=0 TO 2:SOUND 1,30,1,7:SOUND 2,7 15954] 
2760 h=0:FOR q=1 TO 6:h : :h=IN [4021] 0,1,7:NEXT q: RETURN 
TCch-6)72) 3300 REM: = [2077] 
2770 en=enth: IF en>42 THEN en=42 [1719] 3301 REM Totenkopf [1791] 
2780 IF h=3 THEN dmark=dmark+6:GOSUB 3700: L4725] 3302 REM [2077] 
mun=4:GOSUB 4400 ELSE GOSUB 3700 3310 LOCATE x+t1,y+1:PEN 5: PRINT ans; CHRSC1 [2629] 
2790 SOUND 1,0,40,4,0,0,6: FOR q=260 TO 346 [5602] 38)CHR$ (133); 
STEP 2:MOVE 4,q:DRAW 584,q,11: NEXT q 3320 LOCATE x+1,y+2:PEN 5: PRINT ans; CHR$(2 [3364] 
12077) 54)CHRS$ (255); 
2801 REM=== Zerfall des Totenkopfs [1887] 3330 PEN 1 [549] 
[2077] 3340 LOCATE x,y: PRINT CHR$(194)CHR$(195)CH [3620] 
2810 FOR hy=1 TO 5:FOR hx=1 TO 6:x=3%*hx-2: [2569] R&SC196)CHRS (197); 
y=3xhy+7 3350 LOCATE x,y+1: PRINT CHR$(198)CHR$(199) [2375] 
2820 IF fChx,hy)=26 THEN fChx,hy)=0:G0SUB L2712] CHR$ (200)CHR$ (201); 
3600 3360 LOCATE x, yt2: PRINT CHR$(202)CHR$(203) [3423] 
2830 IF fChx,hy)>26 THEN fChx,hy)=f(hx,hy) [3655] CHRS$ (204) CHR$ (205); 
ei 3370 LOCATE x, y+3: PRINT CHR$(206)CHR$(207) 13558] 
2840 NEXT hx,hy [592] CHR$(208)CHR$ (209); 
2850 [2077) 3380 PRINT aus$; (322) 
2851 Neue Briefmarken [1722) 3390 FOR q=300 TO 1800 STEP 100:SOUND 1,q, [3436] 
2852 RENzS====2=2= 22 zze< zes zsesmzemmeme ne [2077) 3, 7: NEXT q: RETURN 
2860 FOR hy=1 TO 5:FOR hx=1 TO 6 [1292] 3400 [2077] 
2870 IF f(hx,hy)=0 THEN f(hx,hy)>=INT(CRND(T [3287] 3401 Stempel 1664] 
IME)%X24)+1 ELSE 2890 3402 [2077] 
2880 wf=fChx,hy):wert=w(wf):pp=pa(wf):pe=s [6526] 3410 PEN O0 [550] 
t(wf):x=3%hx-2: y=3%Xhy+7:GOSUB 3000 3420 PRINT ans; [725] 
2890 NEXT hx,hy:m=0:G0OTO 2050 [1609] 3430 LOCATE x+1,y+1: PRINT CHR$(178)CHR$(17 [2614] 
2900 12077) 9; 
2901 GAME OVER [961] 3440 LOCATE x+1,y+2: PRINT CHR$(180)CHR$(18 [1680] 
2902 [2077] 2; 
2910 FOR h=1 TO 6: FOR q=1 TO 15 [1530] 3450 LOCATE x+1,y+3: PRINT CHR$(182)CHR$(18 [1395] 
2920 SOUND 1,0,1,0:SOUND 1,0,h,7,0,0,q:NEX [3264] 3; 
Tg, 3460 LOCATE x+1,y+4: PRINT CHR$S(184)CHR$(18 [1633] 
2930 FOR q=0 TO 640 STEP 8:MOVE q,164:DRAW [3452] 5; 
R 0,60,1 3470 PRINT auss$; [322] 
2940 MOVE 644-q4,164:DRAWR 0,60,1:NEXT q [1742] 3480 SOUND 1,0,7,7,0,0,15 (1619) 
2950 LOCATE 2,13: PAPER 1 (1189) 3490 RETURN [555] 
2960 PEN 9:dat$="G A M E ":GOSUB 4100 [1837] 3500 [2077) 
2970 PEN 5:dat$=" O V E R":GOSUB 4100 [1621] 3501 CRAZY STAMP [2487] 
2980 h=JOY(O0): FOR q=1 TO 5:h=h+1+INKEY(q): [4153] 3502 [2077] 
NEXT q: IF h=0 THEN 2980 3510 PAPER O0:PEN 1 [965) 
BORDER 0: PAPER 0: PEN 1:CLS:GOTO 4600 L1639] 3520 PRINT an$; 725) 
[2077] 3530 LOCATE x,y+1: PRINT CHR$(254); [1225] 
[840] 3540 LOCATE x, y+2: PRINT CHR$(254); [1961] 
[2077) 3550 PRINT aus$; 1322) 
LOCATE x,y+1:PEN pp: PRINT an$s;CHR$(25 [2428] 3560 PAPER 1:PEN O (871) 
3570 LOCATE x+1,y+1: PRINT CHR$(250)CHR$(25 [3116] 
LOCATE x, y+2:PEN pp: PRINT an$;CHR$(25 [2978] 23; 
3580 LOCATE xt+t1,y+2: PRINT CHR$S(251)CHR$(25 [1298] 
PRINT aus$; : PAPER pp: PEN pe [2623] 3; 
IF wert<100 THEN c=32:h=0 ELSE c=INT( [3427] 3590 FOR q=50 TO 600 STEP 50:SOUND 1,q,3,7 13882] 
wert/100)+210:h=10 : NEXT q: RETURN 


Briefmarke 1 
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Leerfeld 


3610 gx=32%x-12:gy=404-16%y 

3620 FOR q=0 TO 21 

3630 PLOT gx,8y-2%*q, 0:DRAWR 80,0:NEXT q 
3640 RETURN 


Rot Ankreuzen 


3660 PAPER 0:PEN 3 

3670 LOCATE x+1,5: PRINT an$; CHR$S(92)CHRS$(A4 
T),aus$; 

3680 LOCATE x+1,6: PRINT an$; CHRS(47)CHRS$(9 
2);aus$; 

3690 
3700 
3701 
3702 
3710 h$=STR$(dmark) 

3720 h$=STRING$(6-LENCh$),"O")+MID$Ch$,2,L 
EN(h$)-1) 

3730 FOR x=8 TO 12 

3740 c=152+ASC(MID$Ch$,x-7,1)) 

3750 FOR y=1 TO 2 

3760 LOCATE x,y: PAPER 12:PEN 2: PRINT CHRS$( 
c+10%y); 

3770 NEXT y,x 

3780 c=grosch/10+220 


3790 FOR q=1 TO 2:LOCATE 13,q: PRINT CHR$(c 
+10%g); :NEXT q 

838800 REM========2==2===2=22=2==2=2=2=2========== 
3801 REM=== Anzeige * Energie 

3802 


3810 LOCATE 1,1: PRINT an$; 

3820 FOR y=1 TO 42:h=25-INT(y/2) 
3830 IF y>8 THEN pe=2 ELSE pe=3 
3840 IF y>en THEN pe=0 

3850 IF INT(y/2)=y/2 THEN c=132 ELSE c=129 
3860 LOCATE 19,h: PEN pe: PRINT" ";CHR$(c); 
3870 NEXT y 

3880 PRINT aus$; 

3890 RETURN 

3900 REM==============2==2===2============ 
3901 REM=== = 
3902 REN=======2=2=2=2=2=2=22=2=2=22z222=22222=== 
3910 gx=32%x-20:8,7y=408-16%y: FOR q=0 TO 1:F 
OR h=0 TO 1 

3920 PLOT gx,gy-2*%q-48%h, 3+(q=h):DRAWR 96, 
0:NEXT h,q: FOR q=0 TO 1:FOR h=0 TO 1 

3930 PLOT gxt4*qg+92%h,gy-2,3+(q=h):DRAWR O0 
‚-46: NEXT h,q 

3940 SOUND 1,70,7,7: RETURN 

3950 REM==================2=2=2===2==2====== 
3951 Sucher aus 
3952 
3960 gx=32%x-20:87=408-16%y: FOR q=0 TO 1:F 
OR h=0 TO 1 

3970 PLOT gx,gy-2*q-48%h, 0:DRAWR 96,0 

3980 PLOT gxt4*qg+92xh,gy-2,0:DRAWR 0,-46:N 
EXT h,q 

3990 
4000 
4001 
4002 
4010 FOR q=1 TO u 

4020 IF INKEY(47)=0 OR INKEY$<>""THEN q=78 
4030 IF h{q)=0 THEN SOUND 1,0,d(q)%8,7 ELS 
E SOUND 1,tCh(q)),d(g)%8,7 

4040 IF h(q)=0 THEN SOUND 2,0,d(q)%7,6 ELS 
E SOUND 2,tCh(q)+12),d(gq)*7,6 

4050 IF h(q)=0 THEN SOUND 4,0,d(q)%6,5 ELS 
E SOUND 4,t(h(gq)+24),d(q)*%6,5 

4060 SOUND 7,0,2 

4070 IF INKEY(47)=0 OR INKEY$<>""THEN q=78 
4080 NEXT q 

4090 RETURN 

4100 
4101 
4102 
4110 FOR q=1 TO LEN(dat$) 

4120 FOR h=0 TO 7 

4130 sth)=PEEK(ad!+(ASC(MID$(dat$,q,1))-32 
)xk8+h) 

4140 NEXT h 

4150 SYMBOL 167,s(0),s(0),s(t1),s(1),s(2),s 
(2),s(3),s(3) 

4160 SYMBOL 168,s(4),s(4),s(5),s(5),s(6),s 
(6),s(7),s(” 

4170 PRINT CHR$(167)CHRS$C10)CHRS(8)CHRS$(16 


Riesenschrift 


192 Pe 


[2077] 
[612) 

[2077] 
[1622] 
[1028] 
(1722) 
555] 

(2077) 
[1209] 
(2077) 
[963] 

[1808] 


(2643) 


555] 
[2077) 
[1441] 
[2077] 
[788] 
[3049] 


[924] 

[1889] 
[1188] 
[4411] 


[397] 
[1235] 
[2788] 


[2077] 
(1829) 
(2077) 
[744] 

[1726] 
[1774] 
[1206] 
[1696] 
[2564] 
[359] 

[322] 

[555] 

[2077] 
[1426] 
[2077) 
13395) 


[4172] 
[3630] 


[1553] 
[2077] 
[1599] 
[2077] 
[3395] 


(2276) 
[3235] 


[555] 

[2077] 
[1444] 
[2077] 
[918] 

[1457] 
[4644] 


[5104] 
[3210] 


(951) 
[1457] 
[367] 
[555] 
[2077] 
[672] 
[2077] 
[1477] 
[638] 
(1532) 


372] 
[2140] 


[2708] 


[2707] 


8)ICHR$(11); 


4180 [367] 
4190 1555] 
4200 12077) 
4201 11434) 
4202 [2077] 
4210 PEN 15: PRINT ans; (1477) 


4220 IF mwert<100 THEN c=32:h=0 ELSE c=INT [3443] 
(mwert/100)+210:h=10 

4230 LOCATE mx+1,5: PRINT CHR$(c); [2683] 
4240 LOCATE mx+1,6: PRINT CHR$(c+th); [1721) 
4250 c=(mwert-100%INT(mwert/100))7/10+230:h [2805] 
=10 


4260 LOCATE mx+2,5: PRINT CHR$(c); [1848] 
4270 LOCATE mx+2,6: PRINT CHR$(c+th); [2946) 
4280 PRINT aus$; [322] 

4290 RETURN 1555] 

4300 zz222S22ESz22=22e2seSssasasnssss (2077) 
4301 STAMP wird CRAZY [1163] 
4302 S=2=2=2=2=2=2=2=2=2=2=2=222=2=2=2=2=2==2=2=2=2==2=== [2077] 
4310 FOR h=1 TO 8-INT(en/6) (1127) 
4320 hx=INT(RND<TIME)X6) +1 [1740] 
4340 hy=INT(CRND(TIME)XS) +1 [1775] 
4350 IF hx=sx AND hy=sy THEN 4320 [1846] 


4360 IF fChx,hy)<1 OR fChx,hy)>24 THEN 438 [2247] 
0 


4370 £fChx,hy)=-fChx,hy):x=3%hx-2: y=3Xhy+7: [2293] 
GOSUB 3500 

4380 [372] 

4390 555] 

4400 [2077] 
4401 [1550] 
4402 [2077] 
4410 ENV 1,1,15,1,8,0,1,15,-1,1 (1388) 
4420 ON mun GOTO 4430, 4450,4470,4490 [1006] 
4430 FOR q=12 TO 24 STEP 2:SOUND 1,t(q),3, [3792] 
0,1:SOUND 1,t(q+4),3,0,1:NEXT q 

4440 SOUND 1,t(24),20,0,1: RETURN [2109] 


4450 FOR q=24 TO 36:SOUND 1,t(q),3,0,1:SOU [3289] 

ND 1,t(qg+t2),3,0,1:NEXT q 

4460 SOUND 1,t(36),20,0,1: RETURN [1839] 

4470 FOR q=24 TO 36:SOUND 1,t(qg),2,7:SOUND [3270] 
1,t(q+t8),2,7:NEXT q 


4480 SOUND 1,t(36),20,0,1: RETURN [1839] 

4490 FOR q=1 TO 20:SOUND 1,70,2,7:SOUND 1, [4231] 
70,1,0:NEXT q: RETURN 

4500 REN=====2=2=:=2222====2z22=2===222 2 === z2== [2077] 

Namenseingabe [1883] 

[2077] 


4510 MODE 1:LOCATE 10,10: PAPER 0:PEN 2:PRI [5270] 
NT"Bitte Namen eintippen:":names="" 

4520 SOUND 1,70,2,7:LOCATE 10,15:PEN 1:PRI [5660] 
NT name$; :PEN 3: PRINT" _"; 

4530 w$=INKEY$ [833] 
4540 IF w$=CHR$(13)THEN 4580 [1146] 
4550 IF w$=""OR(CwS=CHR$S(127)AND LEN(name$) [2804] 
=0)THEN 4530 

4560 IF w$=CHR$(127)THEN name$=LEFT$(name$ [4302] 
‚„LEN(name$)-1):GOTO 4520 

4570 IF LEN(name$)<20 THEN name$=name$+tw$: 
GOTO 4520 ELSE 4530 

4580 IF name$=""THEN name$s="Mister SLUGGAR [2410] 
pr 


[2967] 


4590 LOCATE 10,15:PEN 1:PRINT name$;" ";:F [2389] 
OR q=0 TO 1000: NEXT q: RETURN 

4600 REM [2077] 
4601 REM [2480] 
4602 REM [2077] 
4610 h=0 [416) 
4620 FOR q=10 TO 1 STEP-1 [1845] 


4630 IF dm(gq)<dmark OR(dm(gq)=dmark AND gro [3327) 
sch>gr(q))>THEN h=q 


4640 NEXT q [367] 
4650 IF h=0 THEN 4700 [993) 
4660 FOR q=10 TO h+1 STEP-1 [1257] 


4670 dm(gq)=dm(gq-1):gr(g)=gr(g-1):na$(q)=na [1941] 
$(q-1) 

4680 NEXT q [367] 
4690 dm(h)=dmark:gr(h)=grosch:na$(h)=name$ [1292] 


4700 REM==============2======2=2===2=2====== [2077] 
4701 REM=== Tabelle 1 === 1602) 

4702 REM===============2==2=====2========= [2077] 
4710 MODE 1: PAPER 1:CLS:BORDER 26: INK 2,2 13307) 


4720 PEN 3:LOCATE 1,1:dat$="x TOP TEN * C [4647] 
RAZY STAMPS x TOP TEN %":GOSUB 4100 

4730 PEN 0:LOCATE 1,3: PRINT STRING$(39, 154 [2405] 
)) 

4740 h$=STR$(dmark): PEN 0:LOCATE 9,25 
4750 PRINT STRING$(6-LEN(Ch$), "O”")+MID$Ch$, 
2,LEN(Ch$)-1);:PEN 0: PRINT"." 


[1678] 
[3119] 
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4760 h$=STR$(grosch+100): PEN 0: LOCATE 15,2 
5 

4770 PRINT RIGHT$(Ch$,2) 

4780 PEN 0:LOCATE 19,25 

4790 PRINT name$ 
4800 

4801 

4802 

4810 FOR q=1 TO 10 
4820 LOCATE 4,2%q+3: PEN 0: PRINT USING'’##"; 
AssPRINT” ,” 

4830 h$=STR$(dm(q)): PEN 3:LOCATE 9, 2%qg+3 
4840 PRINT STRING$(6-LENCh$),"O")+MID$Ch$, 
2,LEN(h$)-1);:PEN O0: PRINT"”." 

4850 h$=STR$(gr(q)+100):PEN 3: LOCATE 15,2% 
q+3 

4860 PRINT RIGHTS$Ch$,2) 

4870 PEN 2:LOCATE 19, 2%*%qg+3: PRINT na$(g) 
4880 NEXT q 

4890 WHILE INKEY$<>"":WEND: WHILE INKEYS$S="" 
: WEND: GOTO 1300 
4900 REM 

4901 REM= 


Tabelle 2 


Tastaturbelegung 


4902 RE==========22222=2=2==2=22z222z2z2e22 

4910 MODE 1%: LOCATE 10,2: PAPER 0:PEN 1: 
T"TASTATURBELEGUNG:": FOR q=1 TO 5 

4920 IF q=1 THEN LOCATE 10,4%qg+2:PEN 2: PRI 
NT'’' HOCH Beh 

4930 IF q=2 THEN LOCATE 10,4%q+2:PEN 2: PRI 


NT" RECHTS : "; 

4940 IF q=3 THEN LOCATE 10,4%q+2:PEN 2: PRI 

BTURUNTER : "; 

4950 IF q=4 THEN LOCATE 10,4%*g+2: PEN 2: PRI 

NT"LINKS n 

4960 IF q=5 THEN LOCATE 10,4%qg+2:PEN 2: PRI 

NT"FEUER : "; 

4970 h=(h+1)MOD 80: IF INKEYCh)=-1 THEN 497 
0 ELSE SOUND 1,70,7,7 

4980 r(q)=h:PEN 3:PRINT RIGHT$(STR$(r(q>+1 
00),2) 

4990 NEXT q: FOR q=0 TO 3000: NEXT q:GOTO 13 

00 

5000 

5001 

5002 

5010 MODE 1: BORDER 0: INK 0,0: INK 1,20: INK 

2,21: INK 3,15 

5020 LOCATE 9,1:PEN 2: PRINT CHR$(164);" 19 

86 by Dirk M]lller":LOCATE 1,3: PEN 3 

5030 dat$="% Anleitung * CRAZY STAMPS * An 
leitung *":GOSUB 4100 

5040 FOR q=6 TO 24 STEP 18:LOCATE 1,q:PEN 

2: PRINT STRING$(40,154): NEXT q 

5050 LOCATE 9,25: PEN 3: PRINT"Bitte Leertas 
te dr]Icken"” 

5060 FOR q=1 TO 4:LOCATE 1,8:PEN 1 

5070 ON q GOTO 5200, 5300, 5400, 5500 

5080 IF INKEY(47)<>0 THEN 5080 

5090 SOUND 1,70,7,7 

5100 

5101 Wischen 

5102 REM=========2=2=2=2==2=2=2=2=2=2=2=2=22=2======= 

5110 FOR h=30 TO 300 STEP 4:SOUND 1,0,2,4, 
0,0,4 

5120 MOVE 0,h: DRAW 640,h,1 

5130 MOVE 0,334-h: DRAW 640, 334-h, 1 

5140 NEXT h 

5150 FOR h=30 TO 300 STEP 4:SOUND 1,0,2,4, 
0,0,4 

5160 MOVE 0,h:DRAW 640,h,0 

5170 MOVE 0,334-h: DRAW 640, 334-h,0 

5180 NEXT h 

5190 NEXT q:GOTO 1300 

5200 

5201 

5202 

5210 PRINT"’CRAZY STAMPS - Ein total 
kter Job!" 

5220 PRINT"Die Aufgabe besteht darin, 
sendungen” 

5230 PRINT”"AUSREICHEND zu frankieren. 
em grInen” 

5240 PRINT"Fenster erscheint der Wert, we 
Ichen die” 

5250 PRINT’"Briefmarke 
u#. Wird” 

5260 PRINT"ausreichend frankiert, 
die Post’ 

5270 PRINT"ab, 


Anleitung === 
= 


Post 
Ind 
mindestens haben m 
stempelt 


und der Lohn steigt! Nach 
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[2501] 


[888] 
[1327) 
[588] 
[2077] 
552] 
(2077) 
[837) 
(3811) 


[1607] 
[3119] 


[1861] 


[888] 
[1999] 
[367] 
[4349] 


[2077] 
[1366] 
[2077] 
[5925] 
13299) 
[3501] 
[3229] 
[2912] 
12455) 
[4251] 
[2696] 
[1399] 
[2077] 
[788] 

[2077] 
[2413] 
[3312] 
[4102] 
[4403] 
14735] 
[1830] 
[816] 

[690] 

[1167] 
[2077] 
1772) 

(2077) 
[1693] 
[987] 

[1827) 
[372] 

[1693] 
(984) 

[1824] 
[372] 

[678] 

[2077] 
[1051] 
[2077] 
(2874) 
[3429] 
[4338] 
[4919] 
[5393] 
[6674) 


[2566] 


6 richtig” 

5280 PRINT"geklebten Marken erh@lt man ein 

en Bonus.” 

5290 GOTO 5080 

5300 REM= 

5301 REM= 

5302 REM 

5310 PRINT"Mit dem Sucher 
big viele" 

5320 PRINT"Felder in EINE Richtung ziehen 
und eine" 

5330 PRINT"durch FEUER ausgewOhlte Marke a 
ufkleben.” 

5340 PRINT"Wird eine genau passende Marke 

gefunden, " 

5350 PRINT"so erscheint als Belohnung an d 

er Stelle" 

5360 PRINT"ein GoldstIck. Mit diesem Taler 
kann man” 

5370 PRINT"jeweils einmal die Portokosten 
bezahlen.” 

5380 PRINT"Dabei 
n Bonus !"” 

5390 GOTO 5080 

5400 REM=========2=2=2==2====2=2====2========= 


kann man belie 


gibt es einen sehr hohe 


5410 PRINT"Gelangt man auf ein Leerfeld o 

der sucht” 

5420 PRINT"man eine Marke mit zu geringem 

Wert aus," 

5430 PRINT"erscheint ein Totenkopf, und di 

e Energie” 

5440 PRINT"sinkt deutlich, 

ls man zu” 

5450 PRINT"einem Totenkopf steuert. Um 

m[glichst” 

5460 PRINT"lange jobben zu k[nnen, darf di 

e Energie" 

5470 PRINT"nicht ganz abfallen. Bei jed 

em Bonus” 

5480 PRINT"wird die 
erhlht.” 

5490 GOTO 5080 

5500 REM==================2=2=====22====== 


wie auch, fal 


Energie ein wenig 


5510 PRINT"Seltsamerweise 
iefmarken” 

5520 PRINT"manchmal verr]ckt und ver®ndern 
ihr Aus-” 

5530 PRINT’"sehen, 

ur wieder” 

5540 PRINT"erf®hrt, 

troffenen” 

5550 PRINT"Marken gelangt. 

s kostet” 

5560 PRINT'"Energie, mit der man sparsam se 
in soll 1 

5570 PRINT"%%k%k Den Briefmarken-Freaks w]n 

scht *Xxx" 

5580 PRINT’xxxx 
H KKKK" 

5590 GOTO 5080 

6000 REM'XXkXkk Utility No. 1 KKRKKKKKK 

XKKKKKKKKKKK S by Dirk Mueller *xx*%* 

6010 SYMBOL AFTER 32 

6020 SYMBOL 64,108,0,120,12,124,204,118 

6030 SYMBOL 124,102,24,60,102,102,126,102 

6040 SYMBOL 91,102,0,60,102,102,102,60 

6050 SYMBOL 123,198,0,124,198,198, 198,124 

6060 SYMBOL 93,102,0,102,102,102,102,62 

6070 SYMBOL 125,198,0,198,198,198,198,124 

6080 SYMBOL 163,60,70,198,220,198,198,220, 
192 

6090 RETURN 


spielen die Br 


so da# man ihren Wert n 
wenn man auf die be 


Aber auch die 
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(3515) 
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[2077] 
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(2077) 
1847) 

[2077] 
[4529] 
[4298] 
[4627] 
[5686] 
[5010] 
[4877] 
[3805] 
[2809] 


[355] 
[4291] 


[1296] 
[2059] 
[1662] 
[2192] 
[2394] 
[2151) 
[2573] 
[2335] 


1555] 


Meine Meinung zu diesem Sonderheft: 


Hier haben Sie Gelegenheit, uns Ihre Meinung zu diesem Sonderheft mitzuteilen. Wir hof- 
fen auf eine rege Teilnahme, nur so können wir unsere Fehler erkennen, Ihre Anregungen ver- 
arbeiten und es das nächste Mal besser machen, denn — Nobody’s perfect ! 


Füllen Sie die freigelassenen Felder für Ihre Bemerkungen aus und senden Sie das Blatt (oder 
eine Fotokopie, falls Sie Ihr Sonderheft nicht zerpflücken möchten) an o.g. Anschrift. Wir 
danken schon jetzt für Ihre aktive Unterstützung! 
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Computerkonfiguration: 


Ihre persönlichen Daten werden nur zu internen Verwaltungszwecken elektronisch gespeichert. 


Der Zeitherr, ein Wesen aus den 
Tiefen des Weltraums, hat einen 
kosmischen Wettbewerb ausge- 
schrieben um etwas Zerstreuung 
in sein unendlich langes Leben 
\zu Bringen: Den STARTEST. Der 
Rreis sind zusätzliche Lebens- 
jahre. Jede Intelligenz, ob Spin- 
nenwesen von Andalus, ob Men- 
schen von.der Erde oder Schla- 
fende Steine von Murks können 
teilnehmen. Doch vor dem er- 
sehnten Preis stehen 8 Prüf- 
ungen, die der Kandidat 
über sich ergehen lassen 
muß. 8 Prüfungen, die 
sowohl die Intelligenz 

als auch die Geschick- 
lichkeit testen. 
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